Progressbar színe

A birka komponens fejlesztők néha elcseszik a komponenset azzal, hogy kész színeket erőszakolnak rá az user-re. Ilyen a Progressbar kék felülete

procedure TForm1.Button1Click(Sender: TObject);
const
PBM_SETBARCOLOR = $0409;
YourColor = clgreen;
begin
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, YourColor);
end;