Discussion :

[PhilLU]

Bonjour,
Je dois copier un écran contenant des champs edit et combobox.
J'utilise le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
bmp := Tbitmap.create;
Onglets.ActivePage:=method;
Onglets.ActivePage.Repaint;
Bmp.Width := method.Width;
Bmp.Height := method.Height;
method.PaintTo(Bmp.Canvas, 0, 0);
sleep(500);   // pas mieux
bmp.SaveToFile(VMProjectPath.text+'P1.bmp');
bmp.free;
WaitBar.position:=WaitBar.position+1;

J'obtiens bien une copie d'écran mais les champs combobox sont vides (les champs edit sont visibles)
J'ai tenté des repaint sur les combo mais pas mieux
J'ai ajouté une temporosation, idem


Merci pour vos idées

Phil

[PhilLU]

Voilà j'ai trouvé ;-)

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
bmp := Tbitmap.create;
Onglets.ActivePage:=method;
Onglets.ActivePage.Repaint;
try
Bmp.Width := method.Width;
Bmp.Height := method.Height;
Srcdc:=GetDC(method.Handle);
try
  BitBlt(bmp.Canvas.Handle,0,0,method.ClientWidth,method.ClientHeight,Srcdc,0,0,SRCCOPY);
finally
  ReleaseDC(method.Handle, Srcdc);
end;
  bmp.SaveToFile(VMProjectPath.text+'P1.bmp');
finally
 bmp.Free;
end;

Bon week-end :-)