ListBox Items Brush zweifarbig?

[Uwe Raabe]

Kannst du nicht einfach mal deinen Code zum Zeichnen eines Items zeigen? Dann könnte man gezielt einen Hinweis geben, wie es am einfachsten gehen könnte.

[a.def]

Hier ein Beispiel

Delphi-Quellcode:

// aListBoxBrushColor: array [Boolean] of TColor = (clRed, clWhite);
// aListBoxFontColor: array [Boolean] of TColor = (clInactiveCaptionText, clBlack);


procedure TForm3.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
 oldFontColor: TColor;
 oldFontName: string;
 oldFontS: Byte;
 aLBCanvas: TCanvas;
begin
 aLBCanvas := TListBox(Control).Canvas;

 if odSelected in State then
  begin
   aLBCanvas.Brush.Color := aListBoxBrushSelectedColor;
   aLBCanvas.Font.Color := aListBoxFontSelectedColor;
  end
 else
  begin
   aLBCanvas.Brush.Color := aListBoxBrushColor[Odd(Index)];
   aLBCanvas.Font.Color := aListBoxFontColor[(Enabled)];
  end;

 aLBCanvas.FillRect(Rect);

 oldFontColor := aLBCanvas.Font.Color;
 oldFontS := aLBCanvas.Font.Size;
 oldFontName := aLBCanvas.Font.Name;

 aLBCanvas.TextOut(Rect.Left + 5, Rect.Top + (Rect.Height div 2) - 5, TListBox(Control).Items[Index]);

 if odFocused in State then
  begin
   aLBCanvas.Brush.Color := TListBox(Control).Color;
   aLBCanvas.DrawFocusRect(Rect);
  end;

 aLBCanvas.Font.Color := oldFontColor;
 aLBCanvas.Font.Size := oldFontS;
 aLBCanvas.Font.Name := oldFontName;
end;

[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;

[a.def]

Danke vielmals.
SplitRect, darauf muss man erstmal kommen.

Verstehe ich den Ablauf richtig?

1) Brush wird gesetzt (Farbe1)
2) Text wird ausgegeben
3) Brush wird erneut gesetzt (Farbe2)
4) Rect wird aufgeteilt?

Wie kann das Rect denn dann noch Farbe1 behalten, wenn ich sie doch bei 4) neu setze? Oder wird die festgesetzt, sobald ich FillRect ausführe?

[Uwe Raabe]

Zitat von a.def:

Wie kann das Rect denn dann noch Farbe1 behalten, wenn ich sie doch bei 4) neu setze? Oder wird die festgesetzt, sobald ich FillRect ausführe?

Das FillRect mit Farbe1 geht über das gesamte Rect, während das für Farbe2 nur die rechten 5 Pixel übermalt.

SplitRect gibt ein neues Rechteck zurück - in diesem Fall eins, daß nur die rechten 5 Pixel Breite des Originals enthält.

[a.def]

Ok gut zu wissen. Ich wäre jetzt sonst mit einem Shape rangegangen
ich stelle mir nur noch eine Frage: permanent den Fokus eines Items (dotted Umrandung) bekommt man keines Falls weg oder?

Ich meine den vorher/irgendwann mal wegbekommen zu haben aber ich weiß nicht mehr wie

[Olli73]

Zitat von a.def:

ich stelle mir nur noch eine Frage: permanent den Fokus eines Items (dotted Umrandung) bekommt man keines Falls weg oder?

Ich meine den vorher/irgendwann mal wegbekommen zu haben aber ich weiß nicht mehr wie

Meinst du aLBCanvas.DrawFocusRect(Rect); in deinem Quellcode?

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