Einzelnen Beitrag anzeigen

Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#8
  Alt 9. Okt 2002, 22:20
Ich würde auch eher die Methor Pinter.Canvas aus der Unit Printers empfehlen. Diese Variante ist um weites flexible als mit AssignPrn und ähnlichen Funktionen zu arbeiten

Ist auch recht einfach. Nur mal eine Idee, ist jetzt nicht getestet

Code:
uses
  Printers;
...

var
  R: TRect;
  I, LineHeight: Integer;
begin
  Printer.BeginDoc;
  try
    LineHeight := Printer.Canvas.TextHeight('gGyYjJtT') * 3 div 2;
    R.Left := 100;
    R.Right := Printer.PageWidth - 200;
    R.Top := 100;
    for I := 0 to Pred(ListBox1.Items.Count) do
    begin
      Printer.Canvas.TextOut(R.Left, R.Top, ListBox1.Items[I]);
      R.Top := R.Top + LineHeight;
    end;
    R.Top := R.Top + 25;
    Printer.Canvas.CopyRect(R, Bitmap.Canvas, Bitmap.Canvas.ClipRect);
  finally
    Printer.EndDoc;
  end;
end;
Keine Garantien
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat