ListBox Items Brush zweifarbig?

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

Also was ich jetzt genau meine auf deine Frage bezogen weiß ich nicht.
Aber der Fokusrahmen wird ab und zu doch eingeblendet, obwohl er doch ausgeblendet bleiben sollte (das war schon vorher so). Nur wie bekomme ich den Fokusrahmen komplett weg?

[Olli73]

Er erscheint nur ab und zu?

[a.def]

Genau. Warum auch immer das passiert, ich weiß es nicht.

[Uwe Raabe]

Kommentiere doch einfach die Zeile mit DrawFocusRect aus. Das wird intern mit XOR gezeichnet und kann zusammen mit dem Rest des Draw-Codes zu merkwürdigen Effekten führen.

[a.def]

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

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