Richeditfeld auf Größe begrenzen

[gogi2207]

Hi,
habe ein Richeditfeld, dieses soll in seiner Größe nicht veränderbar sein. D.h. wenn das Ende der letzten Zeile des Richeditfeldes erreicht worden ist, darf nicht einfach vorne wieder weiter gemacht werden und die erste Zeile nach oben verschoben werden. Es darf kein weiterer Eintrag mehr möglich sein. Wie kann man dieses Problem beheben? 8)

[Sebastian Nintemann]

Hallo, vielleicht hilft dir ja die Eigenschaft MaxLength weiter, mit der kannst du auf jeden Fall schonmal die Zeichenanzahl begrenzen.

Gruß, Sebastian

[gogi2207]

Maxlength bringt mir in meinem Fall wenig, da die Größe der Schrift im Richeditfeld variabel ist. Es kann also sein, dass z.B 100 Zeichen in das Richeditfeld passen oder aber nur 80.

[CalganX]

Hi,
ich frage mich, wofür das wirklich nötig ist. Ansonsten kannst du WordWrap = true und dann gucken, dass in der nächsten Zeile wirklich nichts mehr steht...

Chris

[Christian Seehase]

Moin Gogi,

nur mal so als Idee (ungetestet):

Prüfe im OnChange Ereignis, den Wert der maximalen Zeilenzahl und lösche alle darüber liegenden Zeilen.

Beispiel:

Delphi-Quellcode:

procedure TForm1.RichEdit1Change(Sender: TObject);

const
  _iMaxLines = 5;

begin
  if RichEdit1.Lines.Count > _iMaxLines then
  begin
    while (RichEdit1.Lines.Count) > _iMaxLines do
    begin
      RichEdit1.Lines.Delete(RichEdit1.Lines.Count-1);
    end;
  end;
end;

[RomanK]

Ja, aber wie kommt man dann auf die Anzahl der Linien ???
Ich habs mit
richedit1.height / richedit1.Font.height und mit
richedit1.height / richedit1.Font.size versucht, aber beide Werte ergeben nicht die Anzahl der Linien die gesucht ist !!!
Kann ich es mit der Schriftgröße machen ??? Wenn ja, wie dann ??

[CalganX]

Um meinen Vorschlag von oben etwas zu verdeutlichen:

Delphi-Quellcode:

RichEdit1.WordWrap := true;
{ ... }
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
  if RichEdit1.Lines.Count > 1 then begin
    RichEdit1.ReadOnly := true; // eine Möglichkeit...
    RichEdit1.Lines.Delete(1);
  end;
end;

Um das zu erklären: Du guckst, ob die Anzahl der Zeilen größer als 1 ist, und wenn ja löscht du die 2. Zeile (Delphi fängt bei 0 an).

Chris

[Christian Seehase]

Moin Chris,

dabei übersiehst Du nur, dass jemand auch per Copy&Paste etwas einfügen könnte, so dass es durch aus Sinn macht alle Zeilen, die über die gewünschte Anzahl hinausgehen zu löschen.
Sicher ist sicher

[RomanK]

Jetzt haben wir aber immernoch nicht gelöst wie man auf die Zeilenanzahl kommt ! Hat keiner von euch eine Idee?

[Marco Haffner]

Hiermit solltest Du die möliche Anzahl der Zeilen erhalten:

Delphi-Quellcode:

var
  MaxLines: Word;
begin
  with RichEdit1 do
  begin
    Canvas.Font := Font;
    MaxLines := (Height div Canvas.TextHeight('Wg'));
  end;

  {...}
end;