SynEdit: Textfarbe an bestimmter Stelle herausfinden

[Pr0g]

Hier ein kleines Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fDummy: String;
  fHighlighter: TSynHighlighterAttributes;
  fPos: TBufferCoord;
  fTextColor: TColor;
begin
  //Spalte 1
  fPos.Char := 1;
  //Reihe 1
  fPos.Line := 1;
  //prüfen, ob die Abfrage überhaupt mit der Position möglich ist
  if SynEdit1.GetHighlighterAttriAtRowCol(fPos, fDummy, fHighlighter) then
  begin
    //Farbe aus dem Highlighter auslesen
    fTextColor := fHighlighter.Foreground;
    //nun kann fTextColor verarbeitet werden
    //...
  end;
end;

MfG Pr0g