Also mit einer simplen
TListBox geht das, warum also so kompliziert (bzw. warum so mit den Controls rumaasen, das geht nur auf die Performance)
TListBox.Style auf
lbOwnerDrawVariable setzen und dann die Events
TListBox.OnMeasureItem und
TListBox.OnDrawItem bestücken.
Es ist übrigens egal, was man da drinnen zeichnet, es muss nicht das sein, was in
TListBox.Items drin steht. Es kommt nur drauf an, das dort ausreichend viele Einträge vorhanden sind
EDIT
Dabei auch
das hier beachten
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)