Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#15

AW: [PDF] Absatzkontrolle implementieren - Anregungen erbeten

  Alt 4. Feb 2016, 08:25
Ich könnte das auch am Frontend machen, aber da habe ich keine Idee, wie ich geschickt DRY-Code vermeiden kann. Beispiel aus dem Hut:
Delphi-Quellcode:
PDFPrinter.Font := pfHelvetica;
PDFPrinter.FontSize := 28;
Hoehe := PDFPrinter.TextHeight('Hier kommt jetzt ein Text, der ggf. auch umgebrochen wird.');
PDFPrinter.Abstand := 5;
Hoehe := Hoehe + PDFPrinter.Abstand;
PDFPrinter.FontSize := 12;
Hoehe := Hoehe + PDFPrinter.TextHeight('X');
if not PDFPrinter.FitsOnPage(Hoehe) then
  PDFPrinter.NewPage;
So weit, so gut, aber für die tatsächliche Ausgabe müsste ich die ganzen Zuweisungen jetzt noch einmal machen. Wenn man da nicht aufpasst, rechnet man mit Schriftgröße 28, gibt aber in Größe 32 aus, das finde ich inakzeptabel.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat