Home » Tipps & Tricks » Grafik » Konvertierungen » Icon aus TBitmap erstellen
Icon aus TBitmap erstellen
Diese Funktion erstellt ein Icon aus einer Bitmap.
function CreateIconFromBmp(Bmp: TBitmap): TIcon; begin with TImageList.CreateSize(Bmp.Width, Bmp.Height) do try {$IFDEF VER90} with Bmp do AddMasked(Bmp, Canvas.Pixels[Width-1, Height-1]); {$ELSE} AddMasked(Bmp, Bmp.TransparentColor); {$ENDIF} Result := TIcon.Create; GetIcon(0, Result); finally Free; end; end;
Aufgerufen werden kann die Funktion Beispielsweise so:
procedure TForm1.Button1Click(Sender: TObject); begin Application.Icon := CreateIconFromBmp(Bitbtn1.Glyph); end;