Strechdraw d'un Bitmap dans un TImageRésolu

Question

Bonjour à tous !!

Je me trouve face a un chti problème !!
J'écris différents textes ( avec textout ) sur un TBitmap (Bitmap1)
Ce bitmap possède des dimensions assez grande, bref je souhaiterais le transferer et donc faire un stretching, dans un TImage, afin de pouvoir l'imprimer (les dimensions de mon TImage sont fixés )

J'ai donc voulu faire un stretching de mon Bitmap vers mon TImage, or il ne se passe rien !!!!
je vous montre mon code

procedure TForm1.formcreate(Sender: TObject);
  begin
    bitmap1:=TBitmap.Create;
    bitmap1.Width:=2480;
    bitmap1.Height:=3508;
  end;

procedure TForm1.FormActivate(Sender: TObject);
  begin

    decrypte_file_and_affiche(); // appel de la fonction qui écris sur le canvas Bitmap
    bitmap1.Canvas.StretchDraw(bitmap1.Canvas.ClipRect,image1.Picture.Graphic); // je stretch !
    image1.Picture.Assign(bitmap1); // et je recopie ( et sa marche po !!! lol )
  end;

Voila voila !! Je vous remercie tous d'avance et vous souhaite une bonne journée !!
----( | TanK | )----

Cirec · Accepted Answer

Salut,
à mon avis tu te compliques la vie 

Essaye voir ça :

Tu mets les propriétées Stretch et proportional de ton TImage à True

puis tu fais ceci :

Image1.Picture.Bitmap.Assign(Bitmap1);

@+
Cirec

cs_matrix1 · Answer

ça marche pas dans touts les cas.
éssay ça

var rec:Trect;
btimap1:Tbitmap;
begin
 bitmap1:=TBitmap.Create;
bitmap1:=image1.picture.Bitmap;
Rec := Rect(0,0, 3508,2480);
image1.picture.Bitmap.Canvas.StretchDraw(Rec,Bitmap1);
//     do not assigne image1.Picture.Assign(bitmap1); 
bitmap1.free;
end;

cs_matrix1 · Answer

désolé j'ai pas remarqué que ce message est encient :p

Strechdraw d'un Bitmap dans un TImage

3 réponses

Votre réponse

Discussions similaires