Zitat von
Vader:
Code:
procedure TForm.RicheditChange(Sender: TObject);
var
cp: TPoint;
begin
cp := Richedit.CaretPos;
Richedit.selstart := 3;
[color=#ff001f]Richedit.SelLength[/color] :=
[color=#ff001f]Length(Richedit.Lines[3]) + 2 + [/color]// + 2 wegen dem #13#10 hinter einer Zeile
[color=#ff001f]Length(Richedit.Lines[4]) + 2 +[/color] // -"-
[color=#ff001f]Length(Richedit.Lines[5]) + 2[/color]; // -"-
Richedit.SelAttributes.color := clRed;
Richedit.selstart := 3;
Richedit.CaretPos := cp;
end;
???
Richedit.selstart := 3; Anfang der Selection beginnt bei dem drittem Zeichen und nicht Zeile im RE (Richedit) und dann die Zeichenanzahl aus Lines 3,4,5 ?
Alles klar ? Ist sicher ein Denkfehler, Selstart ist der Begin von dem ab plus N Zeichen die ausgewählt werden sollen. Schau dir es nochmal in der
OH an...
Code:
Selstart = Lines1+Lines2; // Begin der Selection nach dem letztem Zeichen in Zeile 2
Sellength = length(line3) // Anzahl der Zeichn in Line 3
SelAttributes = Rot
Selstart = ...
...