Schrift Größe

[p80286]

Zitat von Finki:

Was zur Hölle ist Wordwarp?????

Ein Schreibfehler .WordWrap wäre richtig.

Zitat von Finki:

Leerzeilen == zb das hier

text text

text text

genau so meine ich es nicht. Eine Leerzeile hat die Länge 0 (if length(mystring)=0 then ) oder in einem Tstrings.Text gibt es eine solche Zeichenfolge ...#13#10#13#10...

Zitat von Finki:

des wäre zu zeit aufwendig ich hab mir eher was richtung microsoft texteditor vorgestellt

Wenn du damit den guten alten Notepad meinst, der Druckt jede Anzeigezeile und bricht sie notfalls um.

@Bjoerk
Was ist TStringListPrintExt; ?

Gruß
K-H

[Bjoerk]

@K-H

Was gibt's bei was von TStringlist ableiten nicht zu verstehen?
Oder gefällt die der Name der Klasse nicht?
Ext steht für Erweiterung und für was steht wohl Print?

So ungewöhnlich?

Hast du sowas ähnliches nicht zu Hause rumfliegen?

Delphi-Quellcode:

  TStringListPrintExt = class(TStringList)
  private
    FWantPageNumbers: boolean;
    FFontColor: TColor;
    FFontStyle: TFontStyles;
    FFontSize: integer;
    FLineSpacing: integer;
    FMarginLeft: integer;
    FMarginTop: integer;
    FOrientation: TPrinterOrientation;
    FFontName: string;
    FTitle: string;
    FFormFeed: char;
    FUsePageBreak: boolean;
    FUseLineBreak: boolean;
    FOnPrintingStrings: TOnPrintingStrings;
    function GetLineHeight: integer;
    function GetCanvasHeight: integer;
    function CheckForNewPage(const Y: integer; const S: string): integer;
    function GetLineWidth(const S: string): integer;
    function GetMaxLineWidth: integer;
    function TrimRightBlankOnly(const S: string): string;
    procedure DoLineBreak(Result: TStringList);
    procedure SetDefaults;
  public
    procedure Print;
    property WantPageNumbers: boolean read FWantPageNumbers write FWantPageNumbers;
    property FontColor: TColor read FFontColor write FFontColor;
    property FontStyle: TFontStyles read FFontStyle write FFontStyle;
    property FontSize: integer read FFontSize write FFontSize;
    property LineSpacing: integer read FLineSpacing write FLineSpacing;
    property MarginLeft: integer read FMarginLeft write FMarginLeft;
    property MarginTop: integer read FMarginTop write FMarginTop;
    property Orientation: TPrinterOrientation read FOrientation write FOrientation;
    property FontName: string read FFontName write FFontName;
    property FormFeed: char read FFormFeed write FFormFeed;
    property UsePageBreak: boolean read FUsePageBreak write FUsePageBreak;
    property UseLineBreak: boolean read FUseLineBreak write FUseLineBreak;
    property Title: string read FTitle write FTitle;
    property OnPrintingStrings: TOnPrintingStrings
      read FOnPrintingStrings write FOnPrintingStrings;
    constructor Create;
  end;

[p80286]

Zitat von Bjoerk:

Hast du sowas ähnliches nicht zu Hause rumfliegen?

Nee hab ich nicht. Ich hatte angenommen, daß es ab XE4 verfügbar ist, oder zu den Jedis gehört, oder ...
Wenn Du so ein geniales Teil hast, hier findest Du ein dankbares Publikum.

Gruß
K-H

[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.

[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.