Změna barvy ukazatele průběhu

Pokud ve svých aplikacích používáte standardní ProgressBar, jistě dobře víte, že jeho barvu nemůžete v Object Inspectoru nastavit, a ta tedy zůstává nastavená dle systému (obvykle modře). Existuje ale celkem jednoduchý způsob, jak mu svou barvu "vnutit". V následující ukázce se nastaví barva ProgressBaru na zelenou. K celé "akci" budeme potřebovat knihovnu Commctrl (pozor, neplést s knihovnou ComCtrls).

...
uses commctrl;
...

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clGreen);
end;