Zitat:
Und was steht in diesem Code?
Na, das habe ich doch durch deine Zeile ersetzt
Setz doch mal folgenden Code hinter das TextOut:
Delphi-Quellcode:
if odSelected in State then
begin
aLBCanvas.Brush.Color := aListBoxBrushSelectedColor2; // die Farbe des rechten Streifens
{* ==> *} aLBCanvas.FillRect(Rect.SplitRect(srRight, 5)); // 5 Pixel am rechten Rand
end;