Farbe bei markierte Zeilen in Listview ändern

[catweasel]

Moin

Ich habe ein ListView mit diversen Einträgen. Alle Einträge sind in schwarzer Schrift.

Nun habe ich ein PopupMenü in die ListView eingebaut und möchte das die zuvor markierten Zeilen
die Schreibfarbe ändern. Nachstehender Quelltext bewirkt bei mir aber nichts. Wo liegt mein Denkfehler?

Code: Alles auswählen

//Schreibfarbe der markierte Zeile(n) soll(en) gefärbt werden
procedure TForm1.MenuItem1Click(Sender: TObject);
var i:integer;
begin
   for i:=ListView1.Items.Count-1 downto 0 do
       if ListView1.Items.Item[i].Selected then ListView1.Canvas.Font.Color := clRed;
 
end;

Gruß
Michael

[Socke]

Alle Farben werden vom aktuellen Theme übernommen. Daher musst du die Zeilen selber zeichnen.

[MAC]

Wie macht man sowas eigentlich ???
Also in der Theorie stell ich mir das vor das ich ne Classe von TListview ableite, dort dann die Paint Prozedure kopiere und anpasse. und gegebenfalls nen paar propertys hinzufüge.
Ich find da gar nichts paint-mäßiges , kann das sein das die OS-Funktion für sowas genutz wird (oder so ähnlich)

[Socke]

Suche mal nach "draw"...

Code: Alles auswählen

TListView = class(TCustomListView)
//...
    property OnAdvancedCustomDraw;
    property OnAdvancedCustomDrawItem;
    property OnAdvancedCustomDrawSubItem
/...
    property OnCustomDraw;
    property OnCustomDrawItem;
    property OnCustomDrawSubItem;
//...

Zum Zeichnen kann man eventuell auch auf Themes.ThemeService zurückgreifen. Der kann aber für einige Nicht-Windows-Plattformen nur teilweise implementiert sein.

[catweasel]

Alle Farben werden vom aktuellen Theme übernommen. Daher musst du die Zeilen selber zeichnen.

Ich hatte es befürchtet
Danke für den Hinweis

Gruß
Michael

[Bauer321]

ich würd ma hier gucken: http://student.physik.uni-mainz.de/~rot ... edcombobox

ist mir eben zufällig begegnet müsste genau das richtige für dich sein