[binary]

Доброго времени суток, уважаемые форумчане.
Недавно появилось желание расположить пункт главного меню "О программе" с правой стороны.
Рассмотрел пример использования GetMenuItemInfo и SetMenuItemInfo.
В итоге расположил следующий код в событиях OnCreate и OnPaint главной формы приложения и OnChange компонента
MainMenu:

Код:

var // определение глобальных переменных
mii: TMenuItemInfo;
MainMenu: hMenu;
Buffer: array[0..1000] of Char;
=========
// непосредственно код

MainMenu := Self.Menu.Handle;

mii.cbSize := SizeOf(mii) ;
mii.fMask := MIIM_TYPE;
mii.dwTypeData := Buffer;
mii.cch := SizeOf(Buffer);
GetMenuItemInfo(MainMenu, N21.Command, false, mii) ;

mii.fType := mii.fType or MFT_RIGHTJUSTIFY;
SetMenuItemInfo(MainMenu, N21.Command, false, mii) ;

Админ: Пользуемся тегами для оформления кода!

Всё работает. Однако заметил, что при деактивации какого-либо пункта меню (установка enabled в false) функция прекращает располагать нужный пункт меню с правой стороны.

Встречался ли кто с такой проблемой?
Заранее благодарен.