Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

ProgressBar, который не отображают реального прогресса

Delphi , Компоненты и Классы , TProgressBar

ProgressBar, который не отображают реального прогресса

Начиная с виньХР появились в системе забавные ProgressBar'ы, которые не отображают реального "прогресса", а лишь отображают, что что-нибудь работает... такой же появляется при загрузки виндыХР (бегает пару чёрточек слева вправо, а потом обратно возвращаются в начало). Такой же прогресс отображается если в ХР выбрать изображение, в меню нажать на Print (Печать), и вэтом диалоге при выборе шаблона печати - тоже такого стиля есть прогресс. (надеюсь, что теперь ясно что я имел в виду  )

И сам вопрос: как такой сделать на делфи?

Судя по MSDN, надо

Code:

const
PBS_MARQUEE            = $08;
PBM_SETMARQUEE         = WM_USER+10;
 
...
 
with ProgressBar1 do
begin
   SetWindowLong (Handle, GWL_STYLE, (GetWindowLong (Handle, GWL_STYLE) or PBS_MARQUEE));
   Perform(PBM_SETMARQUEE, 1, 50);
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-манифест

Автор: p0s0l

Взято с Vingrad.ru http://forum.vingrad.ru

Статья ProgressBar, который не отображают реального прогресса раздела Компоненты и Классы TProgressBar может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TProgressBar ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
04.06.2020 09:47:14/0.016151189804077/0