ProgressBar в ListView

[schnaps]

Люди, помогите пожалста, в общем имеется задача. Есть список TListView, одна из колонок его занята компонентом ProgressBar, собственно вот кусок кода

var
r: TRect;
pb: TProgressBar;
begin
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 := 0;
Listview1.Items[0].Data := pb;
end;

при большом списке, который не влазит в место отведенное под ListView естественно появляются полоски прокрутки, беда в том что строки с текстом скроллируются, а прогрессбары сидят на месте пробовал то же самое сделать в StringGrid результат точно такой же.

[Stilet]

Дык а в каком событи этот код?

[schnaps]

это собственно условный кусок кода пусть бкдет вызываться по созданию формы. Размышления подвели меня к мысли о том, что при прокрутке листа можно бы перерисовывать видимую часть прогресов, но следить за тем что сейчас видно мне как то не очень хочется, решение какое то топорное и некрасивое получается.

[Kotofff]

По ходу нужно использовать событие onDrawItem - по-другому никак не выйдет ...
Можно по аналогии со вставкой контролов в StringGrid, например, попробовать здесь. В источнике откуда приведенный код про вставку контролов в StringGrid много чего есть.

[schnaps]

смотрел я в эти источники, пробовал впихнуть контрол и в StringGrid результат такой же... не скролятся они

[Kotofff]

Ну как же "не скролятся" ???
Вот например :

[schnaps]

Спасибо! но я чешу репу в раздумьях, я делал примерно то же самое, но не получилось

[schnaps]

хотя нет, не совсем то же самое! спасибо еще раз!