hallo turboPASCAL
das mit den ersten zwei zeilen funktioniert, jetzt wollte ich das die zeile 3 und 4 rot wird,
beim reinkopieren, aber das geht nicht, ich hab es so probiert
Delphi-Quellcode:
procedure TForm.RicheditChange(Sender: TObject);
var
cp: TPoint;
begin
cp := Richedit.CaretPos;
Richedit.selstart := 3;
Richedit.SelLength :=
Length(Richedit.Lines[3]) + 2 + // + 2 wegen dem #13#10 hinter einer Zeile
Length(Richedit.Lines[4]) + 2 + // -"-
Length(Richedit.Lines[5]) + 2; // -"-
Richedit.SelAttributes.color := clRed;
Richedit.selstart := 3;
Richedit.CaretPos := cp;
end;
wie muß ich das ändern ?
mfg vader