printen met Free Pascal (Lazarus)

[Biirra]

heej hallo,
ik heb nu nog een probleem. ik wil graag een print functie zetten in mijn programmatje. het komt ook onder een button te staan. het moet samen werken met een TListBox. wat er in de TList staat moet uitgeprint worden via de printer.

ik heb wel al de print optie in de programma, ik krijg hem alleen niet onder de button.
de build in codes daarvan kan ik niet vinden.

kortom. ik heb een button, als je op de button klikt moet hij de items in de TListbox uitprinten.
hoop dat iemand me kan helpen

alvast bedankt, Biirra

 

[peter200]

Hallo Biirra,

Probeer dit eens, ik heb het niet getest. Je moet Printers nog toevoegen aan de lijst van uses als dat niet al gedaan hebt.

procedure TForm1.Button3Click(Sender: TObject);
var
          hPrinter   : TPrinter;
          i : Integer;

begin
     hPrinter := Printer;
     hPrinter.BeginDoc;
     hPrinter.Canvas.Font.Size := 10;
     hPrinter.Canvas.Font.Color := clBlack;

     i := 0;
     while i < ListBox2.Items.Count do
     begin
          hPrinter.Canvas.TextOut(20, 20 + (hPrinter.Canvas.TextHeight('X') * i), ListBox2.Items[i]);
          inc(i);
     end;

     hPrinter.EndDoc;
end;


initialization
  {$I unit1.lrs}


end.

 

[Biirra]

misschien dat ik het verkeerd gebruik :S dat weet ik niet cker :S maar hij krijgt een mega error, waardoor het hele programma crashed.

een printer class word zichtbaar en daaring krijg ik in deze lijn een error.

procedure TPrinter.CheckPrinting(Value: Boolean);
begin
if Printing<>Value then !!!! <<<----- !!!! ''zegt: external:SIGSEGV''
begin
if Value then
raise EPrinter.Create('Printer not printing')
else
raise Eprinter.Create('Printer print');
end;
end;