Zoom avec du TJPEG

Version imprimable

17/06/2002, 15h19
Thylia

Zoom avec du TJPEG

Je voudrais avoir des renseignements pour faire du zoom avec un TImage et plus particulièrement avec un TJPEG.

J'ai essayé la propriété scale de TJPEG mais aucun résultat.

Merci d'avance
17/06/2002, 15h35
JEG

Avec le jpeg implementé en Natif sous Builder, une fois l'image affichée dans le TImage, il faut la traiter comme un Bitmap.

pour zoomer, il faut garder une copie (Bitmap) de l'image d'origine dont tu te serviras dans la méthode stretchDraw du canvas du Bitmap d'affichage
17/06/2002, 15h47
Thylia

Pourais-je avoir un bout de code avec la facon de faire du zoom avec un bitmap.
Merci

Bon, je fais tout de mémoire, alors il faudra certainement adapter un peu.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Graphics::TBitmap * l_origine = new Graphics::TBitmap();
Graphics::TBitmap * l_portion_a_zoomer = new Graphics::TBitmap();
TRect rectancle_delim_portion = TRect(....., ....., ....., ....);
 
l_origine->LoadFromFile("c:\\mon_image.bmp");
l_portion_a_zoomer->Canvas->CopyRect(TRect(0, 0, rectancle_delim_portion.width(), rectancle_delim_portion.height()), l_origine->Canvas, rectancle_delim_portion);
 
Image1->Picture->Bitmap->Width = Image1->Width;
Image1->Picture->Bitmap->Height = Image1->Height;
Image1->Picture->Bitmap->Canvas->StretchDraw(TRect(0, 0, Image1->Width, Image1->Height), l_portion_a_zoomer);
 
delete l_origine;
delete l_portion_a_zoomer;