Icon aus TBitmap erstellen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;
begin
Application.Icon := CreateIconFromBmp(Bitbtn1.Glyph);
end;