[DELPHI] Copier le contenu d'un panel dans un autre ?

Copier le contenu d'un panel dans un autre ? [DELPHI] - Delphi/Pascal - Programmation

Marsh Posté le 19-05-2012 à 13:56:35    

Bonjour,
 
j'ai un programme qui affiche une image d'une vidéo dans un panel.
Je voudrais alors copier cette image (ce qui est donc affiché dans ce panel) dans un autre panel.
Mais je n'y parvient pas.
 
J'avais pensé à cela, mais j'obtiens juste un rectangle noir en copie!!  
 

Citation :

jvpanel2.canvas.copymode:=cmSrcCopy;
 jvpanel2.Canvas.CopyRect(
    Rect(0,0,jvpanel2.Width,jvpanel2.Height),
    jvpanel1.Canvas,
    Rect(0,0,jvpanel1.Width,jvpanel1.Height)
    );


 
j'ai donc utilisé des jvpanels, l'image s'affiche bien dans le jvpanel1 que je voudrais copier dans le 2.
 
Merci pour votre aide.

Reply

Marsh Posté le 19-05-2012 à 13:56:35   

Reply

Marsh Posté le 21-05-2012 à 20:56:46    

Salut
 
c'est surement pas le plus propre mais si tu passe par un TBitMap?
 

Code :
  1. var:Bmp :TBitMap;
  3. ---
  6. Bmp := TBitMap.Create;
  8. try
  9.   Bmp.Width  :=  jvpanel1.Width;
  10.   Bmp.Height  :=  jvpanel1.Height;
  11.   Bmp.PixelFormat:=pf24bit;
  12.   Bmp.Canvas.Draw(0,0,jvpanel1); // ou Bmp.Canvas.Draw(0,0,jvpanel1.canvas); ?
  14.   // et si le bitmap n'est pas vide...
  16.   jvpanel2.Width := Bmp.Width;
  17.   jvpanel2.Height := Bmp.Height;
  18.   jvpanel2.PixelFormat:=pf24bit;
  19.   jvpanel2.Canvas.Draw(0,0,Bmp);
  21. finally
  22.   Bmp.free;
  24. end;


 
biensur c'est pas testé mais ça devrait tourner avec peu de modifs


Message édité par Flagad'aware le 21-05-2012 à 20:56:58
Reply

Marsh Posté le 21-05-2012 à 22:13:02    

Merci, je testerai cela.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed