Schrift Größe

[Sir Rufo]

@Bjoerk

So macht man das aber nicht. Man baut sich eine abstrakte Klasse, die eine TStrings-Instanz ausgeben kann.
Eine konkrete Ableitung davon erledigt die Ausgabe auf einen Drucker.

[Furtbichler]

Das geht mit einem TMemo nicht, denn die Zeilenumbrüche bei WordWrap=True werden im Text nicht gespeichert.

Wieso versuchst Du dich nicht an TRichEdit? Ich meine, das es dafür sogar eine Demo gibt.

[Bjoerk]

Rufo, ich hab die Klasse seinerzeit halt von TStringlist abgleitet, fand ich irgendwie einfacher. Wie auch immer. K-H, ich hab auch nicht den Anspruch geniale Klassen zu erstellen. Mein Code ist an der Stelle eh völlig uninteressant. War nur ein Vorschlag. Hab den Code auch absichtlich nicht vollständig gepostet, fänd ich dem TE gegenüber unfair. Schließlich sucht TE hier Unterstützung für seine Variante (die TE demnächst posten wollte) und ich möchte TE nicht meine aufschwatzen.

[Furtbichler]

Wäre aber flexibler, eine Klasse zu schreiben, die eine TStringlist ausgeben kann. Die kann man dann auch mit der Eigenschaft 'Memo.Lines' füttern. Eine abstrakte Klasse wird dazu zunächst einmal nicht benötigt. Eine reicht, imho.

[MeierZwoo]

Die umbrochenen Zeilen des Memos sind doch in TMemo.Lines : TStrings; enthalten. Wenn also das Memo proportional auf dem Drucker ausgegeben werden soll (wobei sich der TE mit proportional oder nicht nie so richtig mit sich selbst einig war) reicht es doch:

a) einen Skalierungsfaktor zwischen TMemo-Breite und Drucker-Nutzen-Breite zu ermitteln (Drucker-Nutzen-Breite = druckbarerer Bereich in x, abzüglich Heftrandbereich (wird heute aber eh meist weggelassen), abzüglich einer Reserve, falls die Druckausgabe etwas länger läuft),

b) mit diesem Skalierungsfaktor die Schriftgröße (gleiche Schrift) und den Zeilenabstand für den Drucker setzen, eben proportional zum Memo,

c) für den Druck den y-Startwert und die max. Zeilen/Seite festlegen (Seiten-Startwerte), weil wohl die wenigsten heutigen Drucker einen automatischen Seitenvorschub machen, und wenn, dann mit verstümmelten Seiten-End- und -Anfangszeilen,

d) und dann die TMemo.Lines von Anfang [0] bis Ende [length-1] abklappern, bei jeder Zeile auch einen Zeilenvorschub machen (y erhöhen), egal ob was drin ist in der Zeile oder nicht (Thema "Leerzeilen"), dabei den y-Wert mitzählen und rechtzeitig vor Erreichen des max-y-Wertes die Seite abschließen (Printer.NewPage; ) und eine neue beginnen (Seiten-Startwerte resetten) (Falls nicht das Ende der Lines erreicht sind).

Dabei fällt nur noch die extrem schwierige Entscheidung an, das Ganze in Pixeln oder mm zu machen (ich perönlich verwende grundsätzlich mm, auch weil ich beim Testdruck so schlecht Pixel messen kann und weil mm, einmal gemäß der Druckerauflösung gesetzt, auch immer mm sind).

Evtl. kann man, wie von mir auch ganz am Anfang erwähnt, eine Zeilenlängenmessung der längsten Zeile (nicht die meisten Zeichen sondern die größte Laufweite (ausgegebene Zeilenbreite)) in der Memo.canvas machen und diese längste Zeile dann in der Printer.canvas "nachmessen", um sicher zu gehen, daß die Schriftgröße für den Drucker stimmt. Dabei muß aber auch der Schrift-Stil berücksichtigt werden.

Wenn der TE allerdings das Memo nicht proportional, sondern mit festgelegten Schriftgrößen ausgeben will, kann er ja TMemo.Text : string; verwenden und muß dann eben neu umbrechen. Ansonsten gilt außer dem jeweilgen Zeilen-Textinhalt dasselbe wie oben.

FF beim Neuumbrechen mit nicht-fixed Schriften.

[Furtbichler]

Zitat von MeierZwoo:

Die umbrochenen Zeilen des Memos sind doch in TMemo.Lines : TStrings; enthalten.

Sind sie bei 'Wordwrap=true' wohl angeblich nicht. Dann ist der Zeilenumbruch auf dem Bildschirm einfach reine Kosmetik.

[Finki]

Zitat von Furtbichler:

Wieso versuchst Du dich nicht an TRichEdit? Ich meine, das es dafür sogar eine Demo gibt.

Wenn ich mich richtig erinnere ist das doch eine erweiterung, richtig oder? und das problem ist die hat mein Professor bei dem wir das abgeben müssen nicht .....

[Furtbichler]

Zitat von Finki:

das problem ist die hat mein Professor bei dem wir das abgeben müssen nicht .....

Doch, hat er. ist nämlich Standard-Delphi (glaube ich). Aber wenn es eine Vorgabe ist, dann musst Du eben TStrings/TMemo nehmen.

[Finki]

Zitat von Furtbichler:

Doch, hat er. ist nämlich Standard-Delphi (glaube ich). Aber wenn es eine Vorgabe ist, dann musst Du eben TStrings/TMemo nehmen.

aber wir benutzen leider kein delphi sondern Lazarus. (http://wiki.freepascal.org/RichMemo)

vorgegeben ist gar nichts wir müssen einfach ein "sinnvolles" programm schreiben welches funktioniert