Как изменить стандартный цвет ProgressBar?
Falk0ner, вс, 06/07/2008 - 15:34.
Самый простой способ, это изменить цветовую схему в свойствах экрана...
А вот при помощи следующей команды можно разукрасить ProgressBar не изменяя системных настроек:
PostMessage(ProgressBar1.Handle, $0409, 0, clGreen);
Вуаля! Теперь Progress Bar зелёный. Это всего лишь простой пример чёрной магии ;)
Взято из http://forum.sources.ru
uses
CommCtrl;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Set the Background color to teal
Progressbar1.Brush.Color := clTeal;
// Set bar color to yellow
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);
end;
CommCtrl;
procedure TForm1.Button1Click(Sender: TObject);
begin
// Set the Background color to teal
Progressbar1.Brush.Color := clTeal;
// Set bar color to yellow
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);
end;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий