ListBox Items Brush zweifarbig?

[himitsu]

Dann mal doch einfach rechts den grünen Streifen/Rectangle hin.

Ein Brush hat eine gewisse Größe ... soooooo groß, dass er über die gesamte Breite des des Items reicht, wird er nicht sein dürfen.

[a.def]

Ist der Brush denn nicht genau so groß wie das Item selber?
Das mit dem Rectangle verstehe ich nicht. Also im Prinzip doch ein Shape oder sowas?

Edit: sehe gerade ich kann ja die Größe von Rect ändern... ok das klappt dann ja schonmal.
Und dann noch ein Shape?

Warte ich habs jetzt kapiert.
Ich kann den grünen Streifen nicht einfach rechts dran malen denn mein Rect ist (ich habs nicht geändert) so groß wie das Item selber. Das sehe ich wenn ich Rect.Width := Rect.Width-5; mache.
Mein Rect brauche ich um die Hintergrundfarbe des items zu setzen. DAS ist ja das Problem

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

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.

[Uwe Raabe]

Zitat von a.def:

Ich habe gar keine Zeile mit DrawFocusRect
Ich hab nur den Code von Seite + die Änderung.

Und was steht in diesem Code?

Zitat von a.def:

Delphi-Quellcode:

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