Bonjour,
Quelqu'un sait-il comment copier le contenu d'un TPanel dans une image BMP ?
Merci pour vos réponses
Bonjour,
Quelqu'un sait-il comment copier le contenu d'un TPanel dans une image BMP ?
Merci pour vos réponses
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;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager