При изменении названий пунктов меню из скрипта (в рантайм) - пропадают шоткаты :((( Кто знает, как с этим зверем бороться? Ну чтоб не пропадали.

С Уважением...

Вот кусок описания Menu Object
Shortcut Integer Specifies the shortcut key for the Menu object. This property should only be set in the Menu painter. It cannot be set at runtime.

Посему Филипп , спасибо, но енто не подходит :((.

Меню динамически не генерю, а изменяю, вещи разные. Насколько знаю, штатными средствами PB - его динамически создавать нельзя без извращений... Да мне и не требуется пока. Вот ф-ия, которая с меню работает... Почему нельзя шоткаты менять - смотри на мессадж выше :))

global function integer show_menu (menu m, string as_name, string as_title);int i, sh
string item_id
for i = lowerBound(m.Item) to upperBound(m.Item)
item_id = m.Item.classname()
if item_id = as_name then
// sh = m.item.ShortCut
m.item.Visible = true
m.item.Enabled = true
m.item.Text = as_title
m.item.ToolbarItemVisible = true
m.item.ToolbarItemText = as_title
// m.item.ShortCut = sh
return 1
end if
if show_menu(m.Item, as_name, as_title) = 1 then return 1
next
return 0
end function

Вот окончательный вариант, кому интересно... все работает, особое спасибо PL99 & Филиппу.

global function integer show_menu (menu m, string as_name, string as_title);int i, sh
string item_id, ls_sh
boolean lb_shift, lb_alt, lb_ctrl
for i = lowerBound(m.Item) to upperBound(m.Item)
item_id = m.Item.classname()
if item_id = as_name then
// define ShortCut
sh = m.item.ShortCut
if null2long(sh) > 0 then
ls_sh = "~t"
if sh >= 1024 then
ls_sh += "Shift+"
sh -= 1024
end if
if sh >= 512 then
ls_sh += "Alt+"
sh -= 512
end if
if sh >= 256 then
ls_sh += "Ctrl+"
sh -= 256
end if
ls_sh += String(Char(sh))
else
ls_sh = ""
end if
// change status & text
m.item.Visible = true
m.item.Enabled = true
m.item.Text = as_title + ls_sh
m.item.ToolbarItemVisible = true
m.item.ToolbarItemText = as_title
Print(as_title + ls_sh)
// m.item.ShortCut = sh
return 1
end if
if show_menu(m.Item, as_name, as_title) = 1 then return 1
next
return 0
end function