Всем привет вот этот урок посвящён тем кто хочет но незнает как поменять цвет стандартного progressbar-a. Всё оказывается очень просто:
Code
uses commctrl;
procedure TForm1.FormCreate(Sender: TObject);
begin
progressbar1.Brush.Color := clblack;
sendmessage(progressbar1.Handle, PBM_SETBARCOLOR,0, clgreen);
end;
Вот и всё. Если вы хотите скачать исходник этого проэкта то репейдите по ССЫЛКЕ
| 
Z306916104788
R135831050833
U350149613257
