...eine TProgressBar in einer TListView Spalte erstellen?

Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

Kategorie: VCL

procedure TForm1.Button1Click(Sender: TObject);
var
  
r: TRect;
  pb: TProgressBar;
begin
  
Listview1.Columns.Add.Width := 100;
  Listview1.Columns.Add.Width := 200;
  Listview1.ViewStyle         := vsReport;
  Listview1.Items.Add.Caption := 'Text';

  r := Listview1.Items[0].DisplayRect(drBounds);
  r.Left  := r.Left + Listview1.columns[0].Width;
  r.Right := r.Left + Listview1.columns[1].Width;

  pb := TProgressBar.Create(Self);
  pb.Parent := Listview1;
  pb.BoundsRect := r;
  pb.Position := 30;
  Listview1.Items[0].Data := pb;
end;


// Change the ProgressBar Position
// ProgressBar Position ändern

procedure TForm1.Button2Click(Sender: TObject);
var
  
pb: TProgressBar;
begin
  
pb := TProgressBar(Listview1.Items[0].Data);
  pb.StepIt;
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base