Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Memo: Text unten beginnen lassen? (https://www.delphipraxis.net/49468-memo-text-unten-beginnen-lassen.html)

Pseudemys Nelsoni 11. Jul 2005 23:20


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?

evilboy 13. Jul 2005 17:26

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.

Pseudemys Nelsoni 14. Jul 2005 06:22

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

SirThornberry 14. Jul 2005 06:31

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.

marabu 14. Jul 2005 07:57

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

Pseudemys Nelsoni 14. Jul 2005 10:20

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:

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 :thumb:

bigg 14. Jul 2005 10:27

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();

Pseudemys Nelsoni 2. Aug 2005 01:20

Re: Memo: Text unten beginnen lassen?
 
Ich möchte das mein richedit-text unten beginnt, wie hier:

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

Lannes 2. Aug 2005 12:53

Re: Memo: Text unten beginnen lassen?
 
Hallo,
Zitat:

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

Zitat:

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;


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:51 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz