Discussion :

[tomfoot]

J'affiche une image au format jpg dans un objet TImage en utilisant l'unité jpeg.

Je voudrais pouvoir modifier cette image (par exemple faire un zoom * 2) et la sauvegarder.

Je ne sais pas de quelle manière je dois m'y prendre pour la sauvegarder à partir de l'objet TImage modifié.
Merci de votre aide.

[tourlourou]

SaveToFile, le problème étant que tu sauves l'image originale !
il faut récupérer le bitmap interne qui sert à l'affichage : j'avais vu il y a peu une méthode en transtypant en T(quelquechose)Graphic... j'ai cherché, mais pas retrouvé : c'est un objet qui a accès au Bitmap interne qui est recopié lors du Repaint

[EDIT]ça y est, j'ai retrouvé la solution de waskol :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
type TPublicGraphicControl=class(TGraphicControl); 
 
procedure TTonCompo.Paint; 
begin 
  inherited Paint; 
  //utilise le canvas du TGraphicControl (le vrai Canvas du TImage) 
  With TPublicGraphicControl(Self).Canvas do 
  begin 
    Pen.Color := clRed; 
    Brush.Color := clRed; 
    Rectangle(0,0,Width,Height); 
  end;