ListView: Selbst geschriebene Zelle markieren

[Helmi]

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

[mkinzler]

Überprüfe zusätzlich, ob die Zeile markiert ist, und fülle dann den Hintergrund

[Helmi]

Und wie kann ich feststellen ob die Zeile markiert ist?

[mkinzler]

Über den Listitem:

Delphi-Quellcode:

if Item.Selected ...

[Helmi]

Zitat:

Zitat von mkinzler

Über den Listitem:

Delphi-Quellcode:

if Item.Selected ...

Danke!

Habs jetzt so gelöst:

Delphi-Quellcode:

//Hintergrundfarbe setzen, wenn die Zeile markiert ist
If Item.Selected then
  Brush.Color := clNavy;

an der Farbe muss ich noch feilen!

[Edit]
so - ich hab nochmal gefeilt:
so schauts bestens aus:

Delphi-Quellcode:

//Hintergrundfarbe und Textfarbe setzen, wenn die Zeile markiert ist
If Item.Selected then
  begin
     Brush.Color := clMenuHighlight;
     Font.Color  := clBlack;
  end;

[bitsetter]

Hallo,

Zitat:

Zitat von Helmi

so - ich hab nochmal gefeilt:
so schauts bestens aus:

Delphi-Quellcode:

//Hintergrundfarbe und Textfarbe setzen, wenn die Zeile markiert ist
If Item.Selected then
  begin
     Brush.Color := clMenuHighlight;
     Font.Color  := clBlack;
  end;

Delphi-Quellcode:

If Item.Selected then
begin
  Brush.Color := clHighlight;
  Font.Color := clHighlightText;
end;

so wäre es glaube ich korrekter.

[Helmi]

Zitat:

Zitat von bitsetter

Hallo,

Delphi-Quellcode:

If Item.Selected then
begin
  Brush.Color := clHighlight;
  Font.Color := clHighlightText;
end;

so wäre es glaube ich korrekter.

du hast recht - das clBlack war verkehrt

clHighlight ist auch besser

[bitsetter]

Ob das Item selektiert ist kann man glaube ich auch so abfragen:

Delphi-Quellcode:

if cdsSelected in State then