Convert ICO -> BMP  

Send By: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Date: 03/08/99

Tip accessed 520 times

 



 procedure TForm1.Button1Click(Sender: TObject);
 var
    Icono:TIcon;
    Bitmap:TBitmap;
 begin
   {Creamos para uso temporal}
   {Create to temporal use}
   Icono:=TIcon.create;
   Bitmap:=TBitmap.create;
   {Cargamos el .ICo}
   {Load the .ICO}
   Icono.LoadFromFile('c:\kk\Chip.ico');
   {Hacemos la conversion}
   {Make the conversion}
   Bitmap.Height := Icono.Height;
   Bitmap.Width := Icono.Width;
   Bitmap.Canvas.Draw(0, 0, Icono);
   {Grabamos el BMP}
   {Save the BMP}
   Bitmap.SaveToFile('c:\kk\Chip.bmp');
   Icono.Free;
   Bitmap.Free;
 end;