Hallo,
Ich habe eine ListView als Report und schreibe dort Texte rein.
In einer Spalte sind alle Texte farbig (die Farbe variiert).
Machen tu ich das so:
Delphi-Quellcode:
procedure TMainForm.ListView_DateienCustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
var
S_Text: String;
Diff_Top: Integer;
Rect: TRect;
Textfarbe: TColor;
begin
//Rect der Zelle erhalten
ListView_GetSubItemRect(Sender.Handle, Item.Index, SubItem, LVIR_BOUNDS, @Rect);
//Farbe?
If ListViewTextFarbe(Textfarbe, S_Text, Item.SubItems[SubItem - 1]) then
begin
with Sender.Canvas do
begin
//Schriftfarbe
Font.Color := Textfarbe;
//Differenz für Top berechnen, um Text mittig darzustellen
Diff_Top := (Rect.Bottom - Rect.Top - TextHeight(S_Text)) div 2;
//Text ausgeben
TextRect(Rect, Rect.Left + 5, Rect.Top + Diff_Top, S_Text);
end;
DefaultDraw := False;
end;
end;
Die Function "ListViewTextFarbe" liest nur aus einer Zelle "Items.SubItems[SubItem - 1]" den Text aus, der bereits Informationen über die Farbe der Zelle beinhaltet, aus und gibt an die Variable "Textfarbe" die Farbe aus und auf "S_Text" den restlichen Text.
Das funktioniert bestens - und ist auch nicht mein Problem - sondern nur eine Info vorweg.
Was mir nicht gefällt: Der Text der jeweiligen Zelle wird mit "TextRect" beschrieben. Wenn man aber nun eine Zeile der ListView markiert (selectiert), so wird bis auf diese eine Zelle die gesamte Zeile markiert. Die Zelle aber bleibt weiss. (siehe Pic - Spalte: Status)
Im Grunde ist es ja klar, da ich ja die Zelle selbst zeichne. Nur wie könnt ich nun selbst das markieren in der Zelle machen, so dass es eigentlich keinen Unterschied mehr macht, ob selbst gezeichnet oder nicht.
Vielleicht hat jemand eine Tip parat.
merci im Vorraus