VPF::ProgressBar в StatusBar'e - Форум программистов

MacTep

Дата 25.4.2006, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Хочу сделать такую строку состояния как в Фотошопе или в броузере IE. Кто подскажет идеи по реализации...

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Демо

Дата 25.4.2006, 22:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  PB: TProgressBar;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  PB := TProgressBar.Create(StatusBar1);
  PB.Max := 50;
  PB.Position := 0;
  PB.Visible := True;
  PB.Top := 2;
  PB.Height := STatusBar1.Height-4;
  PB.Width := STatusBar1.Panels[1].Width-2;
  PB.Left := STatusBar1.Panels[0].Width+2;
  PB.Parent := StatusBar1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not Assigned(PB) then Exit;
  if PB.Position = PB.Max
    then PB.Position := 0
    else PB.Position := PB.Position+1;
end;

end.

--------------------

MacTep

Дата 25.4.2006, 22:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Благодарю... Очень изящное решение. Красиво... smile

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Telepyz

Дата 9.7.2007, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 9.7.2007

Репутация: 1
Всего: 1

Большое спасибо, все работает отлично))))

Только объясните для чего это нужно

Цитата

if not Assigned(PB) then Exit;

Это сообщение отредактировал(а) Telepyz - 9.7.2007, 14:51

--------------------

обновить драйвер

Alexeis

Дата 9.7.2007, 14:55 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Чтобы избежать вылета программы в случае если объект PB не создан.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »