Bonjour,

J'essaye désespérément d'imprimer un Form.
Il semble que la méthode Print (qui existe en Delphi) n'existe pas pour Lazarus.
Je me suis tourné vers GetFormImage ...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
procedure TForm1.BtnPrintClick(Sender: TObject);
var
  BitMap : TBitMap;
begin
  BitMap := TBitMap.Create;
  BitMap := Form1.GetFormImage;
  BitMap.SavetoFile('toto.bmp');
end;
...mais là je me retrouve avec un fichier toto.bmp contenant une image bitmap de la bonne dimension mais totalement noire.

(Je comptais ensuite imprimer le fichier toto,bmp)

Quelqu'un as-t-il une idée ou un lien pour m'aider à imprimer mon Form ?

D'avance merci.

Danilo Uccelli