![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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]Вопрос где ?