Discussion :

[calou34]

J'ai plusieurs composants que je peux déplacer à mon gré sur un Panel.
A un moment donné, je veux pouvoir créer un fichier bitmap représentant mon Panel.

voici comment je m'y prend:

Code :

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

1
2
 
Panel.Brush.Bitmap.SaveToFile("monfichier")

Mais ça ne marche pas.
Comment dois-je faire ?

[phenixauthor]

salut,

Voici un ptit code qui te copie ce qu'il y a sur un panel sur un bitmap,
puis sur un Timage pour verifier :

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
 
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;

Voilà, tu peux faire ce que tu veux du bitmap bmp, le sauvegarder etc
avant de le liberer.....
@+

[Sub0]

Bien bien phenixauthor!!!

-> +1

à+

[calou34]

Merci beaucoup, ta solution est parfaite !