I have received from my previous question an url about how to force
underscores in the MainMenu. This is the link:
I have read it, and came to the conclussion that I have set this procedure below to every menu-item I got!!!
(Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState);
if odnoAccel in State then // this proc to force underscore on menu items
State := State - [odnoAccel];
der), ACanvas, ARect, State);
So I have 20 menu-items, so I have to add 20 times AdvancedDrawItem-procedure
Isn't there a better way?