Wie geht das: rechtsbündiger Text mit fpPDF?

[kirchfritz]

Hallo,

ich möchte mit Hilfe von fpPDF eine Rechnung im PDF-Format erstellen.
Das klappt soweit so gut, nur wenn ich rechtsbündigen Text ausgeben will, versagen meine Kenntnisse.

Es gibt scheinbar nur WriteText(x,y, Zeichenkette...). Damit kann man an einer Stelle X,Y auf der Seite einen Text ausgeben.
Ich müsste aber irgendwie an die Länge der Zeichenkette "rankommen" bei gegebenem Font und gegebener Fontgröße.
Aber selbst das schaffe ich nicht.

Weiß jemand Rat, wie ich den Text rechtsbündig setzen kann?


Fritz

[theo]

Ich müsste aber irgendwie an die Länge der Zeichenkette "rankommen" bei gegebenem Font und gegebener Fontgröße.

Vielleicht hilft dir GetTextDimsMm von hier:
viewtopic.php?p=135742#p135742

Habe ich aber länger nicht mehr ausprobiert.

[Joh]

hmmm,
eigentlich hat jede pdf-Komponente eine Eigenschaft TextWidth...

Bei fppdf gibt es GetTextWidth; das müsste es doch sein?!

[kirchfritz]

hmmm,
eigentlich hat jede pdf-Komponente eine Eigenschaft TextWidth...

Bei fppdf gibt es GetTextWidth; das müsste es doch sein?!

Ich und mein Compiler sind der Meinung, dass es die Methode GetTextWidth in fppdf nicht gibt.

Hier mein Beispielprogramm:

Code: Alles auswählen

program rechtsbuendigerText;

{$mode objfpc}{$H+}

uses
  fppdf, fpttf;

var
  FontID, FontBoldID: Integer;
  Document: TPDFDocument;
  Section: TPDFSection;
  Page: TPDFPage;
begin
  Document := TPDFDocument.Create(nil);
  Document.FontDirectory := 'C:\Windows\Fonts';
  Document.Options := Document.Options + [poPageOriginAtTop, poNoEmbeddedFonts];
  Document.StartDocument;
  FontID := Document.AddFont('arial.ttf', 'Arial');
  FontBoldID := Document.AddFont('arialbd.ttf', 'Arial Bold');

  Section := Document.Sections.AddSection;

  Page := Document.Pages.AddPage;
  Section.AddPage(Page);

  Page.SetFont(FontID, 11);
  Page.WriteText(20, 20, UTF8Decode('Die nachfolgenden Zahlen sollen rechtsbündig zu diesem Text sein'));

  Page.SetFont(FontBoldID, 11);
  Page.WriteText(20, 30, '999999999');
  Page.WriteText(20, 36, '88888888');
  Page.WriteText(20, 42, '7777777');
  Page.WriteText(20, 48, '666666');

  Document.SaveToFile('output.pdf');
end.   

Möge der, der weiß, wie man GetTextWidth hier aufruft, dies direkt hier eintragen.
Bin für jeden Hinweis dankbar
Fritz

[fliegermichl]

Ich hab mal im Ordner fpcsrc\packages\fcl-pdf nach "TextWidth suchen lassen und da findet sich in fpcsrc\packages\fcl-pdf\src\fppdf.pp in Zeile 444 in der Klasse TPDFText die function GetTextWidth : Single; Damit muss sich doch was anfangen lassen?

[kirchfritz]

Ich müsste aber irgendwie an die Länge der Zeichenkette "rankommen" bei gegebenem Font und gegebener Fontgröße.

Vielleicht hilft dir GetTextDimsMm von hier:
viewtopic.php?p=135742#p135742

Habe ich aber länger nicht mehr ausprobiert.

Wenn ich pdfhelpers in mein Programm einbaue bekomme ich beim Kompilieren seltsame Fehlermeldungen, mit denen ich nicht umzugehen weiß:

Screenshot 2025-06-03 172313.png (172.19 KiB) 450 mal betrachtet

Ist jetzt auch nicht unbedingt die ersehnte Hilfe!

[wp_xyz]

Ich hab mal im Ordner fpcsrc\packages\fcl-pdf nach "TextWidth suchen lassen und da findet sich in fpcsrc\packages\fcl-pdf\src\fppdf.pp in Zeile 444 in der Klasse TPDFText die function GetTextWidth : Single; Damit muss sich doch was anfangen lassen?

Guckst du aber zwei Zeilen höher, dann steht da "private" - das heißt, die Funktion ist von außen gar nicht aufrufbar. Es gibt auch ein SetTextWidth - das Pärchen klingt nach Getter/Setter einer Property "TextWidth", aber diese gibt es auch nicht. Könnte es sein, dass der Entwickler vergessen hat, die Property zu deklarieren?

[Jorg3000]

Hi!
An dem Thema habe ich mir vor drei Jahren schon die Zähne ausgebissen.
Letztlich hat es damit geendet, dass ich mittels der Unit fpTTF den gleichen Zeichensatz wie im PDF rausgesucht habe und mit Angabe des DPI vom PDF die Zeichenbreiten vom Zeichensatz habe errechnen lassen.
Also alles zu Fuß. Es war nicht trivial, wenn man den richtigen Zeichensatz ggf. für Fett und Kursiv finden will.
Ich würde gerne Quellcode bereitstellen, aber es ist bei mir mit anderen Klassen verwoben, so dass ich es jetzt nicht einfach rauskopieren kann.

[theo]

Ist jetzt auch nicht unbedingt die ersehnte Hilfe!

Ich denke schon. Man muss es halt etwas anpassen. Das war die Version für LCL, nicht für ein Kommandozeilenprog.
Das PDF Zeug ist immer eine Tüftelei, da muss man sich etwas hineindenken.
Probier nochmal so (Nur auf Linux getestet).

[wp_xyz]

Ich habe mir jetzt das testfppdf Demo-Programm im fppdf-Ordner angesehen, und da gibt es eine Routine TextInABox(), die ein passgenaues Rechteck um einen vorher ausgegebenen String ausgibt. Diese muss natürlich die Textgröße bestimmen, und daher findet man dort alles. Und wenn man alles unnötige weglässt, kommt man auf folgende allgemein verwendbare Funktion (die man vielleicht noch effizierter schreiben kann, damit man nicht immer Fontname und Größe übergeben muss):

Code: Alles auswählen

uses
  Types, ...
  
function PDFTextSize(const AFontName: String; const APointSize: integer;
  const AText: String): TPointF;
var
  lFC: TFPFontCacheItem;
  lHeight: single;
  lDescenderHeight: single;
  lTextHeightInMM: single;
  lWidth: single;
  lTextWidthInMM: single;
  lDescenderHeightInMM: single;
begin
  lFC := gTTFontCache.Find(AFontName, False, False);
  if not Assigned(lFC) then
    raise Exception.Create(AFontName + ' font not found');

  lHeight := lFC.TextHeight(AText, APointSize, lDescenderHeight);
  { convert the Font Units to mm as our PDFPage.UnitOfMeasure is set to mm. }
  lTextHeightInMM := (lHeight * 25.4) / gTTFontCache.DPI;
  lDescenderHeightInMM := (lDescenderHeight * 25.4) / gTTFontCache.DPI;

  lWidth := lFC.TextWidth(AText, APointSize);
  { convert the Font Units to mm as our PDFPage.UnitOfMeasure is set to mm. }
  lTextWidthInMM := (lWidth * 25.4) / gTTFontCache.DPI;

  Result.X := lTextWidthInMM;
  Result.Y := lTextHeightInMM + lDescenderHeightInMM;
end;

Die Routine wird in dem beigefügten Mini-Programm, einer Modifikation von testfppdf für rechtsbündige Textausgabe, angewendet, so dass man sieht, dass sie funktioniert.

[EDIT]
Sorry, theo, habe gerade erst gesehen, dass in deinen PDFHelpers genau dasselbe steht...

[kirchfritz]

Ich denke schon. Man muss es halt etwas anpassen. Das war die Version für LCL, nicht für ein Kommandozeilenprog.
Das PDF Zeug ist immer eine Tüftelei, da muss man sich etwas hineindenken.
Probier nochmal so (Nur auf Linux getestet).

Ich habe theos Variante erfolgreich umgesetzt.
Siehe Dateianhang

PDF_Archiv_v2.zip

(27.66 KiB) 54-mal heruntergeladen

output.pdf

(25.05 KiB) 54-mal heruntergeladen

Ausstehend der Test, ob es auch mit Nicht-Standard Fonts funktioniert.
Danke theo!

[theo]

Ausstehend der Test, ob es auch mit Nicht-Standard Fonts funktioniert.

Eigentlich gibt es drei Arten in diesem System.

PDF Standard (Eingebaute) Fonts. Die "Metrics" dafür stehen in "fontmetrics_stdpdf.inc"
Bsp: StdFtHelvetica := Document.AddFont('Helvetica');

Systemfonts (Installierte)
Bsp: ArialItalic := Document.AddSystemFont('Arial', False, True);

Andere Fontdateien, die nicht installiert sind.
Bsp: FreeSans := Document.AddFont('/home/theo/lazarus/projects/pdf/fonts/FreeSans.ttf', 'FreeSans');

[Zvoni]

Ich hab mal im Ordner fpcsrc\packages\fcl-pdf nach "TextWidth suchen lassen und da findet sich in fpcsrc\packages\fcl-pdf\src\fppdf.pp in Zeile 444 in der Klasse TPDFText die function GetTextWidth : Single; Damit muss sich doch was anfangen lassen?

Oder besser in
fpcsrc\packages\fcl-pdf\src\fpttf.pp in Zeile 44ff (TFPFontCacheItem)
Da ist TextWidth Public

[kirchfritz]

Ausstehend der Test, ob es auch mit Nicht-Standard Fonts funktioniert.

Eigentlich gibt es drei Arten in diesem System.

PDF Standard (Eingebaute) Fonts. Die "Metrics" dafür stehen in "fontmetrics_stdpdf.inc"
Bsp: StdFtHelvetica := Document.AddFont('Helvetica');

Systemfonts (Installierte)
Bsp: ArialItalic := Document.AddSystemFont('Arial', False, True);

Andere Fontdateien, die nicht installiert sind.
Bsp: FreeSans := Document.AddFont('/home/theo/lazarus/projects/pdf/fonts/FreeSans.ttf', 'FreeSans');

Das Laden eines nicht installierten Font funktioniert irgendwie nicht so richtig:
Das ist mein Versuch:

Code: Alles auswählen

  if not FileExists('\fonts\NotoSansSymbols-Regular.ttf') then
  begin
    Writeln('Fontdatei nicht gefunden: '+ 'fonts\NotoSansSymbols-Regular.ttf');
    exit;
  end;
  AndererFontID := Document.AddFont('fonts\NotoSansSymbols-Regular.ttf','NotoSansSymbols-Regular');

Document.AddFont wirft exception mit "font not found", obwohl die TTF-Datei im Dateisystem vorhanden.
Was mache ich verkehrt?

[theo]

Was sind das für Pfade? Windows?
Bei FileExists hast du ein "\" am Anfang, bei AddFont nicht.
Mach doch vollständige Windows Pfade (C:\Meinpfad...).