Schrift Größe

[Bjoerk]

dann würd' ich vielleicht einfach was von TStringlist ableiteten, so daß man nachher einfach schreiben kann:

Delphi-Quellcode:

var
  StringListPrintExt: TStringListPrintExt;
begin
  StringListPrintExt := TStringListPrintExt.Create;
  try
    StringListPrintExt.Assign(Memo1.Lines);
    StringListPrintExt.Font.Assign(Memo1.Font);
    StringListPrintExt.Print;
  finally
    StringListPrintExt.Free;
  end;
end;