Discussion :

[lemkorp]

Bonjour,

Quelqu'un sait-il comment copier le contenu d'un TPanel dans une image BMP ?

Merci pour vos réponses

[dd16]

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
 
 
procedure TForm1.Button1Click(Sender: TObject);
 
var bmp:Tbitmap;
    HDC_Panel:HDC;
    area:Trect;
    Canvas_tmp:TCanvas;
begin
     HDC_panel:=GetWindowDC(panel1.handle);
     bmp:=TBitmap.Create;
     Canvas_tmp:=TCanvas.create;
     Canvas_tmp.Handle:=HDC_Panel;
     bmp.width:=panel1.width;   // dimension du bitmap = dimension du panel
     bmp.height:=panel1.height;
     area:=rect(0,0,panel1.width,panel1.height);
     // copy du fond windows
     bmp.canvas.copyrect(area,Canvas_tmp,area);
     ReleaseDC(Canvas_tmp.handle,HDC_Panel);
     // le bitmap bmp contient le resultat
     // ici, je le copie sur un Timage de la meme taille pour verifier que ca marche
     image1.picture.assign(bmp);
     bmp.free;
     Canvas_tmp.free;
end;

[lemkorp]

C'est exactement ce que je cherchais. Merci.