[DUG] Progress Bar Colour

[David O'Brien]

I have noticed that if you apply any theme other than "Windows", a lot of colours don't work. The theme overrides them.

From: delphi-bounces at listserver.123.net.nz <delphi-bounces at listserver.123.net.nz> On Behalf Of Errol Anderson
Sent: Wednesday, 7 November 2018 6:17 pm
To: delphi at listserver.123.net.nz
Subject: [DUG] Progress Bar Colour

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 XE10.
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
Errol Anderson
Geothermal Resource Analysis | Software Development
Geothermal Science and Data Solutions Ltd. (GSDS)
Website:  www.gsds.co.nz<http://www.gsds.co.nz/>
Mobile:    +64 21 181 3367
Email:        errol.anderson at gsds.co.nz<mailto:errol.anderson at gsds.co.nz>
Skype:       errol_anderson

[Logo_final2_90]
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/1023de86/attachment-0001.html 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image001.jpg
Type: image/jpeg
Size: 4499 bytes
Desc: image001.jpg
Url : http://listserver.123.net.nz/pipermail/delphi/attachments/20181107/1023de86/attachment-0001.jpg