Problem: Cursor Farbe bei eigener Editor Komponente

[mimi]

Hallo,
ich entwickel zur Zeit eine RichEdit ähnliche Komponente für Lazarus. Aus verschiedenen Gründen.

Ich habe jetzt ein Problem mit der Hintergrund Farbe und der Cursor Farbe. Der Cursor ist eine einfache Line.

Beim Suchen hier im Forum bin ich überfolgende Möglichkeit gestoßen:

Delphi-Quellcode:

    c.Pen.color:=(not ColorToRGB(PenColor)) and $00FFFFFF;

Das klappt auch, nur ergibt sich dadurch ein kleines Problem, Ich versuche das Problem mal mit Hilfe des Bildes zu beschreiben:
Test Test ist ein Objekt, Haus Haus ist ein anders Objekt. Die erste Zeile besteht aus drei Objekte.
Die zweite aus einem Objekt, die Dirtte aus einem Objekt und soweiter.

Wenn der Cursor jetzt z.b. in der ersten Zeile beim 2 Objekt ist(Haus Haus) und vor dem H steht wird er nicht angezeigt. Grund die Cursor Farbe ist Blau. Allerdings ist diese Situation auch eine besondere. Denn das Zeichen wird im Vorgänger Objekt hinzugefügt. So wie z.b. in OppenOffice.

Besser kann ich das Problem einfach nicht beschreiben. Habe schon das eine oder andere Versucht.