Einzelnen Beitrag anzeigen

IYuky

Registriert seit: 29. Jan 2016
14 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: Listview CustomDrawItem - Icons

  Alt 16. Jan 2017, 15:39
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 :/
  Mit Zitat antworten Zitat