ListBox Items Brush zweifarbig?

[a.def]

Zitat:

Und was steht in diesem Code?

Na, das habe ich doch durch deine Zeile ersetzt :P

Zitat:

Zitat von Uwe Raabe (Beitrag 1370219)

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:

Zitat von a.def (Beitrag 1370251)

Na, das habe ich doch durch deine Zeile ersetzt :P

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

[a.def]

Ich habe

Delphi-Quellcode:

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).