ListBox Items Brush zweifarbig?

[a.def]

Zitat:

Und was steht in diesem Code?

Na, das habe ich doch durch deine Zeile ersetzt

Zitat von Uwe Raabe:

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;

[Uwe Raabe]

Zitat von a.def:

Na, das habe ich doch durch deine Zeile ersetzt

OK, das konnte ich ja nicht wissen. In dem Fall sollte aber auch kein Focus-Rechteck mehr auftauchen.

[a.def]

Ich habe aLBCanvas.DrawFocusRect(Rect); jetzt einfach noch einmal hinzugefügt.
Es ist nun deine Änderung drin, als auch aLBCanvas.DrawFocusRect(Rect); drunter.

Der Fokusrahamen taucht jetzt deutlich seltener auf. Er taucht nur noch dann auf, wenn ich entweder mit TAB in das Control tabbe oder von einem anderen Fenster zurück in mein Programm tabbe und das Control den Focus zurückbekommt. Sobald ich in der ListBox aber rumklicke, verschwindet es (wie gewollt).