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

	Protected Storage Viewer
	ExcelFile Viewer
	Mail parser (ActiveX)
	Viewer for MS Outlook Messages
	Paradox to MS Access converter
	ABA Spreadsheet Convert
	ABA Picture Convert
	SMExport suite
	Clarion to Text converter
	Excel Reader (dll)

Contact to webmaster