<?xml version="1.0" encoding="UTF-8" ?>
<?xml-stylesheet type="text/xsl" href="https://communities.bentley.com/cfs-file/__key/system/syndication/rss.xsl" media="screen"?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>Change system colour for disabled menu item with this macro</title><link>https://communities.bentley.com/products/microstation/w/askinga/1280/change-system-colour-for-disabled-menu-item-with-this-macro</link><description>Articles previously found in the &amp;quot;AskInga&amp;quot; Community.</description><dc:language>en-US</dc:language><generator>Telligent Community 12</generator><item><title>Change system colour for disabled menu item with this macro</title><link>https://communities.bentley.com/products/microstation/w/askinga/1280/change-system-colour-for-disabled-menu-item-with-this-macro</link><pubDate>Mon, 14 Jun 2010 12:57:15 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:8513f196-dfc3-4afd-b6a7-468ac715a9d4</guid><dc:creator>Inga Morozoff</dc:creator><comments>https://communities.bentley.com/products/microstation/w/askinga/1280/change-system-colour-for-disabled-menu-item-with-this-macro#comments</comments><description>Current Revision posted to [Archived] AskInga Wiki by Inga Morozoff on 6/14/2010 12:57:15 PM&lt;br /&gt;
&lt;p&gt;&lt;a href="/Communities/Other_Communities/AskInga/default.aspx"&gt;&lt;img height="76" width="230" src="/askIngaPics/askingalogo.gif" alt="AskInga logo" border="0" title="AskInga" /&gt;&lt;/a&gt; &lt;/p&gt;
&lt;p&gt;&lt;strong&gt;Original Article Date: &lt;/strong&gt;&lt;em&gt;Aug 12, 2005&lt;/em&gt;&amp;nbsp; &lt;/p&gt;
&lt;p&gt;With thanks to &lt;em&gt;Peter Overtoom&lt;/em&gt; from Bentley&amp;#39;s Technical Support Group in Hoofddorp for this VBA code that changes the system text colour used for displaying disabled menu items. And, as always, thanks to &lt;em&gt;Rudi Wells&lt;/em&gt; for passing it along. This code is especially cool for those of you with ailing eyes, or for the color-blind. :-) &lt;/p&gt;
&lt;div style="border-bottom:#cccccc 1pt solid;"&gt;&lt;/div&gt;
&lt;p&gt;Can you see this text well enough? &lt;/p&gt;
&lt;table cellpadding="6" border="0" style="width:100%;"&gt;
&lt;tbody&gt;
&lt;tr&gt;
&lt;td align="top" valign="top"&gt;&lt;img src="/askIngaPics/258Pic1.jpg" align="left" border="0" alt="" /&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;/tbody&gt;
&lt;/table&gt;
&lt;p&gt;If not, then keep reading......&lt;br /&gt;&lt;br /&gt;&lt;strong&gt;Note:&lt;/strong&gt;&lt;br /&gt;The colour value used for the above text, and all other user interface items, is definded by the operating system - not the application. The following VBA code will change this system colour and the changes will be evident in *all* applications including MicroStation.&lt;br /&gt;&lt;br /&gt;From any design file, just run the following code in a new VBA: &lt;/p&gt;
&lt;p&gt;Private Declare Function SetSysColors Lib &amp;quot;user32&amp;quot; (ByVal nChanges As Long, _&lt;br /&gt;lpSysColor As Long, lpColorValues As Long) As Long&lt;br /&gt;Private Sub main()&lt;br /&gt;Dim SysColor(1) As Long&lt;br /&gt;Dim ColorValues(1) As Long&lt;br /&gt;SysColor(0) = 17 &amp;#39;Disabled text&lt;br /&gt;ColorValues(0) = RGB(125, 125, 125) &amp;#39;Dark Grey&lt;br /&gt;SetSysColors 1, SysColor(0), ColorValues(0)&lt;br /&gt;End Sub &lt;/p&gt;
&lt;p&gt;Note, you only have to do this once for the changes to stick.&lt;br /&gt;Also, in the event that you want to set your machine back to normal, use these RGB values: &lt;em&gt;192, 192, 192&lt;/em&gt; &lt;/p&gt;
&lt;table cellpadding="6" border="0" style="width:100%;"&gt;
&lt;tbody&gt;
&lt;tr&gt;
&lt;td align="top" valign="top"&gt;&lt;img src="/askIngaPics/258Pic2.gif" align="left" border="0" alt="" /&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;/tbody&gt;
&lt;/table&gt;
&lt;p&gt;This program is supplied as is. This program does not come with support. AskInga, Bentley Systems Inc., and the author of the program assumes no liability for damages direct, indirect, or consequential, which may result from the use of this program. Use this program at your own risk. &lt;/p&gt;
&lt;p&gt;AskInga Article #258&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;

&lt;div style="font-size: 90%;"&gt;Tags: Askinga, Colours, FreewareShareware, Article&lt;/div&gt;
</description></item><item><title>Macro to change system colour for "disabled" menu item text</title><link>https://communities.bentley.com/products/microstation/w/askinga/1280/change-system-colour-for-disabled-menu-item-with-this-macro/revision/3</link><pubDate>Mon, 23 Jun 2008 17:24:30 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:8513f196-dfc3-4afd-b6a7-468ac715a9d4</guid><dc:creator>Hannah Blye</dc:creator><comments>https://communities.bentley.com/products/microstation/w/askinga/1280/change-system-colour-for-disabled-menu-item-with-this-macro#comments</comments><description>Revision 3 posted to [Archived] AskInga Wiki by Hannah Blye on 6/23/2008 5:24:30 PM&lt;br /&gt;
&lt;p&gt;
&lt;a href="/Communities/Other_Communities/AskInga/default.aspx"&gt;&lt;img src="/askIngaPics/askingalogo.gif" border="0" alt="AskInga logo" title="AskInga" width="230" height="76" /&gt;&lt;/a&gt; 
&lt;/p&gt;
&lt;p&gt;
&lt;strong&gt;Original Article Date: &lt;/strong&gt;&lt;em&gt;Aug 12, 2005&lt;/em&gt;&amp;nbsp;
&lt;/p&gt;
&lt;p&gt;
With thanks to &lt;em&gt;Peter Overtoom&lt;/em&gt; from Bentley's Technical Support Group in Hoofddorp for this VBA code that changes the system text colour used for displaying disabled menu items. And, as always, thanks to &lt;em&gt;Rudi Wells&lt;/em&gt; for passing it along. This code is especially cool for those of you with ailing eyes, or for the color-blind. :-) 
&lt;/p&gt;
&lt;div style="border-bottom: #cccccc 1pt solid"&gt;
&lt;/div&gt;
&lt;p&gt;
Can you see this text well enough? 
&lt;/p&gt;
&lt;table border="0" cellpadding="6" width="100%"&gt;
	&lt;tbody&gt;
		&lt;tr&gt;
			&lt;td align="top" valign="top"&gt;&lt;img src="/askIngaPics/258Pic1.jpg" border="0" align="left" /&gt; &lt;/td&gt;
		&lt;/tr&gt;
	&lt;/tbody&gt;
&lt;/table&gt;
&lt;p&gt;
If not, then keep reading......&lt;br /&gt;
&lt;br /&gt;
&lt;strong&gt;Note:&lt;/strong&gt;&lt;br /&gt;
The colour value used for the above text, and all other user interface items, is definded by the operating system - not the application. The following VBA code will change this system colour and the changes will be evident in *all* applications including MicroStation.&lt;br /&gt;
&lt;br /&gt;
From any design file, just run the following code in a new VBA: 
&lt;/p&gt;
&lt;p&gt;
Private Declare Function SetSysColors Lib &amp;quot;user32&amp;quot; (ByVal nChanges As Long, _&lt;br /&gt;
lpSysColor As Long, lpColorValues As Long) As Long&lt;br /&gt;
Private Sub main()&lt;br /&gt;
Dim SysColor(1) As Long&lt;br /&gt;
Dim ColorValues(1) As Long&lt;br /&gt;
SysColor(0) = 17 'Disabled text&lt;br /&gt;
ColorValues(0) = RGB(125, 125, 125) 'Dark Grey&lt;br /&gt;
SetSysColors 1, SysColor(0), ColorValues(0)&lt;br /&gt;
End Sub 
&lt;/p&gt;
&lt;p&gt;
Note, you only have to do this once for the changes to stick.&lt;br /&gt;
Also, in the event that you want to set your machine back to normal, use these RGB values: &lt;em&gt;192, 192, 192&lt;/em&gt; 
&lt;/p&gt;
&lt;table border="0" cellpadding="6" width="100%"&gt;
	&lt;tbody&gt;
		&lt;tr&gt;
			&lt;td align="top" valign="top"&gt;&lt;img src="/askIngaPics/258Pic2.gif" border="0" align="left" /&gt; &lt;/td&gt;
		&lt;/tr&gt;
	&lt;/tbody&gt;
&lt;/table&gt;
&lt;p&gt;
This program is supplied as is. This program does not come with support. AskInga, Bentley Systems Inc., and the author of the program assumes no liability for damages direct, indirect, or consequential, which may result from the use of this program. Use this program at your own risk. 
&lt;/p&gt;
AskInga Article #258 
&lt;div style="clear:both;"&gt;&lt;/div&gt;

&lt;div style="font-size: 90%;"&gt;Tags: Article, Askinga, Colours, FreewareShareware&lt;/div&gt;
</description></item><item><title>Macro to change system colour for "disabled" menu item text</title><link>https://communities.bentley.com/products/microstation/w/askinga/1280/change-system-colour-for-disabled-menu-item-with-this-macro/revision/2</link><pubDate>Thu, 29 May 2008 17:06:21 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:8513f196-dfc3-4afd-b6a7-468ac715a9d4</guid><dc:creator>CTennyson</dc:creator><comments>https://communities.bentley.com/products/microstation/w/askinga/1280/change-system-colour-for-disabled-menu-item-with-this-macro#comments</comments><description>Revision 2 posted to [Archived] AskInga Wiki by CTennyson on 5/29/2008 5:06:21 PM&lt;br /&gt;
&lt;p&gt;
&lt;img src="/askIngaPics/askingalogo.gif" border="0" alt="Ask Inga logo" title="Ask?Inga" width="230" height="76" /&gt; 
&lt;/p&gt;
&lt;p&gt;
With thanks to &lt;em&gt;Peter Overtoom&lt;/em&gt; from Bentley's Technical Support Group in Hoofddorp for this VBA code that changes the system text colour used for displaying disabled menu items. And, as always, thanks to &lt;em&gt;Rudi Wells&lt;/em&gt; for passing it along. This code is especially cool for those of you with ailing eyes, or for the color-blind. :-) 
&lt;/p&gt;
&lt;div style="border-bottom: #cccccc 1pt solid"&gt;
&lt;/div&gt;
&lt;p&gt;
Can you see this text well enough? 
&lt;/p&gt;
&lt;table border="0" cellpadding="6" width="100%"&gt;
	&lt;tbody&gt;
		&lt;tr&gt;
			&lt;td align="top" valign="top"&gt;&lt;img src="/askIngaPics/258Pic1.jpg" border="0" align="left" /&gt; &lt;/td&gt;
		&lt;/tr&gt;
	&lt;/tbody&gt;
&lt;/table&gt;
&lt;p&gt;
If not, then keep reading......&lt;br /&gt;
&lt;br /&gt;
&lt;strong&gt;Note:&lt;/strong&gt;&lt;br /&gt;
The colour value used for the above text, and all other user interface items, is definded by the operating system - not the application. The following VBA code will change this system colour and the changes will be evident in *all* applications including MicroStation.&lt;br /&gt;
&lt;br /&gt;
From any design file, just run the following code in a new VBA: 
&lt;/p&gt;
&lt;p&gt;
Private Declare Function SetSysColors Lib &amp;quot;user32&amp;quot; (ByVal nChanges As Long, _&lt;br /&gt;
lpSysColor As Long, lpColorValues As Long) As Long&lt;br /&gt;
Private Sub main()&lt;br /&gt;
Dim SysColor(1) As Long&lt;br /&gt;
Dim ColorValues(1) As Long&lt;br /&gt;
SysColor(0) = 17 'Disabled text&lt;br /&gt;
ColorValues(0) = RGB(125, 125, 125) 'Dark Grey&lt;br /&gt;
SetSysColors 1, SysColor(0), ColorValues(0)&lt;br /&gt;
End Sub 
&lt;/p&gt;
&lt;p&gt;
Note, you only have to do this once for the changes to stick.&lt;br /&gt;
Also, in the event that you want to set your machine back to normal, use these RGB values: &lt;em&gt;192, 192, 192&lt;/em&gt; 
&lt;/p&gt;
&lt;table border="0" cellpadding="6" width="100%"&gt;
	&lt;tbody&gt;
		&lt;tr&gt;
			&lt;td align="top" valign="top"&gt;&lt;img src="/askIngaPics/258Pic2.gif" border="0" align="left" /&gt; &lt;/td&gt;
		&lt;/tr&gt;
	&lt;/tbody&gt;
&lt;/table&gt;
&lt;p&gt;
This program is supplied as is. This program does not come with support. AskInga, Bentley Systems Inc., and the author of the program assumes no liability for damages direct, indirect, or consequential, which may result from the use of this program. Use this program at your own risk. 
&lt;/p&gt;
AskInga Article #258 
&lt;div style="clear:both;"&gt;&lt;/div&gt;

&lt;div style="font-size: 90%;"&gt;Tags: &lt;tags&gt;&lt;/tags&gt;&lt;/div&gt;
</description></item><item><title>Macro to change system colour for "disabled" menu item text</title><link>https://communities.bentley.com/products/microstation/w/askinga/1280/change-system-colour-for-disabled-menu-item-with-this-macro/revision/1</link><pubDate>Wed, 28 May 2008 19:50:39 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:8513f196-dfc3-4afd-b6a7-468ac715a9d4</guid><dc:creator>Hannah Blye</dc:creator><comments>https://communities.bentley.com/products/microstation/w/askinga/1280/change-system-colour-for-disabled-menu-item-with-this-macro#comments</comments><description>Revision 1 posted to [Archived] AskInga Wiki by Hannah Blye on 5/28/2008 7:50:39 PM&lt;br /&gt;
&lt;p&gt;
&lt;img src="/askIngaPics/askingalogo.gif" border="0" alt="Ask Inga logo" title="Ask?Inga" width="230" height="76" /&gt; 
&lt;/p&gt;
&lt;p&gt;
With thanks to &lt;em&gt;Peter Overtoom&lt;/em&gt; from Bentley's Technical Support Group in Hoofddorp for this VBA code that changes the system text colour used for displaying disabled menu items. And, as always, thanks to &lt;em&gt;Rudi Wells&lt;/em&gt; for passing it along. This code is especially cool for those of you with ailing eyes, or for the color-blind. :-) 
&lt;/p&gt;
&lt;div style="border-bottom: #cccccc 1pt solid"&gt;
&lt;/div&gt;
&lt;p&gt;
Can you see this text well enough? 
&lt;/p&gt;
&lt;table border="0" cellpadding="6" width="100%"&gt;
	&lt;tbody&gt;
		&lt;tr&gt;
			&lt;td align="top" valign="top"&gt;&lt;img src="/askIngaPics/258Pic1.jpg" border="0" align="left" /&gt; &lt;/td&gt;
		&lt;/tr&gt;
	&lt;/tbody&gt;
&lt;/table&gt;
&lt;p&gt;
If not, then keep reading......&lt;br /&gt;
&lt;br /&gt;
&lt;strong&gt;Note:&lt;/strong&gt;&lt;br /&gt;
The colour value used for the above text, and all other user interface items, is definded by the operating system - not the application. The following VBA code will change this system colour and the changes will be evident in *all* applications including MicroStation.&lt;br /&gt;
&lt;br /&gt;
From any design file, just run the following code in a new VBA: 
&lt;/p&gt;
&lt;p&gt;
Private Declare Function SetSysColors Lib &amp;quot;user32&amp;quot; (ByVal nChanges As Long, _&lt;br /&gt;
lpSysColor As Long, lpColorValues As Long) As Long&lt;br /&gt;
Private Sub main()&lt;br /&gt;
Dim SysColor(1) As Long&lt;br /&gt;
Dim ColorValues(1) As Long&lt;br /&gt;
SysColor(0) = 17 'Disabled text&lt;br /&gt;
ColorValues(0) = RGB(125, 125, 125) 'Dark Grey&lt;br /&gt;
SetSysColors 1, SysColor(0), ColorValues(0)&lt;br /&gt;
End Sub 
&lt;/p&gt;
&lt;p&gt;
Note, you only have to do this once for the changes to stick.&lt;br /&gt;
Also, in the event that you want to set your machine back to normal, use these RGB values: &lt;em&gt;192, 192, 192&lt;/em&gt; 
&lt;/p&gt;
&lt;table border="0" cellpadding="6" width="100%"&gt;
	&lt;tbody&gt;
		&lt;tr&gt;
			&lt;td align="top" valign="top"&gt;&lt;img src="/askIngaPics/258Pic2.gif" border="0" align="left" /&gt; &lt;/td&gt;
		&lt;/tr&gt;
	&lt;/tbody&gt;
&lt;/table&gt;
&lt;p&gt;
This program is supplied as is. This program does not come with support. AskInga, Bentley Systems Inc., and the author of the program assumes no liability for damages direct, indirect, or consequential, which may result from the use of this program. Use this program at your own risk. 
&lt;/p&gt;
AskInga Article #258
&lt;div style="clear:both;"&gt;&lt;/div&gt;

&lt;div style="font-size: 90%;"&gt;Tags: &lt;tags&gt;&lt;/tags&gt;&lt;/div&gt;
</description></item></channel></rss>