Как изменить стандартный цвет ProgressBar?
Материал из DRKB
Как изменить стандартный цвет ProgressBar?[править | править код]
Самый простой способ, это изменить цветовую схему в свойствах экрана...
А вот при помощи следующей команды можно разукрасить ProgressBar не изменяя системных настроек:
PostMessage(ProgressBar1.Handle, $0409, 0, clGreen);
Вуаля! Теперь Progress Bar зелёный. Это всего лишь простой пример чёрной магии ;)
Source: Взято из http://forum.sources.ru
ID: 00524
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;
Source: http://delphiworld.narod.ru/
ID: 00958