[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    From: vincze@ti.com (Michael Vincze)

    Try:

    --------------------------------------------------------------------------------

      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;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]