ListView SubItem wie eine Progressbar einfärben

[Cyberbob]

Hallo,

ich habe eine TListView, welche ich mit

Delphi-Quellcode:

if Odd(Item.Index) then
begin
  Sender.Canvas.Brush.Color := clBtnFace;
end;

im ListViewCustomDrawItem einfärbe. Nun möchte ich ein bestimmtes SubItem so einfärben, dass eine Art Progressbar entsteht, mit welcher ich einen Ladezustand anzeige. Dazu habe ich bisher herausgefunden, dass ich das Entsprechende SubItem mit ListViewCustomDrawSubItem herausbekomme. was ich allerdings nicht hinbekomme, ist das einfärben des Hintergrundes mit einer Bestimmten breite.
wenn die Spalte also 100 Pixel breit ist, sollen bei einem Ladezustand von 30% nur die ersten 30 Pixel, sagen wir zum Beispiel rot, eingefärbt werden. Wie bekomme ich das elegant gelöst?

Danke im Voraus,
Chris

[Steku]

Hi,

vielleicht hilft dir das weiter: http://stackoverflow.com/questions/7...r-in-list-view

Gruß Steku