aktuelle Zeile in SynEdit einfärben

[Christian Seehase]

Moin Tom,

OnSpecialLineColors wird beim Zeichnen jeder Zeile aufgerufen.
Jetzt musst Du nur noch einen Filter in die Funktion einbauen, der, je nach Zeilennummer die gerade dran ist (die Zählung fängt bei 1 an), die Farben setzt, oder eben auch nicht.

Beispiel:
Ich habe 3 Zeilen, und die sollen "hübsch bunt" werden:

Delphi-Quellcode:

procedure TfrmMAIN.SynEdit1SpecialLineColors(Sender: TObject;
  Line: Integer; var Special: Boolean; var FG, BG: TColor);
begin
  Special := true;
  case Line of
    1 : begin
      FG := clBlue;
      BG := clYellow;
    end;
    2 : begin
      FG := clRed;
      BG := clBlack;
    end;
    3 : begin
      FG := clGray;
      BG := clPurple;
    end;
  end;
end;