Scalabium Software
Knowledge for your independence'.
Home Delphi and C++Builder tips

#138: How can I change color of standard TProgressbar?

Standard TProgressbar component from Win32 palette doesn't allow to change a color of progress using properties but control from MS Windows allow to do it (TProgressbar is not pure VCL component - this is a wrapper for Windows control, the same as TEdit, TStaticText, TButton etc)

This feature can be easy added in run-time - just call the next procedure and define parameters - your Progressbar and desired color:

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);

Published: April 4, 2002

See also

	DBISAM Password Recovery
	Fast Document Viewer
	DBExport tools
	DBISAM Viewer
	SMExport suite
	ABA Picture Convert
	ABA Document Convert
	Clarion to Text converter
	Word Web-stream
	Paradox Password Recovery

Contact to webmaster