![]() |
Memo: Text unten beginnen lassen?
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? |
Re: Memo: Text unten beginnen lassen?
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.
|
Re: Memo: Text unten beginnen lassen?
moin evilboy.
jo schon, aber woher weiss ich wieviele zeilen? ich meine ich muss das ja irgendwie mit der grösse des memos berechnen |
Re: Memo: Text unten beginnen lassen?
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.
|
Re: Memo: Text unten beginnen lassen?
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 |
Re: Memo: Text unten beginnen lassen?
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:
Danke auch dir :thumb: |
Re: Memo: Text unten beginnen lassen?
Was du genau damit meinst, habe ich immer noch nicht verstanden.
Ich tippe mal ganz einfach auf die Funktion Insert(); |
Re: Memo: Text unten beginnen lassen?
|
Re: Memo: Text unten beginnen lassen?
Hallo,
Zitat:
Zitat:
Delphi-Quellcode:
var s : string;
begin s := Memo1.Text; delete(s,Length(s)-1,2); Memo1.Text := s; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz