Hallo,
ICH halte die Frage nach den Grenzen eines Konzepts für durchaus berechtigt, auch wenn sie zunächst einmal dem einen oder anderen sinnfrei erscheint!
Übrigens: Eigentlich dürfte es nicht gehen, aber erstaunlicherweise scheint es doch zu funktionieren.
Delphi-Quellcode:
if (index>Ftempindex) and Assigned(FOnBeforeDrawItem) then begin
FOnBeforeDrawItem(Self, Index, Rect, State);
FTempIndex:=index;
exit;
end;
im neuen DrawItem am Anfang tut es.
(FTempIndex ist eine Integer-Variable aus dem private-Bereich der neuen Listbox-Komponente und wird in Create mit -1 initialisiert.)
Es gibt noch beim ersten (und zweiten?) vertikalen Scrollvorgang ein kleines Problem, aber sonst sieht es schon gut aus und das ist verschmerzbar.
Gruß
Mattze
PS: Warum gibt es für Perlsau eigentlich nur Genie oder Anfänger?