ListView. Отобразить ProgressBar, не трогая Item.Data.

[Человек_Борща]

Доброго времени!

Необходимо отобразить TGauge или TProgressBar в TlistItem, TListview'а,
НО TListItem.Data уже используется мной для хранения других, не менее, важных данных.

Можно ли подсказать др. компонент(аналог TlistView'а или довесок для него) или пак компонент ну в общем, чтобы прогрессбар можно было встроить не трогая TListItem.Data.

Спасибо.

[Аватар]

Если в Data указатель на свой компонент, то можно в него сво-во добавить с типом TProgressBar. Отображать в ListView не пробовал, было бы интересно глянуть на реализацию такого

[eval]

интересно глянуть на реализацию такого

Практичеки любой довнлоадер.

[Человек_Борща]

Аватар,
в Data, указатель на объект с нужными данными.
Может можно объявить в объекте TGauge и как-то отображать его в ListView? Но как?
eval, название Full Source'ного на Delphi довнолоадера?

[Аватар]

Гугл сразу подсказал пример реализации
http://delphiru.ru/komponent/16-tpro...-listview.html

[Человек_Борща]

Было бы так просто, не подымал бы топик. Очевидно же:

procedure TForm1.AddItemButtonClick(
  Sender: TObject);
const
  pbColumnIndex = 1;
  pbMax = 100;
var
  li : TListItem;
  lv : TListView;
  pb : TProgressBar;
  pbRect : TRect;
begin
  lv := ListViewEx1;

  //создать новый ListItem (для lv)
  li := lv.Items.Add;
  li.Caption := 'Item ' + IntToStr(lv.Items.Count);

  //создать ProgressBar, поместить его во второй столбец
  pb := TProgressBar.Create(nil);
  pb.Parent := lv;
  li.Data := pb;
  pbRect := li.DisplayRect(drBounds);
  pbRect.Left := pbRect.Left + 
                 lv.Columns[-1 + pbColumnIndex].Width;
  pbRect.Right := pbRect.Left + 
                  lv.Columns[pbColumnIndex].Width;
  pb.BoundsRect := pbRect;
end; //AddItemButtonClick

Как рисовать item самому, думаю Lv умеет это?

[eval]

Хелпер к TListItem, не?

[Аватар]

Выше говорил, не напрямую Data, а свойство объекта. Типа
TMyComponent(li.Data).ProgressBar:= pb;

[eval]

Вариантов тьма, вот еще - стринглист рядом и в нем прогресбары, по индексу или по тайтлу связь.

[Stilet]

Где-то выше до описания формы:

TProgressBar=class(TProgressBar)
 НовоеСвойство:Тип
end;

Сам код

procedure TForm1.AddItemButtonClick(
...
  pb := TProgressBar.Create(nil);
  pb.Parent := lv;
  li.Data := pb;
...

Соответственно
TProgressBar(li.Data).НовоеСвойство четко вернет нужное.

Короче - переопределить класс (это кажется сабклассинг называется)
Я так часто делаю если хочу навернуть новый компонент новыми свойствами на основе стандартного.
Идея ясна?