
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

Icon konvertálása Bitmap-é

Példaprogram letöltése

17093 bájt

Készítettünk egy komponenst, amellyel könnyedén konvertálhatunk Windows ikonokat (.ico) bitmap formátumú (.bmp) képpé.

A mellékelt példaprogram megnyitása előtt az AsIconToBmp.pas-ban lévő komponenst telepítenie kell a Delphi alá.

A komponensünknek három property-je lesz. Az első a konvertálandó ikonnak (FIcon:TIcon), a második a bitmap kép (FBitmap:TBitmap), a harmadik pedig egy szín lesz (FBitmapBgColor). Ez utóbbira ezért van szükség, mert az ikonok (.ico) nagy többsége átlátszó, vagyis az átlátszó részen az ikon alatt található háttér látszik. Ez viszont a bitmap képre nem mondható el, ezért a bitmap-ot mindig törölni kell, mielőtt az ikon képét rámásoljuk. Ha viszont már törölni kell, akkor miért ne törölnénk egy tetszőlegesen megadható színnel.

Az ikon konvertálásának menete a következő: az FIcon-ban lévő képet át kell másolnunk a az FBitmap canvas-ára. A másolása előtt azonban törölni kell a canvast, méghozzá az FBitmapBgColor változóban tárolt színnel. Ezt a műveletet az IconToBmp eljárás végzi:

procedure TAsIconToBmp.IconToBmp;
begin
    with FBitmap do
    begin
        Height:=FIcon.Height;
        Width:=FIcon.Width;
        Canvas.Brush.Color:=FBitmapBgColor;
        Canvas.FillRect(Rect(0, 0, Width, Height));
        Canvas.Draw(0, 0, FIcon);
    end;
end;

Először beállítjuk a bitmap méretét az ikon méretére. Utána beállítjuk a színt, majd a FillRect metódussal töröljük a teljes bitmap-ot. Tulajdonképpen egy akkora téglalapot rajzolunk a megadott színnel, ami teljesen lefedi a bitmap canvas-át. Ezután rámásoljuk az ikon képét a bitmap canvas-ára és készen is vagyunk.

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
3333	Windows	Net Shell parancsok	1. rész
3367	Windows	Net Shell parancsok	2. rész
3396	Windows	Net Shell parancsok	3. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 221. oldal

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!