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
Clarion Viewer
Viewer for TNEF-files (winmail.dat)
ABA Spreadsheet Convert
ABA Picture Convert
Protected Storage Viewer
Fast Document Viewer
ExcelFile Viewer
Metafile Convert
Excel Web-stream

Contact to webmaster


Borland Software Code Gear Scalabium Delphi tips

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

SMExport advertising