<div>
mmm, if you could replace your TMainmenu with a TJvMainMenu you shoul solve it without using any AdvancedDrawItem procedure, as TJvMainMenu already shows shortcuts directly without pressing any alt key (using of course the '&amp;' in the caption)
</div>


mmm, if you could replace your TMainmenu with a TJvMainMenu you shoul solve it without using any AdvancedDrawItem procedure, as TJvMainMenu already shows shortcuts directly without pressing any alt key (using of course the '&' in the caption)

<div>
Ok, where can I find this component?<br />

</div>


<div>
Thnx, Peter Kiers.<br />
<br />
500 points are comming to you...
</div>


Thnx, Peter Kiers.

500 points are comming to you...

<div>
<div class="content wysiwyg-content">
Hi,<br />
<br />
I have received from my previous question an url about how to force <br />
underscores in the MainMenu. &nbsp;This is the link:<br />
<br />
<a href="http://www.tek-tips.com/viewthread.cfm?qid=1489404&page=22" rel="ugc">http://www.tek-tips.com/viewthread.cfm?qid=1489404&page=22</a><br />
<br />
I have read it, and came to the conclussion that I have set this procedure below to every menu-item I got!!!<br />
<br />
procedure TMainForm.AdvancedDrawItem<wbr />(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);<br />
begin<br />
&nbsp;if odnoAccel in State then &nbsp; &nbsp; &nbsp;// this proc to force underscore on menu items<br />
&nbsp; State := State - [odnoAccel];<br />
&nbsp;TMenuItem(Sender).OnAdvanc<wbr />edDrawItem<wbr /> := nil;<br />
&nbsp;DrawMenuItem(TMenuItem(Sen<wbr />der), ACanvas, ARect, State);<br />
&nbsp;TMenuItem(Sender).OnAdvanc<wbr />edDrawItem<wbr /> := &nbsp;AdvancedDrawItem;<br />
end;<br />
<br />
So I have 20 menu-items, so I have to add 20 times AdvancedDrawItem-procedure<wbr />.<br />
Isn't there a better way? <br />
<br />
Peter 
</div>
</div>


Hi,

I have received from my previous question an url about how to force 
underscores in the MainMenu.  This is the link:

http://www.tek-tips.com/viewthread.cfm?qid=1489404&page=22

I have read it, and came to the conclussion that I have set this procedure below to every menu-item I got!!!

procedure TMainForm.AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
begin
 if odnoAccel in State then      // this proc to force underscore on menu items
  State := State - [odnoAccel];
 TMenuItem(Sender).OnAdvancedDrawItem := nil;
 DrawMenuItem(TMenuItem(Sender), ACanvas, ARect, State);
 TMenuItem(Sender).OnAdvancedDrawItem :=  AdvancedDrawItem;
end;

So I have 20 menu-items, so I have to add 20 times AdvancedDrawItem-procedure.
Isn't there a better way? 

Peter 

Force persistent underscores in MainMenu, like Word has.

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.