السلام عليكم ورحمة الله وبركاته
كيف افتح عامود 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
فى الكود جعلتهما 0 .
--
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
فى الكود جعلتهما 0 .





.. لك مني أجمل تحية .
--
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
فى الكود جعلتهما 0 .
تعليق