Listview 3 Spalte Progressbar

[NickelM]

So geht es:

Delphi-Quellcode:

procedure TFmTabelle.SetzteProgressBarAufLV(aListView: TListView; aListItem: TListItem);
const
  ProgBarMax = 100;
var
  ProgBar : TProgressBar;
  pbRect : TRect;
  //I: Integer;
begin
  ProgBar := TProgressBar.Create(nil);
  ProgBar.Style := pbstMarquee;
  ProgBar.Parent := aListView;
  aListItem.data := ProgBar;
  pbRect := aListItem.DisplayRect(drBounds);

  //Index geht ja mit 0 los xD Falls es max 3 sind.
  pbRect.Left := pbRect.Left + aListView.Columns[0].Width;
  pbRect.Left := pbRect.Left + aListView.Columns[1].Width;
  pbRect.Right := pbRect.Left + aListView.Columns[2].Width;
  
  //Wenn du es in die Letze Spalten immer haben willst mach es so:
  {
  for I := 0 to aListView.Columns.Count - 2 do
  pbRect.Left := pbRect.Left + aListView.Columns[I].Width; 

  pbRect.Right := pbRect.Left + aListView.Columns[aListView.Columns.Count-1].Width; 
  }

  ProgBar.BoundsRect := pbRect;
end;