ProgressBar как таблетки в Windows

← →
mozgan (2009-02-16 13:54) [0]

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

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

← →
b@v © (2009-02-16 13:57) [1]

Вопрос где ?

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

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

← →
b@v © (2009-02-16 14:00) [3]

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

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

← →
clickmaker © (2009-02-16 14:06) [4]

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

← →
b@v © (2009-02-16 14:11) [5]

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

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

← →
Mozgan (2009-02-16 14:15) [6]

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

← →
clickmaker © (2009-02-16 14:17) [7]

PBS_MARQUEE, что-ли?

← →
b@v © (2009-02-16 14:19) [8]

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

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

> PBS_MARQUEE, что-ли?

А как юзать?

← →
Johnmen © (2009-02-16 14:27) [10]

> А как юзать

USE PBS_MARQUEE

← →
Mozgan (2009-02-16 14:32) [11]

> PBS_MARQUEE

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

← →
clickmaker © (2009-02-16 14:35) [12]

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:48) [13]

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

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 (16.02.2009 14:06:04) [4]

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

← →
Mozgan (2009-02-16 14:53) [15]

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

> [13] Mozgan (16.02.09 14:48)

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

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

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

ProgressBar как таблетки в Windows Найти похожие ветки