dallas page
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет. Ребята, подскажите пожалуйста. Мне нужно, при нажатии правой кнопки мыши, выводить меню команд. Сейчас используется этот код:
Код: tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "Команда 1";
tblMenu[1].ID = 101;
tblMenu[1].IconID = 7;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[2] ={};
tblMenu[2].Text = "Команда 2";
tblMenu[2].ID = 102;
tblMenu[2].IconID = 8;
tblMenu[2].Checked = false;
tblMenu[2].Enabled = true;
tblMenu[3] ={};
tblMenu[3].Text = "---";
tblMenu[3].ID = 0;
tblMenu[3].IconID = 0;
tblMenu[3].Checked = false;
tblMenu[3].Enabled = true;
tblMenu[4] ={};
tblMenu[4].Text = "Команда 3";
tblMenu[4].ID = 103;
tblMenu[4].IconID = 9;
tblMenu[4].Checked = false;
tblMenu[4].Enabled = true;
local mousePos = System.GetMousePosition(true, nil);
local command = Application.ShowPopupMenu(mousePos.X, mousePos.Y, tblMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true);
if command == 101 then
Dialog.Message("", "Команда 1", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
elseif command == 102 then
Dialog.Message("", "Команда 2", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
elseif command == 103 then
Dialog.Message("", "Команда 3", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
|
Все хорошо работает. Но я хочу изменить внешний вид этого меню. Мне нравится как выглядет подобное меню в клиенте Telegram:
https://yadi.sk/i/nPWGB4_Mt91WYg
Можно ли реализовать такой вид меню в AMS? Спасибо. |
Дружественная тема в Варезнике
