Discussion :

[Franck26]

Bonjours à tous,
Je cherche à faire un zoom sur un TBitmap.
Je pensais utiliser la propriété Stretch, mais elle n'a pas l'air d'exister pour les TBitmap.

Si quelqu'un à une autre idée, je suis preneur.

+A.

[winow]

Bonjour

Voici une metode pour agrandir/retrecir une image BMP dans un TImage
donc les valeur sont saisie a partir d'un TEdit.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   int i;
 try
   {
    i = StrToInt(Edit1->Text);
    Image1->AutoSize = false;
    Image1->Width = i;
    Image1->Height = i;
    Image1->Stretch = true;
   }
 catch(EConvertError &Exeption)
  {
  ShowMessage("blablabla");
}

[Franck26]

Bon, ben c'est bon,
Je viens de trouver la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonTBimap->Canvas->StretchDraw(TRect(0,0,Width*Zoom,Height*Zoom),TBitmapInitial);

Merci pour ceux qui ont lu ce message.

A+.