Как изменить стандартный цвет 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