[DUG] Progress Bar Colour

Errol Anderson errol.anderson at gsds.co.nz
Wed Nov 7 18:16:43 NZDT 2018

In my application, I use a progress bar which changes colour when completed.
It worked fine with Delphi 2007 but I cannot get it to work with Delphi

With Delphi 2007, I used the following code:

On starting:

  SendMessage(progressDT.Handle, PBM_SETBARCOLOR, 0, clWebLightCoral);

On completion:

  SendMessage(progressDT.Handle, PBM_SETBARCOLOR, 0, clWebPaleGreen);

In XE10, the SendMessage is ignored and the progress bar defaults to the
current theme colour.  However, there is a BarColor property, but I cannot
get it to work.  Any ideas?

Thanks and regards


Errol Anderson 

Geothermal Resource Analysis | Software Development

Geothermal Science and Data Solutions Ltd. (GSDS)       

Website:   <http://www.gsds.co.nz/> www.gsds.co.nz

Mobile:    +64 21 181 3367

Email:         <mailto:errol.anderson at gsds.co.nz> errol.anderson at gsds.co.nz

Skype:       errol_anderson


This communication and any attached material contains confidential
information intended only for the use of the addressee named above. No
confidentiality is waived or lost by any mistaken transmission to you. If
you have received this message in error please delete the document and
notify us immediately.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20181107/06ed4478/attachment.html 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: image/jpeg
Size: 4499 bytes
Desc: not available
Url : http://listserver.123.net.nz/pipermail/delphi/attachments/20181107/06ed4478/attachment.jpe 

More information about the Delphi mailing list