Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Right aligned menubar

Posted on 2004-08-24
3
Medium Priority
?
185 Views
Last Modified: 2010-08-05
Please help me:

How can I make Form1.MainMenu stick to right, without changing the BiDiMode of Form1. I mean any thing is ok but MainMenu1.

More Detail: I'm in XP with Delphi7 and like to run my application in any version of Windows.
0
Comment
Question by:szayeri
  • 2
3 Comments
 
LVL 17

Accepted Solution

by:
Wim ten Brink earned 255 total points
ID: 11883513
var
  MenuItemInfo: TMenuItemInfo;
  Buffer: array[ 0..79 ] of Char;
begin
  MenuItemInfo.cbSize := 44; // Required for Windows 95
  MenuItemInfo.fMask := MIIM_TYPE;
  MenuItemInfo.dwTypeData := Buffer;
  MenuItemInfo.cch := SizeOf( Buffer );
  if GetMenuItemInfo( MainMenu1.Handle, MainMenu1.Items.IndexOf( Edit1 ), True, MenuItemInfo ) then begin
    MenuItemInfo.fType := MenuItemInfo.fType or MFT_RIGHTJUSTIFY;
    SetMenuItemInfo( MainMenu1.Handle, MainMenu1.Items.IndexOf( Edit1 ), True, MenuItemInfo );
  end;
end;

MainMenu1 is my main menu, Edit1 is the second menu-item in the top.
0
 

Author Comment

by:szayeri
ID: 11889794
Dear Workshop Alex

Thank You. Your code works fine but there is some questions remaining:
1) How can I force menu items to be redrawn in order to make them appear at right? They are actually right aligned but their position before redrawing does not say so.
2) when I rename Edit1 every thing goes back. why is it so and how much can I trust in this code in special conditions (renaming, changing menuindex, closing form and so on)?
0
 
LVL 17

Expert Comment

by:Wim ten Brink
ID: 11929292
The problem with my solution is that while you explicitly tell the menu to be right-alighned once, the TMemu component isn't really aware of this yet. Thus, when the TMenu recreates the menu for whatever reason, (like renaming) it will bring the menu back to it's original position. Basically, you should inherit a new component from TMainMenu and add the functionality for this new right-alignment property, which is not an easy job. This new component could then respond to changes in the menu and make sure the MFT_RIGHTJUSTIFY is set for a specific menuitem.
Basically, the whole secret behind right-aligned menus is just this flag...
0

Featured Post

[Webinar On Demand] Database Backup and Recovery

Does your company store data on premises, off site, in the cloud, or a combination of these? If you answered “yes”, you need a data backup recovery plan that fits each and every platform. Watch now as as Percona teaches us how to build agile data backup recovery plan.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
This is an update to some code that someone else posted on Experts Exchange. It is an alternate approach, I think a little easier to use, & makes sure that things like the Task Bar will update.
Loops Section Overview
Look below the covers at a subform control , and the form that is inside it. Explore properties and see how easy it is to aggregate, get statistics, and synchronize results for your data. A Microsoft Access subform is used to show relevant calcul…
Suggested Courses
Course of the Month14 days, 4 hours left to enroll

581 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question