TProgressBar 색상바꾸기..

http://delphi.about.com/od/adptips2006/qt/colorbar.htm

델파이의 기본 VCL 중에서 TProgressBar 는 넘흐~ 간단해서 -.- 그냥 쓰면 멋대갈도 없고.. -.- 색상이라도 좀..바꿔줘보자...

프로프티는 없다... 그렇다고 다른 거 깔아서 쓰긴 좀 그렇고.... 그나마 좀 나은? TGuage 가 있긴 하나..이넘 쓰기도 좀 거시기 할때가 있지...

위 링크는 간단하게 TProgressBar 의 배경 과 전경 색상을 변경해주는 코드 를 제시해준다.

uses CommCtrl, ...
 ...
 // Set Background color
 ProgressBar1.Brush.Color := clRed;
 // Set Bar color
 SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clBlue) ;

요럼 끝임...ㄷㄷ

요런방법도 있음..

http://www.scalabium.com/faq/dct0138.htm

procedure ChangeProgressColor(pb: TProgressbar; cl: TColor);
const
  PBM_SETBARCOLOR = WM_USER+9;
begin
  inherited;

  SendMessage(pb.Handle, PBM_SETBARCOLOR, 0, cl); 
end;

For example:
ChangeProgressColor(pbStatus, clRed);