Ok, Problem gelöst.
Ich weiß nicht warum aber beim testen von Repaint wird doch on...DrawTab aufgerufen.
Irgendwie war ich der Annahme dass Repaint nicht ging (auch mit Tests... eigenartig) und deshalb hatte ich
Delphi-Quellcode:
pControl.OwnerDraw := False;
pControl.OwnerDraw := True;
verwendet. Dies funktionierte auch, JEDOCH hatte es Nebenwirkungen!
Und zwar auf zb folgendes:
- auf die Scrollbarposition: Diese wurde immer wieder resettet
- auf den Text innerhalb des Memos: Es wurde pro Zeile immer nur der jeweils folgende Char angezeigt
Lösung:
Das löschen:
Delphi-Quellcode:
pControl.OwnerDraw := False;
pControl.OwnerDraw := True;
Das stattdessen verwenden:
pControl.Repaint
VG