PDA

View Full Version : set "separator" in menu bar?


Solmos
11-21-2006, 03:07 PM
Example:

tblMenu[1] ={};
tblMenu[1].Text = "&New Menu";
tblMenu[1].ID = 100;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "&SubItem 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
Separator????
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "S&ubItem 2";
tblMenu[1].SubMenu[2].ID = 102;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;

thx!!!

sue
11-21-2006, 04:31 PM
Hi - to add the separator just make the ID=0 and the .text = "---"; as shown below:

tblMenu[1] ={};
tblMenu[1].Text = "&New Menu";
tblMenu[1].ID = 100;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[1].SubMenu = {};
tblMenu[1].SubMenu[1] = {};
tblMenu[1].SubMenu[1].Text = "&SubItem 1";
tblMenu[1].SubMenu[1].ID = 101;
tblMenu[1].SubMenu[1].Checked = false;
tblMenu[1].SubMenu[1].Enabled = true;
tblMenu[1].SubMenu[2] = {};
tblMenu[1].SubMenu[2].Text = "---";
tblMenu[1].SubMenu[2].ID = 0;
tblMenu[1].SubMenu[2].Checked = false;
tblMenu[1].SubMenu[2].Enabled = true;
tblMenu[1].SubMenu[3] = {};
tblMenu[1].SubMenu[3].Text = "S&ubItem 2";
tblMenu[1].SubMenu[3].ID = 102;
tblMenu[1].SubMenu[3].Checked = false;
tblMenu[1].SubMenu[3].Enabled = true;

Hope that helps,
Sue

Solmos
11-22-2006, 02:11 AM
thx!!!

works perfect ;-)