Scalabium Software

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

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

For example:
ChangeProgressColor(pbStatus, clRed);

Published: April 4, 2002

See also
Paradox ActiveX
DBISAM Password Recovery
SMExport suite
Paradox to MS Access converter
DBExport tools
Fast Document Viewer
Metafile Convert
SMMsg suite
Paradox to Text converter
Viewer for TNEF-files (winmail.dat)

Contact to webmaster


Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2019, Scalabium Software. All rights reserved.

SMExport advertising