Transformer une icone en BMP

procedure TForm1.Button1Click(Sender: TObject);
var
Icono:TIcon;
Bitmap:TBitmap;

begin
Icono:=TIcon.create;
Bitmap:=TBitmap.create;
Icono.LoadFromFile('c:kkChip.ico');
Bitmap.Height := Icono.Height;
Bitmap.Width := Icono.Width;
Bitmap.Canvas.Draw(0, 0, Icono);
Bitmap.SaveToFile('c:kkChip.bmp');
Icono.Free;
Bitmap.Free;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 1752 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Graphisme
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur