Zeilen einer Memo-Komponente einzeln andersfarbig darstellen

[Stanlay Hanks]

Das ginge mit CaretPos:

Delphi-Quellcode:

var Start, Ende : Integer;
begin
 With RichEdit1 do
  begin
   CaretPos := Point(0, CaretPos.Y);
   Start    := RichEdit1.SelStart;
   CaretPos := Point(0, CaretPos.Y +1);
   Ende     := RichEdit1.SelStart;
   SelStart := Start;
   SelLength:= Ende- Start;
   SelAttributes.Color := clmaroon;
   SetFocus;
  end;
end;

Du gehst zuerst an den Anfang der aktuellen Zeile, merkst dir diese Position. Dann gehst du eine Zeile weiter, und merkst dir auch diese Position. Jetzt kannst du SelStart auf den ersten gemerkten Wert setzen und SelLength aus "Ende - Start" berechnen. In diesem Beispiel wird die aktuelle Zeile markiert und rot eingefärbt.

Man liest sich, Stanlay