Ich habe hier noch etwas gefunden, die Quelle weiß ich leider nicht mehr.
[DELPHI]
unit ThemesApp;
interface
procedure EnableThemesApp;
procedure DisableThemesApp;
...
Unit einbinden, wo auch immer, wann auch immer EnableThemesApp bzw DisableThemesApp aufrufen.
Danke für die Mühe zum raussuchen. Möchte jedoch ein Theme nicht komplett ausschalten. Ich hab auch viel rumprobiert. Im Grunde geht meine ListView aber dieses SmoothScrolling ist bei vielen Einträgen etwas störend. Die lässt sich nicht so einfach für das einzelne Control ausschalten. Habe aber mal die Laufzeit-Theme Geschichte deaktiviert. Dann ist SmoothScrolling aus und dennoch ist der Grafikaufbau etwas langsam im Gegensatz zu einer ListBox. Die habe ich dann mal eben getestet. Eine Listbox kann man zum Glück auch mit "OnDrawItem" anpassen. Es geht jedenfalls um eine Verzeichnis und Dateiliste im Stil vom Total-Commander. Angefangen hatte ich mit TStringGrid. Ein paar Dinge waren dann etwas kompliziert umzusetzen. Danach dann TListView und nun probiere ich mich dann mal an einer TListBox
Michael