Bonjour à toutes et à tous,

Voici mon petit problème, je dispose d'un TImage avec déjà un fond de couleur qui est créé par une autre fiche.

Avec cette image je dois lui appliquer un resize avant de la sauver en *.Jpg.

J'obtiens bien ma sauvegarde mais pas avec le resize.

Voici le code que j'ai testé de toutes les manières possibles !

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure TmainModiffond.bcopierClick(Sender: TObject);
var
  ds : string;
 
 BMP : Tbitmap;
 
begin
 
 ds:= edirectory.text;
 
 if not DirectoryExists(ds) then ForceDirectories(ds);
 
    BMP := Tbitmap.create;
 
    BMP.width := sp1.value; //TSpinedit
    BMP.height := sp2.value;
    BMP.pixelformat := pf24bit;
 
   SetStretchBltMode(BMP.Canvas.Handle,HALFTONE);
 
   BMP.Canvas.StretchDraw(Rect(0,0,sp1.value,sp2.value),BMP);
 
  with TJPEGImage.Create do
  try
  CompressionQuality  := 80; 
 
  ProgressiveEncoding := True; 
 
  Assign(image1.picture.bitmap);
 
  SaveToFile(ds+'\test.jpg');
 
  finally
  Free;
  BMP.Free;
  end;
 
  end;
Merci encore de votre attention,

@+,

Cincap