Hi,
beim Zeichnen der Einträge erkennst Du die Zeile mit dem Markierungsbalken nicht am ItemIndex.
Delphi-Quellcode:
if index=(Control as TListBox).itemindex then
brush.color:=$00D7D7D7
else
brush.color:=clWhite;
sondern am State
Delphi-Quellcode:
if odSelected in State then
brush.color:=$00D7D7D7;
Gruss