Menus - alinhando a direita

Top  Previous  Next

procedure SetJustify(Menu: TMenu; MenuItem: TMenuItem; Justify: Byte);

var

  ItemInfo: TMenuItemInfo;

  Buffer  : array[0..80of Char;

begin

  ItemInfo.cbSize := SizeOf(TMenuItemInfo);

  ItemInfo.fMask := MIIM_TYPE;

  ItemInfo.dwTypeData := Buffer;

  ItemInfo.cch := SizeOf(Buffer);

  GetMenuItemInfo(Menu.Handle, MenuItem.Command, False, ItemInfo);

  if Justify = 1 then ItemInfo.fType := ItemInfo.fType or MFT_RIGHTJUSTIFY;

  SetMenuItemInfo(Menu.Handle, MenuItem.Command, False, ItemInfo);

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  // 2 parametro é um dos Submenus

  SetJustify( MainMenu1, Arquivo1, 1);

 

end;