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;