collage d'image sans effet sauf si je redimensionne ma fenêtreRésolu

Question

bonsoir &#224; tous,
Je cr&#233;e un progamme de traitement d'image et je bloque sur la fonction coller.
lorsque que je colle une image, il n'y a pas d'effet sauf si je redimensionne la fen&#234;tre.
j'ai essayer en mettant :
form1.refresh;
apres mon traitement mais il n'y a aucun effet.
j'utilise delphi 6.
merci de votre aide
voila le bout de code:

procedure TForm1.Coller1Click(Sender: TObject);
var
FormImage: Tpicture;
begin
FormImage:=Tpicture.Create;
FormImage.Assign (Clipboard);
   (ActiveMdiChild as TIma).Data.set_Picture(self,FormImage);
formImage.Free;
end;

Si il faut je mettrais mes sources.

sraidj · Accepted Answer

merci de ton aide
en fait c'&#233;tait tout b&#234;te.
j'ai rajout&#233; 
ActiveMdiChild.Refresh;

DRJEROME · Answer

si tu veux que le changement soit instantané, il faut mettre du code dans le OnPaint du Form il faudra mettre la variable "FormImage: Tpicture;" en variable générale déclarée avant "implementation". tu transformes ton événement TForm1.Coller1Click :

var Form1:TForm1; FormImage: Tpicture; implementation {$R *.DFM} // plus loin : procedure TForm1.Coller1Click(Sender: TObject); begin FormImage:=Tpicture.Create; FormImage.Assign (Clipboard); ActiveMdiChild.Paint;//ou l'équivalent formImage.Free; end;

dans l'événement OnPaint du Form en question, on peut mettre quelque chose du style : (tu corriges car je ne connais pas ton code, ce sont juste des idées directrices)

if unit1.FormImage<>nil then (ActiveMdiChild as TIma).Data.set_Picture(self,FormImage);

si ça peut te donner une orientation d'idées... DrJerome

Collage d'image sans effet sauf si je redimensionne ma fenêtre

2 réponses

Votre réponse

Discussions similaires