Richedit Farbe ?

[turboPASCAL]

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 = ...
...