|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Нужно изменить цвет TProgressBar
Подскажите как сделать?
Delphicode.org - справочник Delphi |
#2
|
||||
|
||||
|
#3
|
||||
|
||||
Цитата:
В Windows 7 не катит Delphicode.org - справочник Delphi |
#4
|
||||
|
||||
должно прокатить...
Код:
Begin PostMessage(ProgressBar1.Handle, $0409, 0, clGreen); end; |
#5
|
||||
|
||||
у меня на win7 всё замечательно работает...
|
#6
|
||||
|
||||
Цитата:
а у меня нет, странно, может я где-то не там указываю? Я помещаю это строку в FormShow Delphicode.org - справочник Delphi |
#7
|
||||
|
||||
Нет, в семерке это не должно работать, это для классической схемы. Но вот такой код несколько меняет внешний вид:
Код:
SetWindowLong(ProgressBar1.Handle, GWL_STYLE, GetWindowLong(ProgressBar1.Handle, GWL_STYLE) Or PBS_MARQUEE); SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, 1000); Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#8
|
||||
|
||||
Цитата:
А где именно это надо прописывать? Ругается Undeclared Indefinder на PBS_MARQUEE и PBM_SETMARQUEE Delphicode.org - справочник Delphi |
#9
|
||||
|
||||
незнаю у меня на семёрке всё работает...
попробуйте так... )))) Код:
uses ...,CommCtrl; begin Progressbar1.Brush.Color := clTeal; SendMessage( ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow ); end; |
#10
|
||||
|
||||
eXplorer а схема у тебя какая выставлена? Для стандартной семерочной с финтифлюшками и эффектами это не срабатывает.
Скомпилируй простенький пример и сюда выложи. Посмотрим сработает или нет. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#11
|
||||
|
||||
непонял чесно что скомпелировать и что выложить)))...
|
#12
|
||||
|
||||
Простенький пример смены цвета прогресбара, который у тебя работает. Проверить хочу, будет ли работать у меня на семерке.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#13
|
||||
|
||||
Вопрос снят. Воспользовался компонентом Gauge (вкладка Samples).
Спасибо за помощь. Delphicode.org - справочник Delphi |
#14
|
||||
|
||||
Цитата:
вот, это у меня работает... ProgressBar color.zip Последний раз редактировалось eXplorer, 20.09.2010 в 08:01. |
#15
|
||||
|
||||
Как я и говорил у вас форма запускается без использования темы Аэро. Вот две картинки как у вас и как должно быть:
Так вот в случае темы Аэро т.е. стандартной схемы для семерки, ничего не меняется. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |