Einzelnen Beitrag anzeigen

Benutzerbild von Cyberbob
Cyberbob

Registriert seit: 24. Jan 2005
Ort: Karben
626 Beiträge
 
Delphi XE7 Architect
 
#1

ListView SubItem wie eine Progressbar einfärben

  Alt 27. Jan 2015, 11:20
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
Christian
  Mit Zitat antworten Zitat