Forum: Programmieren allgemein
by runningsoft,
3. Mär 2022
Vielen Dank für Eure Hinweise. Leider hatte mich das irgendwie doch nicht weitergebracht.
Hab mir daraufhin SynPDF noch einmal etwas genauer angeschaut und bin auf eine zweite Methode gestoßen, MetaFiles zu rendern:
lPdf.Canvas.RenderMetaFile(TempMetafile, 1, 0, 0, 0,lPdf.UseMetaFileTextPositioning, lPdf.KerningHScaleBottom, lPdf.KerningHScaleBottom,tcNeverClip);
Und genau das hat...
Forum: Programmieren allgemein
by runningsoft,
2. Mär 2022
Mit dem Bildschirm hat es anscheinend tatsächlich etwas zu tun.
Auf einem 4k-Monitor hab ich den Effekt wie beschrieben, auf einem FullHD-Monitor sind plötzlich gar keine Bilder mehr zu sehen, nur noch Text. Aber der über die volle Blattgröße, da ist nichts abgeschnitten oder fehlt.
Ich initialisiere den MetafileCanvas mit
MetaFileCanvas.Font.PixelsPerInch :=...
Forum: Programmieren allgemein
by runningsoft,
2. Mär 2022
Hallo Delphianer,
ich bastele gerade an einer Druckvorschau-Komponente. Zum Erzeugen der einzelnen Druckseiten nutze ich TMetafile, Druckvorschau und Ausdruck funktioniert so wie es sein soll.
Nun möchte ich als Sahnehäubchen noch eine direkte PDF-Ausgabe dabei haben - also flugs SynPDf eingebunden.
Mit folgendem Code gebe ich den Inhalt des Metafiles seitenweise als PDF-Dokument aus:
...