السلام عليكم ورحمة الله وبركاته
كيف افتح عامود Menu باستعمال لوحة المفاتيخ
مثلا المفتاح Alt لاختيار الفتح

كيف افتح عامود Menu باستعمال لوحة المفاتيخ
مثلا المفتاح Alt لاختيار الفتح

-- if e_Modifiers.alt then tblMenu = {}; tblMenu[1] ={}; tblMenu[1].Text = "Action Wizard..."; tblMenu[1].ID = 100; tblMenu[1].IconID = 0; tblMenu[1].Checked = false; tblMenu[1].Enabled = true; tblMenu[2] ={}; tblMenu[2].Text = "Edit Action..."; tblMenu[2].ID = 101; tblMenu[2].IconID = 1; tblMenu[2].Checked = false; tblMenu[2].Enabled = true; tblMenu[3] ={}; tblMenu[3].Text = "Insert"; tblMenu[3].ID = 102; tblMenu[3].IconID = -1; tblMenu[3].Checked = false; tblMenu[3].Enabled = true; tblMenu[4] ={}; tblMenu[4].Text = "Quick Scripts"; tblMenu[4].ID = 102; tblMenu[4].IconID = -1; tblMenu[4].Checked = false; tblMenu[4].Enabled = true; tblMenu[5] ={}; tblMenu[5].Text = "Property Tables"; tblMenu[5].ID = 103; tblMenu[5].IconID = -1; tblMenu[5].Checked = false; tblMenu[5].Enabled = true; tblMenu[6] ={}; tblMenu[6].Text = "---"; tblMenu[7] ={}; tblMenu[7].Text = "Cut"; tblMenu[7].ID = 104; tblMenu[7].IconID = 2; tblMenu[7].Checked = false; tblMenu[7].Enabled = true; tblMenu[8] ={}; tblMenu[8].Text = "Copy"; tblMenu[8].ID = 105; tblMenu[8].IconID = 3; tblMenu[8].Checked = false; tblMenu[8].Enabled = true; tblMenu[9] ={}; tblMenu[9].Text = "Paste"; tblMenu[9].ID = 104; tblMenu[9].IconID = 4; tblMenu[9].Checked = false; tblMenu[9].Enabled = true; tblMenu[10] ={}; tblMenu[10].Text = "Delete"; tblMenu[10].ID = 105; tblMenu[10].IconID = 5; tblMenu[10].Checked = false; tblMenu[10].Enabled = true; tblMenu[11] ={}; tblMenu[11].Text = "---"; tblMenu[12] ={}; tblMenu[12].Text = "Select All"; tblMenu[12].ID = 105; tblMenu[12].IconID = -1; tblMenu[12].Checked = false; tblMenu[12].Enabled = true; nRes = Application.ShowPopupMenu(0, 0, tblMenu, TPM_RIGHTALIGN, TPM_TOPALIGN, true, false); end
-- if e_Modifiers.alt then tblMenu = {}; tblMenu[1] ={}; tblMenu[1].Text = "Action Wizard..."; tblMenu[1].ID = 100; tblMenu[1].IconID = 0; tblMenu[1].Checked = false; tblMenu[1].Enabled = true; tblMenu[2] ={}; tblMenu[2].Text = "Edit Action..."; tblMenu[2].ID = 101; tblMenu[2].IconID = 1; tblMenu[2].Checked = false; tblMenu[2].Enabled = true; tblMenu[3] ={}; tblMenu[3].Text = "Insert"; tblMenu[3].ID = 102; tblMenu[3].IconID = -1; tblMenu[3].Checked = false; tblMenu[3].Enabled = true; tblMenu[4] ={}; tblMenu[4].Text = "Quick Scripts"; tblMenu[4].ID = 102; tblMenu[4].IconID = -1; tblMenu[4].Checked = false; tblMenu[4].Enabled = true; tblMenu[5] ={}; tblMenu[5].Text = "Property Tables"; tblMenu[5].ID = 103; tblMenu[5].IconID = -1; tblMenu[5].Checked = false; tblMenu[5].Enabled = true; tblMenu[6] ={}; tblMenu[6].Text = "---"; tblMenu[7] ={}; tblMenu[7].Text = "Cut"; tblMenu[7].ID = 104; tblMenu[7].IconID = 2; tblMenu[7].Checked = false; tblMenu[7].Enabled = true; tblMenu[8] ={}; tblMenu[8].Text = "Copy"; tblMenu[8].ID = 105; tblMenu[8].IconID = 3; tblMenu[8].Checked = false; tblMenu[8].Enabled = true; tblMenu[9] ={}; tblMenu[9].Text = "Paste"; tblMenu[9].ID = 104; tblMenu[9].IconID = 4; tblMenu[9].Checked = false; tblMenu[9].Enabled = true; tblMenu[10] ={}; tblMenu[10].Text = "Delete"; tblMenu[10].ID = 105; tblMenu[10].IconID = 5; tblMenu[10].Checked = false; tblMenu[10].Enabled = true; tblMenu[11] ={}; tblMenu[11].Text = "---"; tblMenu[12] ={}; tblMenu[12].Text = "Select All"; tblMenu[12].ID = 105; tblMenu[12].IconID = -1; tblMenu[12].Checked = false; tblMenu[12].Enabled = true; nRes = Application.ShowPopupMenu(0, 0, tblMenu, TPM_RIGHTALIGN, TPM_TOPALIGN, true, false); end
-- if e_Modifiers.alt then tblMenu = {}; tblMenu[1] ={}; tblMenu[1].Text = "Action Wizard..."; tblMenu[1].ID = 100; tblMenu[1].IconID = 0; tblMenu[1].Checked = false; tblMenu[1].Enabled = true; tblMenu[2] ={}; tblMenu[2].Text = "Edit Action..."; tblMenu[2].ID = 101; tblMenu[2].IconID = 1; tblMenu[2].Checked = false; tblMenu[2].Enabled = true; tblMenu[3] ={}; tblMenu[3].Text = "Insert"; tblMenu[3].ID = 102; tblMenu[3].IconID = -1; tblMenu[3].Checked = false; tblMenu[3].Enabled = true; tblMenu[4] ={}; tblMenu[4].Text = "Quick Scripts"; tblMenu[4].ID = 102; tblMenu[4].IconID = -1; tblMenu[4].Checked = false; tblMenu[4].Enabled = true; tblMenu[5] ={}; tblMenu[5].Text = "Property Tables"; tblMenu[5].ID = 103; tblMenu[5].IconID = -1; tblMenu[5].Checked = false; tblMenu[5].Enabled = true; tblMenu[6] ={}; tblMenu[6].Text = "---"; tblMenu[7] ={}; tblMenu[7].Text = "Cut"; tblMenu[7].ID = 104; tblMenu[7].IconID = 2; tblMenu[7].Checked = false; tblMenu[7].Enabled = true; tblMenu[8] ={}; tblMenu[8].Text = "Copy"; tblMenu[8].ID = 105; tblMenu[8].IconID = 3; tblMenu[8].Checked = false; tblMenu[8].Enabled = true; tblMenu[9] ={}; tblMenu[9].Text = "Paste"; tblMenu[9].ID = 104; tblMenu[9].IconID = 4; tblMenu[9].Checked = false; tblMenu[9].Enabled = true; tblMenu[10] ={}; tblMenu[10].Text = "Delete"; tblMenu[10].ID = 105; tblMenu[10].IconID = 5; tblMenu[10].Checked = false; tblMenu[10].Enabled = true; tblMenu[11] ={}; tblMenu[11].Text = "---"; tblMenu[12] ={}; tblMenu[12].Text = "Select All"; tblMenu[12].ID = 105; tblMenu[12].IconID = -1; tblMenu[12].Checked = false; tblMenu[12].Enabled = true; nRes = Application.ShowPopupMenu(0, 0, tblMenu, TPM_RIGHTALIGN, TPM_TOPALIGN, true, false); end
تعليق