<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Word 15 (filtered medium)">
<!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin-top:0cm;
margin-right:0cm;
margin-bottom:12.0pt;
margin-left:0cm;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:#0563C1;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}
p.msonormal0, li.msonormal0, div.msonormal0
{mso-style-name:msonormal;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
span.MyNormalChar
{mso-style-name:"\!MyNormal Char";
mso-style-link:"\!MyNormal";
font-family:"Calibri",sans-serif;
color:#1F497D;}
p.MyNormal, li.MyNormal, div.MyNormal
{mso-style-name:"\!MyNormal";
mso-style-link:"\!MyNormal Char";
margin-top:0cm;
margin-right:0cm;
margin-bottom:6.0pt;
margin-left:0cm;
font-size:11.0pt;
font-family:"Calibri",sans-serif;
color:#1F497D;
mso-fareast-language:EN-US;}
span.Normal11Char
{mso-style-name:"\!Normal11 Char";
mso-style-link:"\!Normal11";
font-family:"Calibri",sans-serif;
color:#1F497D;}
p.Normal11, li.Normal11, div.Normal11
{mso-style-name:"\!Normal11";
mso-style-link:"\!Normal11 Char";
margin-top:0cm;
margin-right:0cm;
margin-bottom:6.0pt;
margin-left:0cm;
font-size:11.0pt;
font-family:"Calibri",sans-serif;
color:#1F497D;
mso-fareast-language:EN-US;}
span.MyStandardChar
{mso-style-name:"\!MyStandard Char";
mso-style-link:"\!MyStandard";
font-family:"Calibri",sans-serif;}
p.MyStandard, li.MyStandard, div.MyStandard
{mso-style-name:"\!MyStandard";
mso-style-link:"\!MyStandard Char";
margin-top:0cm;
margin-right:0cm;
margin-bottom:8.0pt;
margin-left:0cm;
line-height:12.0pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}
span.MyStyleChar
{mso-style-name:"\!MyStyle Char";
mso-style-link:"\!MyStyle";
font-family:"Calibri",sans-serif;
color:#1F497D;}
p.MyStyle, li.MyStyle, div.MyStyle
{mso-style-name:"\!MyStyle";
mso-style-link:"\!MyStyle Char";
margin-top:0cm;
margin-right:0cm;
margin-bottom:8.0pt;
margin-left:0cm;
line-height:12.0pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;
color:#1F497D;
mso-fareast-language:EN-US;}
span.EmailStyle26
{mso-style-type:personal;
font-family:"Calibri",sans-serif;}
span.EmailStyle27
{mso-style-type:personal-reply;
font-family:"Calibri",sans-serif;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="EN-NZ" link="#0563C1" vlink="#954F72">
<div class="WordSection1">
<p class="MsoNormal"><span lang="EN-US" style="mso-fareast-language:EN-US">I have noticed that if you apply any theme other than “Windows”, a lot of colours don’t work. The theme overrides them.<o:p></o:p></span></p>
<p class="MsoNormal"><span lang="EN-US" style="mso-fareast-language:EN-US"><o:p> </o:p></span></p>
<div>
<div style="border:none;border-top:solid #E1E1E1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt"><b><span lang="EN-US">From:</span></b><span lang="EN-US"> delphi-bounces@listserver.123.net.nz <delphi-bounces@listserver.123.net.nz>
<b>On Behalf Of </b>Errol Anderson<br>
<b>Sent:</b> Wednesday, 7 November 2018 6:17 pm<br>
<b>To:</b> delphi@listserver.123.net.nz<br>
<b>Subject:</b> [DUG] Progress Bar Colour<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">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.<o:p></o:p></p>
<p class="MsoNormal">With Delphi 2007, I used the following code:<o:p></o:p></p>
<p class="MsoNormal">On starting:<o:p></o:p></p>
<p class="MsoNormal"> SendMessage(progressDT.Handle, PBM_SETBARCOLOR, 0, clWebLightCoral);<o:p></o:p></p>
<p class="MsoNormal">On completion:<o:p></o:p></p>
<p class="MsoNormal"> SendMessage(progressDT.Handle, PBM_SETBARCOLOR, 0, clWebPaleGreen);<o:p></o:p></p>
<p class="MsoNormal">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?<o:p></o:p></p>
<p class="MsoNormal">Thanks and regards<o:p></o:p></p>
<p class="MsoNormal">Errol<o:p></o:p></p>
<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-size:12.0pt;font-family:"Times New Roman",serif;color:red">Errol Anderson
<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-size:10.0pt">Geothermal Resource Analysis | Software Development<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt"><b><span lang="EN-US" style="font-size:10.0pt">Geothermal Science and Data Solutions Ltd. (GSDS)
<o:p></o:p></span></b></p>
<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-size:10.0pt">Website:
<a href="http://www.gsds.co.nz/"><span style="color:blue">www.gsds.co.nz</span></a><o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-size:10.0pt">Mobile: +64 21 181 3367<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-size:10.0pt">Email:
<a href="mailto:errol.anderson@gsds.co.nz"><span style="color:blue">errol.anderson@gsds.co.nz</span></a><o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-size:10.0pt">Skype: errol_anderson<o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-size:2.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt"><img border="0" width="288" height="49" style="width:3.0in;height:.5104in" id="Picture_x0020_1" src="cid:image001.jpg@01D476CC.EEAF7870" alt="Logo_final2_90"><span lang="EN-US" style="font-size:2.0pt"><o:p></o:p></span></p>
<p class="MsoNormal" style="margin-bottom:0cm;margin-bottom:.0001pt"><span lang="EN-AU" style="font-size:8.0pt">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.</span><span lang="EN-US" style="font-size:8.0pt"><o:p></o:p></span></p>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
</body>
</html>