Hallo an alle
ich habe ein Listview mit 3 Spalten. Nun möchte ich ich in der 3. Spalte eine Progessbar createn.
Mit diesen code funktioniert das erstellen ja schon mal ganz gut, aber wie bekomme ich die PB in die dritte Spalte?
Delphi-Quellcode:
procedure TFmTabelle.SetzteProgressBarAufLV(aListView: TListView; aListItem: TListItem);
const
ProgBarColumnIndex = 1;
ProgBarMax = 100;
var
ProgBar : TProgressBar;
pbRect : TRect;
begin
ProgBar := TProgressBar.Create(nil);
ProgBar.Style := pbstMarquee;
ProgBar.Parent := aListView;
aListItem.data := ProgBar;
pbRect := aListItem.DisplayRect(drBounds);
pbRect.Left := pbRect.Left + aListView.Columns[-1 + ProgBarColumnIndex].Width;
pbRect.Right := pbRect.Left + aListView.Columns[ProgBarColumnIndex].Width;
ProgBar.BoundsRect := pbRect;
end;
Listview füllen der Spalten
Delphi-Quellcode:
Screen.Cursor := crHourGlass;
{* Value in Listeditor *}
li := ListView.Items.Add;
li.Caption := sName; //erste Spalte Name
li.SubItems.Add(sPfad); //zweite Spalte Pfad
li.SubItems.Add(sDateigroesse); //dritte Spalte Größe
SetzteProgressBarAufLV(ListView,li);