[Dux]

Подскажите как сделать?

[dr. F.I.N.]

Народ совсем обленился.

[Dux]

Сообщение от dr. F.I.N.

Народ совсем обленился.

В Windows 7 не катит

[eXplorer]

должно прокатить...

Код:

Begin
PostMessage(ProgressBar1.Handle, $0409, 0, clGreen);
end;

[eXplorer]

у меня на win7 всё замечательно работает...

[Dux]

Сообщение от eXplorer

у меня на win7 всё замечательно работает...

а у меня нет, странно, может я где-то не там указываю? Я помещаю это строку в FormShow

[Страдалецъ]

Нет, в семерке это не должно работать, это для классической схемы. Но вот такой код несколько меняет внешний вид:

Код:

SetWindowLong(ProgressBar1.Handle, GWL_STYLE,
GetWindowLong(ProgressBar1.Handle, GWL_STYLE) Or PBS_MARQUEE);
SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, 1000);

Попробуйте поиграться с параметрами.

[Dux]

Сообщение от Страдалецъ

Нет, в семерке это не должно работать, это для классической схемы. Но вот такой код несколько меняет внешний вид:

Код:

SetWindowLong(ProgressBar1.Handle, GWL_STYLE,
GetWindowLong(ProgressBar1.Handle, GWL_STYLE) Or PBS_MARQUEE);
SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, 1000);

Попробуйте поиграться с параметрами.

А где именно это надо прописывать? Ругается Undeclared Indefinder на PBS_MARQUEE и PBM_SETMARQUEE

[eXplorer]

незнаю у меня на семёрке всё работает...
попробуйте так... ))))

Код:

uses ...,CommCtrl;

begin
Progressbar1.Brush.Color := clTeal;
SendMessage( ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow );
end;

[Страдалецъ]

eXplorer а схема у тебя какая выставлена? Для стандартной семерочной с финтифлюшками и эффектами это не срабатывает.
Скомпилируй простенький пример и сюда выложи. Посмотрим сработает или нет.

[eXplorer]

непонял чесно что скомпелировать и что выложить)))...

[Страдалецъ]

Простенький пример смены цвета прогресбара, который у тебя работает. Проверить хочу, будет ли работать у меня на семерке.

[Dux]

Вопрос снят. Воспользовался компонентом Gauge (вкладка Samples).
Спасибо за помощь.

[eXplorer]

Сообщение от Страдалецъ
Простенький пример смены цвета прогресбара, который у тебя работает. Проверить хочу, будет ли работать у меня на семерке.

вот, это у меня работает...

ProgressBar color.zip

[Страдалецъ]

Как я и говорил у вас форма запускается без использования темы Аэро. Вот две картинки как у вас и как должно быть:
Так вот в случае темы Аэро т.е. стандартной схемы для семерки, ничего не меняется.