Очень длинные меню

Данный код изменяет количество пунктов меню в зависимости от текущего разрешения. Данная схема работает безукоризненно. В нижеприведенном коде mnuView - выводимое меню, HandleMenuClick - назначенный обработчик для события OnClick.

procedure TfrmMain.LoadViewMenu;
var

itemNum: integer;

mnu: TMenuItem;

menuItemHeight: integer;

itemsPerColumn: integer;

begin

{удаляем все видимые пункты меню}

while mnuView.Count > 0 do begin

{метод Free удаляет пункт меню}

mnuView.Items[0].Free;

end;

{находим высоту каждого пункта меню.

Значение 2 получено в результате экспериментов}

menuItemHeight := GetSystemMetrics(SM_CYMENU) + 2;

{вычисляем количество пунктов в колонке меню}

itemsPerColumn := screen.height div menuItemHeight;

{создаем пункты меню}

for itemNum := 0 to 99 do begin

mnu := TMenuItem.Create(self);

mnu.caption := 'Пункт ' + inttostr(itemNum);

{при необходимости начинаем с новой колонки}

if (itemNum mod itemsPerColumn = 0) and (itemNum>0) then begin

mnu.break := mbBarBreak;

end;

{назначаем обработчик события OnClick}

mnu.OnClick := HandleMenuClick;

mnuView.Add(mnu);

end;

[000177]