Forum: Programmieren allgemein
Delphi
by IYuky,
18. Jan 2017
LVMA ist mein ListView :-D
Hast schon recht geht anscheind deutlich kürzer, für mich hat es funktioniert und war zufrieden das es überhaupt mal ging.. schön ist anders das stimmt
Lösung ist dann quasi:
if Item.ImageIndex = 2 then
ImageList1.Draw(LVMA.Canvas,3,r.Top + (r.Bottom - r.Top - ImageList1.Height) div 2,Item.ImageIndex,true);
Forum: Programmieren allgemein
Delphi
by IYuky,
17. Jan 2017
Habe mit meinem Code bewirken wollen das mein Custom ListView wieder Icons hat.
Durch das selber zeichnen der selektions Farbe sind diese nämlich verschwunden, da ich im OnCustomDrawItem der ListView DefaultDraw := false; gesetzt habe.
Da ich aber nicht nur bei jedem Item ein Icon haben wollte, sondern nur bei denen welche vorher den ImageIndex = 2 haben, dieser Code..
Vllt. wird es ...
Forum: Programmieren allgemein
Delphi
by IYuky,
17. Jan 2017
danke nochmal an alle für die Hilfestellungen :) Habe es jetzt lösen können:
for n:= 0 to LVMA.Items.Count-1 do
begin
if (LVMA.Items.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;
Forum: Programmieren allgemein
Delphi
by IYuky,
16. Jan 2017
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:
Sender.Canvas.Brush.Style := bsSolid;
Sender.Canvas.FillRect(rt);
x1 := 0;
x2 := 0;
r := rt;
Sender.Canvas.Brush.Style := bsClear;
Forum: Programmieren allgemein
Delphi
by IYuky,
16. Jan 2017
Kann mir keiner helfen? :cry:
Forum: Programmieren allgemein
Delphi
by IYuky,
12. Jan 2017
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
with Sender.Canvas do