Copier une portion de l'affichage d'un composant vers un TImage

**bubulemaster** · 30/01/2008, 17h29

Bonjour,

je souhaite copier une portion de ce qui est afficher dans un composant (un composant père, TForm, TPanel...) dans un de ses fils, une TImage puis dans le canevas du composant.

voici un essai :

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
 
var
    hdcParent, hdcSelf : HDC;
begin
    // Ne donne pas le même hdc pourquoi ?
     //hdcParent :=  Self.Canvas.Handle ;
     hdcParent := GetDC(Self.Handle) ;
 
    //hdcSelf := GetDC(Panel1.Handle) ; // ne fonctionne pas
    hdcSelf := Image1.Canvas.Handle ;
 
     BitBlt(hdcParent, 0, 0, 100, 100, hdcSelf, 0, 0, SRCCOPY);
 
     ReleaseDC(Self.Handle, hdcParent);
     ReleaseDC(Panel1.Handle, hdcSelf);
end ;

et là bien sûr ça ne fonctionne pas. J'ai chercher sur internet et pourtant ça m'a l'air bon.
Quelqu'un aurait-il l'explication ?

**Archimède** · 30/01/2008, 18h46

il n'y a pas de canvas dans un tpanel alors, je ne vois pas comment ça peut marcher. Pour faire simple :

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
 
procedure Tform1.capturer ;
var
bmp:Tbitmap;
begin
bmp:=Tbitmap.Create;
with bmp do begin
width:=100;
height:=100;
end;
BitBlt(bmp.Canvas.handle, 0,0,BMP.WIDTH,BMP.HEIGHT,form1.canvas.handle,0, 0, SRCCOPY);
image1.picture.Bitmap:=bmp;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
capturer;
end;