Bonjour à toutes et à tous,

Dans mon application, je charge dans 3 Timage, une image différente.
(ImageSource1,ImageSource2,ImageSource3)

Au chargement, j'aimerai pouvoir faire avec ces 3 images une dimension standard soit H 400 et largeur 233.

Puis, dans une image appellée image finale, j'aimerai assembler ces 3 images et sauvegarder en bmp et jpg.

Pour l'assemblage, voici mon essai qui ne fonctionne pas !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
procedure TForm1.BassemblerClick(Sender: TObject);
begin
{On assemble}
   // création de ImageCibleBmp
   try
       ImageCibleBmp  := TBitmap.Create;
       ImageCibleBmp.Width  := ImageSource1.Picture.Width;
       ImageCibleBmp.Height := ImageSource1.Picture.Height;
 
       ImageCibleBmp.Canvas.Draw(0,0,Imagesource2.Picture.Graphic);   //Image 2
       ImageCibleBmp.Canvas.Draw(NouvLargeur,0,Imagesource3.Picture.Graphic); //Image 3
       // et on recopie ce résultat dans notre ImageFinale
       ImageFinale.Stretch:=true;
       ImageFinale.Proportional:=true;
       ImageFinale.Picture.Assign(ImageCibleBMP);
 
        if SPD1.Execute then
          ImageFinale.picture.SaveToFile(Spd1.FileName);
   finally
      ImageCibleBmp.Free;
   end;
end;
Si quelqu'un avait une solution merci d'avance,

@+,

Cincap