Memo: Text unten beginnen lassen?

[Pseudemys Nelsoni]

Moin,

wie kann ich wenn ich per "Memo.lines.add" eine line hinzufüge und noch keine einzige in dem Memo existiert, unten beginnen lassen, statt wie üblich oben?

[evilboy]

Die einzige Möglichkeit, die mir gerade einfällt, ist die Memo zuerst mit leeren Füllzeilen zu füllen, damit es unten dann anfängt - wenn es ein normales TMemo ist. So machen es mIRC und HydraIRC auch.

[Pseudemys Nelsoni]

moin evilboy.

jo schon, aber woher weiss ich wieviele zeilen? ich meine ich muss das ja irgendwie mit der grösse des memos berechnen

[SirThornberry]

anhand der schriftart kannst du die Höhe ermitteln (Canvas.TextHeight(YourText)). Damit weißt du dann wie hoch eine Zeile ist und kannst berechnen wieviel Zeilen in dein Memo passen.

[marabu]

Das Memo hat übrigens kein Canvas, nimmt man aber das Canvas der Form, dann sollte im Memo der ParentFont verwendet werden. YourText sollte Zeichen mit Über- und Unterlängen enthalten. Außerdem wird die wirklich letzte Zeile immer leer bleiben, da die Memo-Komponente grundsätzlich umbricht.

Wenn im Memo eine Art Abspann vorbeirauschen soll (reine Augabe), dann würde ich kein multiline edit control dafür verwenden, sondern eher eine Paintbox.

Grüße vom marabu

[Pseudemys Nelsoni]

Moin,

@SirThornberry: Gute Idee, danke.

@ marabu: Es ist leider so, das Form1 eine andere Schriftart als das Memo hat, daher kenn ich den canvas von dort ja nicht verwenden.

Zitat:

Außerdem wird die wirklich letzte Zeile immer leer bleiben, da die Memo-Komponente grundsätzlich umbricht.

Hast du ne Idee wie ich dass verhindere? z.B bei mIRC gibt es am Ende keine leere Zeile.

Danke auch dir

[bigg]

Was du genau damit meinst, habe ich immer noch nicht verstanden.
Ich tippe mal ganz einfach auf die Funktion Insert();

[Pseudemys Nelsoni]

Ich möchte das mein richedit-text unten beginnt, wie hier:

http://www.pixelbytes.net/j0.JPG

[Lannes]

Hallo,

Zitat von marabu:

...Außerdem wird die wirklich letzte Zeile immer leer bleiben, da die Memo-Komponente grundsätzlich umbricht...

Zitat von Pseudemys Nelsoni:

Hast du ne Idee wie ich dass verhindere? z.B bei mIRC gibt es am Ende keine leere Zeile.

verhindern nicht, aber entfernen:

Delphi-Quellcode:

var s : string;
begin
  s := Memo1.Text;
  delete(s,Length(s)-1,2);
  Memo1.Text := s;