REDIMENSIONNER UN BITMAP

Messages postés
2
Date d'inscription
dimanche 22 avril 2007
Statut
Membre
Dernière intervention
4 mai 2009
- - Dernière réponse : cs_darkcodersc
Messages postés
7
Date d'inscription
lundi 17 mars 2008
Statut
Membre
Dernière intervention
20 novembre 2009
- 24 sept. 2009 à 17:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20330-redimensionner-un-bitmap

cs_darkcodersc
Messages postés
7
Date d'inscription
lundi 17 mars 2008
Statut
Membre
Dernière intervention
20 novembre 2009
-
[quote]Difficile de faire plus simple, non ?[quote]

c'ete drole ! digne n'un comic...
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
24 -
procedure TForm2.Button1Click(Sender: TObject);
var
bmp1: TBitmap;
begin
bmp1 := TBitmap.Create;
try
bmp1.LoadFromFile('butterfly.bmp');
//une copie de bmp1 redimensionnée sera mise
// dans l'image sur la fiche
ResizeBmpImage(bmp1, image1.Picture.Bitmap, image1.Height);
finally
bmp1.Free;
end;
end;

Difficile de faire plus simple, non ?
29031980
Messages postés
2
Date d'inscription
dimanche 22 avril 2007
Statut
Membre
Dernière intervention
4 mai 2009
-
Mais comment utiliser cette procédure?