Hallo, ich möchte zu Debugzwecken den Datenverkehr auf der seriellen Schnittstelle darstellen.
Im ersten schritt habe ich die Daten in einem Memo mit dem Zeichen ">" und "<" ausgegeben um die Richtung darzustellen. Hat alles auch prima funktioniert. Im zweiten Schritt habe ich ein Richtext element genommen und die Farbe über SelAttributes gesetzt. Funktionierte zuerst auch aber nach einiger Zeit habe ich eine Schutzverletzung in riched20.dll bekommen. Damit wollte ich mich nicht weiter beschäftigen sondern hab gedacht ich setze die Synedit Komponente ein die in dem Projekt auch schon vorhanden ist.

Ohne die farbige Ausgabe funktioniert es auch prima, aber jetzt möchte ich eben je nachdem ob ich die Daten empfangen oder gesendet habe unterschiedlich farbig darstellen. Ich möchte zum Beispiel die gesendeten Daten in blau und die empfangenen in rot haben
Das gelingt mir allerdings nicht. Gibt es da einen einfachen Trick ?

Falls es von Belang ist. Es ist ein altes Projekt und ich nutze dort Delphi 2006

Ich kann dir jetzt nicht konkret helfen.
Du könntest aber überlegen anstatt einer TMemo-Variante eine TListView oder einen TVirtualStringTree zu nutzen.
Da ist das farbige Darstellen über die CustomDraw-Handler sehr simpel.

Zitat:

Das gelingt mir allerdings nicht. Gibt es da einen einfachen Trick ?

Den Trick kann ich auch nicht verraten. Ich weis nur, daß die Highlighter, SQL etc., die Texte auch farbig markieren...also es geht mit SynEdit.
https://wiki.freepascal.org/SynEdit_Highlighter

Wenn ich das richtig in Erinnerung habe, gibt es einen Event, der zu einer gegebenen Zeile Vor- und Hintergrundfarbe setzen kann.
Das ist die einfach Methode, wenn dir das ausreicht.

Soll es was komplexeres ala Syntax-Highligiting sein, wirds aufwändig.

Ja in der richtung bin ich auch gerade am schauen OnGetSpecialLineColors scheint hier eine Möglichkeit zu sein

Zitat von v2afrank:

Ja in der richtung bin ich auch gerade am schauen OnGetSpecialLineColors scheint hier eine Möglichkeit zu sein

Ja, der wars.

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

zusammenfalten · markieren

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;