troubleshooting Question

Force persistent underscores in MainMenu, like Word has.

Avatar of Peter Kiers
Peter KiersFlag for Netherlands asked on
Delphi
4 Comments1 Solution388 ViewsLast Modified:
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
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 4 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros