Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ProgressBar как таблетки в Windows [D7, XP]


mozgan ©   (2009-02-16 13:54:00) 

Добрый день, Мастера!

Не пойму..... Есть progressBar1. Пытаюсь реализовать "эффект прогресса" как пр загрузке компа - WinLogon.


Сергей М.   (2009-02-16 16:04:00) [1]


> Прогресс-бар показывает несколько


Достаточно одной таблэтки


clickmaker   (2009-02-16 15:25:00) [2]

> [13] Mozgan   (16.02.09 14:48)

что именно не получается?
и я бы вынес код компонента в отдельный юнит, зачем там var Form1 ?


Mozgan   (2009-02-16 14:53:00) [3]

очень смешно, Анатолий...... :(


Anatoly Podgoretsky   (2009-02-16 14:49:00) [4]

> clickmaker  (16.02.2009 14:06:04)  [4]

Колеса по нашему.


Mozgan   (2009-02-16 14:48:00) [5]

Спасибо за помощь.
У меня неполучается с размещением кода.
Что не правильно, посмотрите пожалуйста.

var
 Form1: TForm1;

const
PBS_MARQUEE = 8;

type
TAdvProgressBar = class(TProgressBar)
private
  FMarquee: boolean;
protected
  procedure CreateParams(var Params: TCreateParams); override;
published
  Marque: boolean read FMarquee write SetMarquee;
  end;
end;

implementation

{$R *.dfm}

procedure TAdvProgressBar.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
if FMarquee then
  Style := Style or PBS_MARQUEE;
end;


clickmaker   (2009-02-16 14:35:00) [6]

const
 PBS_MARQUEE = 8;

type
 TAdvProgressBar = class(TProgressBar)
 private
   FMarquee: boolean;
 protected
   procedure CreateParams(var Params: TCreateParams); override;
 published
   Marque: boolean read FMarquee write SetMarquee;
 end;

procedure TAdvProgressBar.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 if FMarquee then
   Style := Style or PBS_MARQUEE;
end;


Mozgan   (2009-02-16 14:32:00) [7]


> PBS_MARQUEE

Из какого модуля? Как с ним рпаботать?


Johnmen   (2009-02-16 14:27:00) [8]


> А как юзать

USE PBS_MARQUEE


Mozgan   (2009-02-16 14:21:00) [9]


> PBS_MARQUEE, что-ли?


А как юзать?


b@v   (2009-02-16 14:19:00) [10]

Smooth — Непрерывное (при значении true) или дискретное отображение процесса. На рис. 4.20 в горизонтальном компоненте ProgressBar задано Smooth = true, а в вертикальном — false.


clickmaker   (2009-02-16 14:17:00) [11]

PBS_MARQUEE, что-ли?


Mozgan   (2009-02-16 14:15:00) [12]

Ребята :))))
Мне нужно сделать точь-в-точь как при загрузке компа. Прогресс-бар показывает несколько "кубиков"....


b@v   (2009-02-16 14:11:00) [13]


> таблетки?
> это где такие?

это наверное кубики :-)


clickmaker   (2009-02-16 14:06:00) [14]

таблетки?
это где такие?


b@v   (2009-02-16 14:00:00) [15]


> а есть разница где?

Да в принципе нет !!! :-)


Медвежонок Пятачок   (2009-02-16 13:58:00) [16]

а есть разница где?


b@v   (2009-02-16 13:57:00) [17]

Вопрос где ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо