Listview CustomDrawItem - Icons

[IYuky]

Hallo,

ich zeichne in einer Listview die Selektierung selber, leider verschwinden dadurch ja die SmallImages.
Wie bekomme ich die wieder drauf gezeichnet? Kann mir jmd mal helfen und mir sagen wie ich das machen kann.

Vielen dank schonmal im vorraus.

Lg IYuky

Code:

    with Sender.Canvas do
     begin
     if Item.Selected then
        begin
            Font.Color := clWhite;
            Brush.Color := TColor($8CA500);

            r := Item.DisplayRect(drBounds);
            FillRect(r);
            r.Left := 30;
            r.Right := r.Left + TListView(Sender).Columns[0].Width;
            s := Item.Caption;
            PrepareTextRect;
            TextRect(rt, s,[tfSingleLine, tfEndEllipsis]);
            for i := 0 to Item.SubItems.Count - 1 do
            begin
                r.Left := r.Left + TListView(Sender).Columns.Items[i].Width;
                r.Right := r.Left + TListView(Sender).Columns.Items[i + 1].Width;
                PrepareTextRect;
                s := Item.SubItems[i];
                TextRect(rt, s, [tfSingleLine, tfEndEllipsis]);
            end;
     end
     else begin
        Font.Color := TListView(Sender).Font.Color;
        Brush.Color := TListView(Sender).Color;

        r := Item.DisplayRect(drBounds);
        FillRect(r);
        r.Left := 30;
        r.Right := r.Left + TListView(Sender).Columns[0].Width;
        s := Item.Caption;
        PrepareTextRect;
        TextRect(rt, s,[tfSingleLine, tfEndEllipsis]);
        for i := 0 to Item.SubItems.Count - 1 do
        begin
            r.Left := r.Left + TListView(Sender).Columns.Items[i].Width;
            r.Right := r.Left + TListView(Sender).Columns.Items[i + 1].Width;
            PrepareTextRect;
            s := Item.SubItems[i];
            TextRect(rt, s, [tfSingleLine, tfEndEllipsis]);
        end;
     end;

     DefaultDraw := false;

  end;

[IYuky]

Kann mir keiner helfen?

[sakura]

Ich sehe gar keinen Code, in welchem Du die Icons überhaupt zeichnest. Entweder du übernimmst die komplette Darstellung eines Elementes, oder Du überlässt diese dem Standard-Handler. Aber teils/teils geht hier nicht.

......

P.S.: Eigentlich recht einfach:   YourImageList.Draw(Canvas, XPos, YPos, ImageIndex);

[IYuky]

Ne hatte ich auch bisher gar nicht, wusste nicht wie ich das machen kann, aber danke für den tipp

habe das jetzt auch so gelöst:

Code:

          Sender.Canvas.Brush.Style := bsSolid;
          Sender.Canvas.FillRect(rt);
          x1 := 0;
          x2 := 0;
          r := rt;
          Sender.Canvas.Brush.Style := bsClear;
          ImageList1.Draw(LVMA.Canvas,3,r.Top + (r.Bottom - r.Top - bm.Height) div 2,0,true);
          for i := 0 to LVMA.Columns.Count - 1 do
            inc(x2, LVMA.Columns[i].Width);
            r.Left := x1;
            r.Right := x2;
            if i = 0 then
            begin
                S := Item.Caption;
                r.Left := bm.Width + 6;
            end;

Nun eine andere Frage. Möchte nur das bestimmte Items ein Image besitzen und zwar jene die ich vorher den Imageindex 2 gegeben habe :/

[a.def]

Zitat von IYuky:

Ne hatte ich auch bisher gar nicht, wusste nicht wie ich das machen kann, aber danke für den tipp

Nun eine andere Frage. Möchte nur das bestimmte Items ein Image besitzen und zwar jene die ich vorher den Imageindex 2 gegeben habe :/

Keine Ahnung ob es das in der ListView gibt. Aber in der ListBox gibt es das Event DrawItem.
Da kann man die Variable "Index" prüfen. Index beinhaltet den 0-basierten Wert des aktuellen Items das gezeichnet wird.
Hast du 4 Icons, und nur das dritte soll ein Icon bekommen dann

Delphi-Quellcode:

if Index = 2 then // 0-basiert, daher 2!
 begin
  // Icon Zeichnen
  // oder irgendwas anderes machen ...
 end;

[IYuky]

danke nochmal an alle für die Hilfestellungen Habe es jetzt lösen können:

Code:

     for n:= 0 to LVMA.Items.Count-1 do
     begin
       if (LVMA.Items[n].ImageIndex = 2) then
           if Item.Index = n then
            ImageList1.Draw(LVMA.Canvas,3,r.Top + (r.Bottom - r.Top - bm.Height) div 2,2,true);
     end;

Für alle die es mal genauso brauchen könnten


Lg IYuky