Delphi Уроки: компонент ProgressBar внутри компонента ListView

Опубиковано: 08.12.2008 г., автор: , просмотров: 205492

Delphi Уроки: Вставляем Progress в ListView.

Всем HI, в этом уроке мы научимся вставлять в компонент ListView компонент ProgressBar. Открываем delphi, кидаем на форму компонент ListView, 2 компонента button и компонент Timer. Для начала нам нужно создать 2 столбца в компоненте ListView, выделяем его, находим свойство columns и жмем по нему. Появиться небольшое окошечко, в котором нужно два раза нажать на кнопку с изображением желтой папки (Add New). Как вы наверно уже поняли, только что мы создали 2 колонки в компоненте ListView, но они пока еще не отображаються, что бы это исправить находим свойство ViewStyle и выставляем в нем значение на vsReport. Все на этом предварительные настроки завершены. Начинаем кодить.

компонент listview delphi

Выделяем первую кнопку, при нажатии на неё пользователь будет добавлять строки (содержащие в себе компонент ProgressBar) в компонент ListView. Итак, создаем обработчик событий OnClick на первой кнопке. Полный код обработчика событий приведен ниже, посмотрите на него и допишите к себе недостающие строки.

procedure TForm1.Button1Click(Sender: TObject);
const
pbColumnIndex = 1;
pbMax = 100;
var
li : TListItem;
lv : TListView;
pb : TProgressBar;
pbRect : TRect;
begin
lv := ListView1;
li := lv.Items.Add;
li.Caption := 'Item ' + IntToStr(lv.Items.Count);
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;

Так добавлять строки в компонент ListView мы научились, осталось научиться их удалять. Для этого нам и понадобиться вторая кнопка. Выделяем её и создаем на ней обработчик событий OnClick. Опять же полный код обработчика приведен ниже, посмотрите на него и добавьте к себе недостающие строки.

procedure TForm1.Button2Click(Sender: TObject);
var
lv : TListView;
li : TListItem;
i, idx : integer;
pb : TProgressBar;
begin
lv := ListView1;
li := lv.Selected;
if li <> nil then
begin
idx := li.Index;
TProgressBar(li.Data).Free;
lv.Items.Delete(idx);
for i := idx to -1 + lv.Items.Count do
begin
li := lv.Items.Item[i];
pb := TProgressBar(li.Data);
pb.Top := pb.Top -
(pb.BoundsRect.Bottom -
pb.BoundsRect.Top);
end;
end;
end;

Сейчас я хочу немного оживить компонент ProgressBar и сделать так что бы Progress увеличивался. Вот тут то нам на помощь приходит компонент Timer, выделяем его и создаем на нем обработчик событий Ontime. Полный код обработчика представлен ниже:

procedure TForm1.Timer1Timer(Sender: TObject);
var
idx : integer;
pb: TProgressbar;
lv : TListView;
begin
lv := ListView1;
if lv.Items.Count = 0 then Exit;
idx := Random(lv.Items.Count);
pb := TProgressBar(lv.Items[idx].Data);
if pb.Position < pb.Max then
pb.StepIt
else
pb.Position := 0;
end;

Да и не забудьте свойство Enabled у компонента Timer выставить в значение true

На этом все, как видите ничего сложного, запускаем проект и наслаждаться результатами !

До встречи DelphiExpert.ru !!!



Похожие материалы

Последние из рубрики

Доброжеватель 12 Окт 2011 в 00:00 #
procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
const ARect: TRect; var DefaultDraw: Boolean);
var
li: TListItem;
pb: TProgressBar;
begin
for li in Sender.Items do begin
pb := TProgressBar(li.Data);
if pb <> nil then begin
pb.Top:=li.Top;
pb.Width:=Sender.Column[1].Width;
pb.Left:=Sender.Column[0].Width;
if li.Top>=24 then //24 = ColumnHeader Height
pb.Visible:=True else pb.Visible:=False;
end;
end;
Sender.Update;
end;
Pasha 16 Дек 2010 в 00:00 #
Ещё б прикольно было если б родителем обьекта была сама ячейка а ае ListView ,ато толку, добавил строк больше чем размер ListView, скролбар появился , итемы скролятся а добавленные таким методом обьекты стоят на месте.
или меняеш размер колонки , колонка увеличевается,текст сдвигается, а добавленый обьект на месте стоит. в итоге чорти шо получается .. как просто эксперемент то может и интересно, но использовать это в своих проектах по сути нельзя.
Ёсик 16 Окт 2010 в 00:00 #
Автор не смотрит комментарии
Gentle 22 Сен 2010 в 00:00 #
cool =)
ramxg 15 Сен 2010 в 00:00 #
А вот интересно то А сам автор сайта смотрит комментарии или нет!

ОтменитьДобавить комментарий