|
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Convert Icon to bmp-file
Use standard properties of TBitmap class:
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
Image1.Picture.Icon:=Application.Icon;
Bitmap:=TBitMap.Create;
with Bitmap do
begin
PixelFormat:=pf24bit;
Height:=Application.Icon.Height;
Width:=Application.Icon.Width;
Canvas.Draw(0, 0, Image1.Picture.Graphic);
end;
if SaveDialog1.Execute then
Bitmap.SavetoFile(SaveDialog1.FileName);
end;
-
More for developers
