Alinhando itens do menu principal à direita

Para alinhar itens do menu principal  direita, deve-se utilizar o seguinte cdigo:

{Isto justifica todos itens à direita do selecionado}
procedure SetJustify(Menu: TMenu; MenuItem: TMenuItem; Justify: Byte);
{$IFDEF WIN32}
var
ItemInfo: TMenuItemInfo;
Buffer: array[0..80] of Char;
{$ENDIF}
begin
  {$IFDEF VER80}
  MenuItem.Caption := Chr(8) + MenuItem.Caption;
  {$ELSE}
  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);
  {$ENDIF}
end;

    

Autor : desconhecido

Voltar