Synedit Text farbig darstellen

[Delphi.Narium]

Dem Ereignis OnSpecialLineColors im Objektinspektor per Doppelklick eine Ereignisroutine verpassen und dann sowas in der Art:

Delphi-Quellcode:

procedure TForm1.SynEdit1SpecialLineColors(Sender: TObject; Line: Integer; var Special: Boolean; var FG, BG: TColor);
begin
  if (Copy(SynEdit1.Lines[Line - 1],1,1) = '<') then begin
    Special   := true;
    fg        := clGreen;
    bg        := clYellow;
  else
  if (Copy(SynEdit1.Lines[Line - 1],1,1) = '>') then begin
    Special   := true;
    fg        := clRed;
    bg        := clBlue;
  end;
end;