How to convert an ICO to a BMP

~~~~~~~~~~
Procedure IcoToBmp;
var
   Icon : TIcon;
   Bitmap : TBitmap;
begin
   Icon := TIcon.Create;
   Bitmap := TBitmap.Create;
   Icon.LoadFromFile('c:\picture.ico') ;
   Bitmap.Width := Icon.Width;
   Bitmap.Height := Icon.Height;
   Bitmap.Canvas.Draw(0, 0, Icon ) ;
   Bitmap.SaveToFile('c:\picture.bmp') ;
   Icon.Free;
   Bitmap.Free;
end;
~~~~~~~~~~

Delphi tips navigator:
» Prevent CTRL+DELETE in DBGrid
« Life Cyyle of a Form

• 1
• 2
• 3
• 4
• 5