Mega Code Archive

 

Categories / Delphi / Graphic

 

Convert Icon to bmp file

Title: 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;