ProgressBar, который не отображают реального прогресса
Материал из DRKB
ProgressBar, который не отображают реального прогресса[править | править код]
Начиная с виньХР появились в системе забавные ProgressBar'ы, которые не отображают реального "прогресса", а лишь отображают, что что-нибудь работает... такой же появляется при загрузки виндыХР (бегает пару чёрточек слева вправо, а потом обратно возвращаются в начало). Такой же прогресс отображается если в ХР выбрать изображение, в меню нажать на Print (Печать), и в этом диалоге при выборе шаблона печати - тоже такого стиля есть прогресс. (надеюсь, что теперь ясно что я имел в виду )
И сам вопрос: как такой сделать на делфи?
Судя по MSDN, надо
const
PBS_MARQUEE = $08;
PBM_SETMARQUEE = WM_USER+10;
begin
with ProgressBar1 do
begin
SetWindowLong (Handle, GWL_STYLE, (GetWindowLong (Handle, GWL_STYLE) or PBS_MARQUEE));
Perform(PBM_SETMARQUEE, 1, 50);
end;
end;
( вместо 50 поставь время перемещения кубиков )
Цитата (MSDN) Use this message when you do not know the amount of progress toward completion but wish to indicate that progress is being made.
PS: чтобы это работало, нужно включить в прогу XP-манифест
Author: p0s0l
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00525