Wahlfrei Zeilen in Memofeld markieren.

[testan]

Hallo und frohes Neues,

ich iteriere über die Zeilen eines Memo-Felds und prüfe, ob die Zeilen einem bestimmten Muster entsprechen. Sollte die Prüfung fehlschlagen, wird die Zeile markiert. Nun habe ich gelernt, dass man mit SelStart und SelLength die Koordinaten zum Markieren vorgibt. Wie mache ich aber, wenn ich die 2. und die 4. Zeile markieren möchte. Gibt es eine "elegante" Lösung dafür?

Vielen Dank, und viele Grüße
Testan

[marabu]

Auch dir alles Gute im neuen Jahr.

Das Memo kapselt ein Multiline Edit Control und dieses Windows Control beherrscht keine extended selection, wie du sie vielleicht aus verschiedenen Office-Paketen kennst. Du musst dir da anders behelfen. Du könntest ein TRichEdit verwenden und dort mit Farben arbeiten.

Freundliche Grüße

[mkinzler]

Oder ein TStringGrid mit einer Spalte.

[_frank_]

würde evtl eine TListbox gehen, oder brauchst du die Zeilen editierbar? dort gehst du die Zeilen durch und brauchst nur den itemindex zu setzen.

evtl. hilft dir das:
http://www.swissdelphicenter.ch/de/showcode.php?id=439

daraus hab ich mal diese Funktion gebastelt:

Delphi-Quellcode:

procedure selectline(memo:TMemo;line:integer);
begin
  memo.SelStart := memo.Perform(EM_LINEINDEX, line-1, 0);
  memo.Perform(EM_SCROLLCARET, 0, 0);
  memo.sellength:=length(Memo.lines.strings[line-1]);
  memo.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  selectLine(memo1,2);
end;

HTH Frank

[testan]

Vielen Dank für alle Eure Antworten. Das Problem habe ich mit TRichEdit dann gelöst.

Viele Grüße,

Testan

[sabzine]

Hallo,
mich würde aber interessieren, wie man die Hintergrundfarbe einer Zeile in einem TRichEdit genau setzt? Ich kämpfe nämlich mit dem gleichen Problem.

Gruß
Sabzine

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Sabzine.

Es gibt da ein kleines Problem. Die Delphi-Komponente TRichEdit kapselt leider nur die Version 1.0 des Windows Rich Edit Controls und die Eigenschaft BackColor kann erst ab Version 2.0 für den selektierten Text eingestellt werden. Also entweder du beschränkst dich auf das Arbeiten mit Textfarben oder du verwendest eine andere Komponente. Es gab für ältere Delphi-Versionen einmal TRichEdit98 - eine freie VCL-Komponente für Rich Edit 2.0.

Freundliche Grüße

[sabzine]

Zitat:

Zitat von marabu

Herzlich willkommen in der Delphi-PRAXiS, Sabzine.

Es gibt da ein kleines Problem. Die Delphi-Komponente TRichEdit kapselt leider nur die Version 1.0 des Windows Rich Edit Controls und die Eigenschaft BackColor kann erst ab Version 2.0 für den selektierten Text eingestellt werden. Also entweder du beschränkst dich auf das Arbeiten mit Textfarben oder du verwendest eine andere Komponente. Es gab für ältere Delphi-Versionen einmal TRichEdit98 - eine freie VCL-Komponente für Rich Edit 2.0.

Freundliche Grüße

Hallo marabu,
es würde völlig reichen, wenn ich die Textfarbe zeilenweise ändern kann. Ich bin Delphi-Anfänger und habe aus der Hilfe nicht eine solche Möglichkeit gefunden die Hintergrundfarbe/Textfarbe zeilenweise in TRichEdit oder TMemo zu setzen. Es wäre sehr hilfreich, wenn Du mir ein Beispielcode posten könntest.

Danke && Gruß
Sabzine

[marabu]

Darf der Code auch schon etwas älter sein? klick

Gute Nacht

[sabzine]

Besten Dank marabu!

Gruß
Sabzine