112:
How can I display a chart/organigram view inside

local var_ChartView as IChartView
local var_Control as IControl
local var_Menu as IMenu
local var_Nodes as INodes

var_Menu := oDCOCX_Exontrol1:Items
	var_Menu:Add("File",nil,nil)
	var_Control := var_Menu:Add("OrgChart",3,nil):SubControl
		var_Control:ControlID := "Exontrol.ChartView"
		var_Control:Width := 128
		var_Control:Height := 164
		var_Control:Create()
		// Generate Source for 'ExOrgChart 1.0 Control Library(ExOrgChart.dll)' server from Tools\Automation Server...
		var_ChartView := IChartView{var_Control:Object}
			var_ChartView:IndentSiblingY := 30
			var_ChartView:ShowLinksDir := true
			var_ChartView:PenWidthLink := 2
			var_ChartView:LinkColor := RGB(0,0,0)
			var_ChartView:AntiAliasing := true
			var_Nodes := var_ChartView:Nodes
				var_Nodes:Add("L1_A",nil,"LA",nil,nil):ShowLinkDir := false
				var_Nodes:Add("L1_B",nil,"LB",nil,nil)
				var_Nodes:Add("L2_A","LA","LA2",nil,nil)
				var_Nodes:Add("L2_B","LB","LB2",nil,nil)
	var_Menu:Add("Close",nil,nil)
oDCOCX_Exontrol1:Refresh()

111:
How do I uncheck the item

METHOD OCX_Exontrol1Select(ID) CLASS MainDialog
	// Select event - Occurs when an item is selected by clicking or by pressing RETURN key.
	// Item(ID).Check = False
RETURN NIL

local var_item as IItem
local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items
	var_item := var_Menu:Add("Horizontal View",nil,210)
		var_item:Check := true
		var_item:CheckEffect := false
oDCOCX_Exontrol1:Refresh()

110:
How do I get the identifier of the item being clicked / selected

METHOD OCX_Exontrol1Select(ID) CLASS MainDialog
	// Select event - Occurs when an item is selected by clicking or by pressing RETURN key.
	OutputDebugString(String2Psz( "Using ID parameter:" ))
	OutputDebugString(String2Psz( AsString(ID) ))
	OutputDebugString(String2Psz( "Using the EventParam property: " ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[EventParam,0]) ))
	OutputDebugString(String2Psz( "Using the ExecuteTemplate property: " ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:ExecuteTemplate("EventParam(0)")) ))
	oDCOCX_Exontrol1:Template := "EventParam(0)"
	OutputDebugString(String2Psz( "Using TemplateResult property:" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:TemplateResult) ))
	OutputDebugString(String2Psz( "Using TemplateResultN property:" ))
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:TemplateResultN) ))
	OutputDebugString(String2Psz( "Using TemplateResultS property:" ))
	OutputDebugString(String2Psz( oDCOCX_Exontrol1:TemplateResultS ))
RETURN NIL


oDCOCX_Exontrol1:Items:ToString := "A[id=10](B[id=20],C[id=30](D[id=40],E[id=50]),F[id=60])"

109:
How can I assign an icon to an item using an external ICO file


oDCOCX_Exontrol1:[HTMLPicture,"ico1"] := "C:\Program Files\Exontrol\ExMenu\Sample\VC\Sample\res\sample.ico"
oDCOCX_Exontrol1:Items:Add("<img>ico1:16</img> Caption",nil,nil)
oDCOCX_Exontrol1:Refresh()

108:
How can I assign an icon to an item using an external ICO file


oDCOCX_Exontrol1:ReplaceIcon(oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`C:\Program Files\Exontrol\ExMenu\Sample\VC\Sample\res\sample.ico`)"),nil)
oDCOCX_Exontrol1:Items:Add("Caption",0,nil):Image := 0
oDCOCX_Exontrol1:Refresh()

107:
How can I assign a tooltip for an item

local var_item as IItem
local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_item := var_Menu:Add("ToolTip     CTRL + <b>F</b>",nil,nil)
		var_item:Tooltip := "This is a bit of text that should be displayed when the cursor hovers the item"
		var_item:TooltipTitle := "Title"
oDCOCX_Exontrol1:Refresh()

106:
How can I specify some keys on the right of the item

local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_Menu:Add("File     CTRL + <b>F</b>",nil,nil)
	var_Menu:Add("Left should be a long text",nil,nil)
oDCOCX_Exontrol1:Refresh()

105:
How do I specify the item's alignment

local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_Menu:Add("Left<r>Right",nil,nil)
	var_Menu:Add("Left should be a long text",nil,nil)
oDCOCX_Exontrol1:Refresh()

104:
How do I specify the item's alignment

local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_Menu:Add("Center",nil,nil):Alignment := exCenter
	var_Menu:Add("Right",nil,nil):Alignment := exRight
	var_Menu:Add("Left should be a long text",nil,nil)
oDCOCX_Exontrol1:Refresh()

103:
How can I remove the border of the item's text box or an edit control

local var_item as IItem
local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_item := var_Menu:Add("Edit 1",nil,nil)
		var_item:AllowEdit := true
		var_item:EditCaption := "test"
		var_item:EditWidth := 128
		var_item:EditBorder := exEditBorderNone
	var_Menu:Add("Edit 2",nil,nil):AllowEdit := true
oDCOCX_Exontrol1:Refresh()

102:
How can I specify a single border for the item's text box or an edit control

local var_item as IItem
local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_item := var_Menu:Add("Edit 1",nil,nil)
		var_item:AllowEdit := true
		var_item:EditCaption := "test"
		var_item:EditWidth := 128
		var_item:EditBorder := exEditBorderSingle
	var_Menu:Add("Edit 2",nil,nil):AllowEdit := true
oDCOCX_Exontrol1:Refresh()

101:
How can I add a checkbox

local var_item as IItem

var_item := oDCOCX_Exontrol1:Items:Add("Checked",nil,nil)
	var_item:Check := true
	var_item:CheckEffect := false
oDCOCX_Exontrol1:Refresh()

100:
How can I specify the shape of the cursor while it hovers an item

local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_Menu:Add("Item 1",nil,nil):Cursor := "exHelp"
	var_Menu:Add("Item 2",nil,nil)
oDCOCX_Exontrol1:Refresh()

99:
How can I specify the width for text box or an edit control

local var_item as IItem
local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_item := var_Menu:Add("Edit 1",nil,nil)
		var_item:AllowEdit := true
		var_item:EditCaption := "test"
		var_item:EditWidth := 128
	var_Menu:Add("Edit 2",nil,nil):AllowEdit := true
oDCOCX_Exontrol1:Refresh()

98:
How can I show or hide an item

local var_item as IItem
local var_Menu as IMenu

var_item := oDCOCX_Exontrol1:Items:Add("Popup",2,nil)
	var_Menu := var_item:SubMenu
		var_Menu:Add("Visible",nil,nil)
		var_Menu:Add("Hidden",nil,nil):Visible := false
oDCOCX_Exontrol1:Refresh()

97:
Is there any function to display the popup menu up not down

local var_item as IItem
local var_Menu as IMenu

oDCOCX_Exontrol1:Items:Add("Item",nil,nil)
var_item := oDCOCX_Exontrol1:Items:Add("Popup",2,nil)
	var_item:ShowDown := false
	var_Menu := var_item:SubMenu
		var_Menu:Add("Item <fgcolor=FF0000>1</fgcolor>",nil,nil)
		var_Menu:Add("Item 2",nil,nil):Caption := "Item <fgcolor=FF0000>2</fgcolor>"
oDCOCX_Exontrol1:Items:Add("Item",nil,nil)
oDCOCX_Exontrol1:Appearance := Normal
oDCOCX_Exontrol1:Border := SunkenBorder
oDCOCX_Exontrol1:Refresh()

96:
How can I specify the item's foreground color

local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_Menu:Add("Item <fgcolor=FF0000>1</fgcolor>",nil,nil)
	var_Menu:Add("Item 2",nil,nil):Caption := "Item <fgcolor=FF0000>2</fgcolor>"
oDCOCX_Exontrol1:Refresh()

95:
How can I specify the item's foreground color

local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_Menu:Add("Item 1",nil,nil):ForeColor := RGB(255,0,0)
	var_Menu:Add("Item 2",nil,nil)
oDCOCX_Exontrol1:Refresh()

94:
How can I specify the item's background color

local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_Menu:Add("Item 1",nil,nil):BackColor := RGB(255,0,0)
	var_Menu:Add("Item 2",nil,nil)
oDCOCX_Exontrol1:Refresh()

93:
How can I add an item with a text box or an edit control

local var_item as IItem
local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_item := var_Menu:Add("Edit 1",nil,nil)
		var_item:AllowEdit := true
		var_item:EditCaption := "test"
	var_Menu:Add("Edit 2",nil,nil):AllowEdit := true
oDCOCX_Exontrol1:Refresh()

92:
How can I add an item with a text box or an edit control

local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_Menu:Add("Edit 1",nil,nil):AllowEdit := true
	var_Menu:Add("Edit 2",nil,nil):AllowEdit := true
oDCOCX_Exontrol1:Refresh()

91:
How can I add a bullet

local var_item as IItem

var_item := oDCOCX_Exontrol1:Items:Add("Bullet",nil,nil)
	var_item:Check := true
	var_item:Bullet := true
oDCOCX_Exontrol1:Refresh()

90:
How can I add a checkbox


oDCOCX_Exontrol1:Items:Add("Checked",nil,nil):Check := true
oDCOCX_Exontrol1:Refresh()

89:
How can I enable or disable an item


oDCOCX_Exontrol1:Items:Add("Disabled",nil,nil):Enabled := false
oDCOCX_Exontrol1:Refresh()

88:
How can I display an icon


oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:Items:Add("A",nil,nil):Image := 1
oDCOCX_Exontrol1:Refresh()

87:
How can I specify the item's identifier


oDCOCX_Exontrol1:Items:Add("A",nil,nil):ID := 1000
oDCOCX_Exontrol1:Refresh()

86:
How can I specify the item's identifier


oDCOCX_Exontrol1:Items:Add("A",0,1000)
oDCOCX_Exontrol1:Refresh()

85:
How can I assign an extra data to an item


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:UserData := "your data"
oDCOCX_Exontrol1:Refresh()

84:
How can I underline an item


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Caption := "Item <u>1</u>"
oDCOCX_Exontrol1:Refresh()

83:
How can I underline an item


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Underline := true
oDCOCX_Exontrol1:Refresh()

82:
How can I display as strikeout an item


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Caption := "Item <s>1</s>"
oDCOCX_Exontrol1:Refresh()

81:
How can I display as strikeout an item


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Strikeout := true
oDCOCX_Exontrol1:Refresh()

80:
How can I display as italic an item


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Caption := "Item <i>1</i>"
oDCOCX_Exontrol1:Refresh()

79:
How can I display as italic an item


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Italic := true
oDCOCX_Exontrol1:Refresh()

78:
How do I bold an item


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Caption := "Item <b>1</b>"
oDCOCX_Exontrol1:Refresh()

77:
How do I bold an item


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Bold := true
oDCOCX_Exontrol1:Refresh()

76:
How do I change the item's caption


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Caption := "new <b>caption</b>"
oDCOCX_Exontrol1:Refresh()

75:
How can I speciy the picture on the drop down menu


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:Items:[item,10]:SubMenu:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")

74:
How can I speciy the number of visible items


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:SubMenu:VisibleItemsCount := 1

73:
How can I speciy the shape of the cursor when it hovers the menu


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Cursor := "exHelp"

72:
How can I add items


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

71:
How I can remove an item


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:Remove(10)
oDCOCX_Exontrol1:Refresh()

70:
How I can get the number or the count of the items in the menu

local var_Menu as IMenu

oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
var_Menu := oDCOCX_Exontrol1:Items
	var_Menu:Add(AsString(var_Menu:Count),nil,nil)
oDCOCX_Exontrol1:Refresh()

69:
How I can clear a menu


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:Clear()
oDCOCX_Exontrol1:Items:ToString := "Item 1"

68:
How do I specify to close an ActiveX item when user clicks it

local var_Calendar as ICalendar
local var_Control as IControl

var_Control := oDCOCX_Exontrol1:Items:Add("Calendar",3,nil):SubControl
	var_Control:ControlID := "MSCal.Calendar"
	var_Control:Width := 256
	var_Control:Height := 196
	var_Control:Create()
	// Generate Source for 'Microsoft Calendar Control 8.0(MSCAL.OCX)' server from Tools\Automation Server...
	var_Calendar := ICalendar{var_Control:Object}
		var_Calendar:ShowDateSelectors := false
		var_Calendar:BackColor := RGB(239,239,231)
	var_Control:CloseOn := exLButtonUp
oDCOCX_Exontrol1:Refresh()

67:
How can I access the properties and methods for an ActiveX item

local var_Calendar as ICalendar
local var_Control as IControl

var_Control := oDCOCX_Exontrol1:Items:Add("Calendar",3,nil):SubControl
	var_Control:ControlID := "MSCal.Calendar"
	var_Control:Width := 256
	var_Control:Height := 196
	var_Control:Create()
	// Generate Source for 'Microsoft Calendar Control 8.0(MSCAL.OCX)' server from Tools\Automation Server...
	var_Calendar := ICalendar{var_Control:Object}
		var_Calendar:ShowDateSelectors := false
		var_Calendar:BackColor := RGB(239,239,231)
oDCOCX_Exontrol1:Refresh()

66:
I can't see the ActiveX item

local var_Control as IControl

var_Control := oDCOCX_Exontrol1:Items:Add("Calendar",3,nil):SubControl
	var_Control:ControlID := "MSCal.Calendar"
	var_Control:Create()
oDCOCX_Exontrol1:Refresh()

65:
How can I specify the runtime license key for an ActiveX item

local var_Control as IControl

var_Control := oDCOCX_Exontrol1:Items:Add("Calendar",3,nil):SubControl
	var_Control:ControlID := "MSCal.Calendar"
	var_Control:LicenseKey := ""
	var_Control:Create()
oDCOCX_Exontrol1:Refresh()

64:
How can I specify the width and the height for an ActiveX item

local var_Control as IControl

var_Control := oDCOCX_Exontrol1:Items:Add("Calendar",3,nil):SubControl
	var_Control:ControlID := "MSCal.Calendar"
	var_Control:Width := 256
	var_Control:Height := 256
	var_Control:Create()
oDCOCX_Exontrol1:Refresh()

63:
How can I select a date

local var_Control as IControl
local var_DTPicker as IDTPicker
local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_Control := var_Menu:Add("Select a date",3,nil):SubControl
		var_Control:ControlID := "MSComCtl2.DTPicker"
		var_Control:Width := 128
		var_Control:Height := 22
		var_Control:Create()
		// Generate Source for 'Microsoft Windows Common Controls-2 6.0 (SP6)(mscomct2.ocx)' server from Tools\Automation Server...
		var_DTPicker := IDTPicker{var_Control:Object}
			var_DTPicker:Format := 3
			var_DTPicker:CustomFormat := "dd-MM-yyy"
			var_DTPicker:Refresh()
oDCOCX_Exontrol1:Refresh()

62:
How can I add an ActiveX item

local var_Control as IControl

var_Control := oDCOCX_Exontrol1:Items:Add("Calendar",3,nil):SubControl
	var_Control:ControlID := "MSCal.Calendar"
	var_Control:Create()
oDCOCX_Exontrol1:Refresh()

61:
How can I add a separator item

local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_Menu:Add("Item 1",nil,nil)
	var_Menu:Add("",1,nil)
	var_Menu:Add("Item 2",nil,nil)
oDCOCX_Exontrol1:Refresh()

60:
How can I add a popup or a submenu

local var_Menu as IMenu

var_Menu := oDCOCX_Exontrol1:Items:Add("Popup",2,nil):SubMenu
	var_Menu:Add("Item 1",nil,nil)
	var_Menu:Add("Item 2",nil,nil)
oDCOCX_Exontrol1:Refresh()

59:
How can I add a new item


oDCOCX_Exontrol1:Items:Add("Item 1",nil,nil)
oDCOCX_Exontrol1:Refresh()

58:
How I can assign a picture or an icon to an item


oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:[ItemHeight,Button] := 34
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Caption := "<img>pic1</img> <b>1</b>"
oDCOCX_Exontrol1:Items:[item,60]:Caption := "T <img>1</img> <img>2</img> and so on "
oDCOCX_Exontrol1:Refresh()

57:
How I can assign a picture to an item


oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "c:\exontrol\images\zipdisk.gif"
oDCOCX_Exontrol1:[HTMLPicture,"pic2"] := "c:\exontrol\images\auction.gif"
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:Items:[item,10]:Caption := "<img>pic1</img> <b>1</b>"
oDCOCX_Exontrol1:Items:[item,60]:Caption := "<img>pic2</img> <b>2</b>"
oDCOCX_Exontrol1:Refresh()

56:
How do I call your x-script language


oDCOCX_Exontrol1:Template := "Items.ToString = `Item 1,Item 2`"

55:
How do I change the shape of the cursor whether it hovers the control


oDCOCX_Exontrol1:Cursor := "exHelp"
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

54:
How do I specify whether the item gets selected whether the user presses or releases the mouse


oDCOCX_Exontrol1:SelectOn := exMouseUp
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

53:
How do I change the picture or icon for the chevrons


oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:[ScrollImage,true] := 1
oDCOCX_Exontrol1:[ScrollImage,false] := 2
oDCOCX_Exontrol1:AllowChevron := exScroll
oDCOCX_Exontrol1:Items:ToString := "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"

52:
How do I specify the height for items


oDCOCX_Exontrol1:[ItemHeight,Button] := 34
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

51:
How do I change the picture or icon for the chevrons


oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:ChevronImage := 1
oDCOCX_Exontrol1:AllowChevron := exChevron
oDCOCX_Exontrol1:Items:ToString := "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"

50:
How do I disable chevrons


oDCOCX_Exontrol1:AllowChevron := exDefault
oDCOCX_Exontrol1:Items:ToString := "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"

49:
How do I allow chevrons


oDCOCX_Exontrol1:AllowChevron := exScroll
oDCOCX_Exontrol1:Items:ToString := "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"

48:
How do I allow chevrons


oDCOCX_Exontrol1:AllowChevron := exChevron
oDCOCX_Exontrol1:Items:ToString := "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40]),Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"

47:
How do I show directly the drop down menu, without scrolling


oDCOCX_Exontrol1:ScrollOnDrop := exShowPopupDirect
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

46:
How can I change the visual appearance for for a top level item, when the Appearance property is Flat


oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exSelectRootItem] := 0x1000000
oDCOCX_Exontrol1:Appearance := Flat
oDCOCX_Exontrol1:Border := FlatBorder
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

45:
How can I change the visual appearance for an item, when the Appearance property is Button


oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exButtonItem] := 0x1000000
oDCOCX_Exontrol1:Appearance := Button
oDCOCX_Exontrol1:Border := FlatBorder
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

44:
Can I change the visual appearance for separator items


oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exSeparatorItem] := 0x1000000
oDCOCX_Exontrol1:Items:ToString := "Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])"

43:
Can I change the forecolor for the tooltip


oDCOCX_Exontrol1:ToolTipDelay := 1
oDCOCX_Exontrol1:ToolTipWidth := 364
oDCOCX_Exontrol1:[Background,exToolTipForeColor] := RGB(255,0,0)
oDCOCX_Exontrol1:Items:ToString := "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
oDCOCX_Exontrol1:Items:[item,10]:Tooltip := "Click the <b>ToolTip</b> and so the drop down menu will be shown"
oDCOCX_Exontrol1:Refresh()

42:
Can I change the background color for the tooltip


oDCOCX_Exontrol1:ToolTipDelay := 1
oDCOCX_Exontrol1:ToolTipWidth := 364
oDCOCX_Exontrol1:[Background,exToolTipBackColor] := RGB(255,0,0)
oDCOCX_Exontrol1:Items:ToString := "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
oDCOCX_Exontrol1:Items:[item,10]:Tooltip := "Click the <b>ToolTip</b> and so the drop down menu will be shown"
oDCOCX_Exontrol1:Refresh()

41:
Can I change the default border of the tooltip, using your EBN files


oDCOCX_Exontrol1:ToolTipDelay := 1
oDCOCX_Exontrol1:ToolTipWidth := 364
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exToolTipAppearance] := 0x1000000
oDCOCX_Exontrol1:Items:ToString := "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
oDCOCX_Exontrol1:Items:[item,10]:Tooltip := "Click the <b>ToolTip</b> and so the drop down menu will be shown"
oDCOCX_Exontrol1:Refresh()

40:
Can I change the font for the tooltip

local var_StdFont as stdFont

oDCOCX_Exontrol1:ToolTipDelay := 1
// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
var_StdFont := oDCOCX_Exontrol1:ToolTipFont
	var_StdFont:Name := "Tahoma"
	var_StdFont:Size := 14
oDCOCX_Exontrol1:ToolTipWidth := 400
oDCOCX_Exontrol1:Items:ToString := "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
oDCOCX_Exontrol1:Items:[item,10]:Tooltip := "Click the <b>ToolTip</b> and so the drop down menu will be shown"
oDCOCX_Exontrol1:Refresh()

39:
I've seen that the width of the tooltip is variable. Can I make it larger


oDCOCX_Exontrol1:ToolTipWidth := 328
oDCOCX_Exontrol1:Items:ToString := "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
oDCOCX_Exontrol1:Items:[item,10]:Tooltip := "Click the <b>ToolTip</b> and so the drop down menu will open"
oDCOCX_Exontrol1:Refresh()

38:
How do I let the tooltip being displayed longer


oDCOCX_Exontrol1:ToolTipPopDelay := 10000
oDCOCX_Exontrol1:Items:ToString := "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
oDCOCX_Exontrol1:Items:[item,10]:Tooltip := "Click the <b>ToolTip</b> and so the drop down menu will opene"
oDCOCX_Exontrol1:Refresh()

37:
How do I disable showing the tooltip for all control


oDCOCX_Exontrol1:ToolTipDelay := 0
oDCOCX_Exontrol1:Items:ToString := "No-ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
oDCOCX_Exontrol1:Items:[item,10]:Tooltip := "Click the <b>ToolTip</b> and so the drop down menu will opene"
oDCOCX_Exontrol1:Refresh()

36:
How do I show the tooltip quicker


oDCOCX_Exontrol1:ToolTipDelay := 1
oDCOCX_Exontrol1:Items:ToString := "ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])"
oDCOCX_Exontrol1:Items:[item,10]:Tooltip := "Click the <b>ToolTip</b> and so the drop down menu will opene"
oDCOCX_Exontrol1:Refresh()

35:
How do I open the menu as user clicks the menu


oDCOCX_Exontrol1:OpenOnClick := exAlwaysClick
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

34:
How do I open the menu as cursor hovers the menu bar


oDCOCX_Exontrol1:OpenOnClick := exHoverMenuBar
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

33:
Can I make the menu partialy visible


oDCOCX_Exontrol1:Visibility := 90
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

32:
How do I remove or clear the accelerator keys


oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:Items:ToString := "Item &1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:AddAcelerator(10,49,false,true,false)

31:
How do I add or assign an accelerator key to an item


oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:Items:ToString := "Item &1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:AddAcelerator(10,49,false,true,false)

30:
How can I load the items from a file


29:
How can I save the items to a file


28:
How do I put a picture on the center of the control


// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oDCOCX_Exontrol1:PictureDisplay := MiddleCenter

27:
How do I resize/stretch a picture on the control's background

// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oDCOCX_Exontrol1:PictureDisplay := Stretch

26:
How do I put a picture on the control's center right bottom side

// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oDCOCX_Exontrol1:PictureDisplay := LowerRight

25:
How do I put a picture on the control's center left bottom side

// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oDCOCX_Exontrol1:PictureDisplay := LowerLeft

24:
How do I put a picture on the control's center top side

// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oDCOCX_Exontrol1:PictureDisplay := UpperCenter

23:
How do I put a picture on the control's right top corner

// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oDCOCX_Exontrol1:PictureDisplay := UpperRight

22:
How do I put a picture on the control's left top corner

// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oDCOCX_Exontrol1:PictureDisplay := UpperLeft

21:
How do I put a picture on the control's background

// Generate Source for 'OLE Automation(stdole2.tlb)' server from Tools\Automation Server... with the PREFIX std
oDCOCX_Exontrol1:Picture := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")

20:
Is there any function to display the item's identifiers


oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

19:
How do I find an item giving its name


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:[item,"Item 1"]:Bold := true
oDCOCX_Exontrol1:Refresh()

18:
How do I find an item giving its identifier


oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"
oDCOCX_Exontrol1:[item,10]:Bold := true
oDCOCX_Exontrol1:Refresh()

17:
How do I enable or disable the control


oDCOCX_Exontrol1:Enabled := false
oDCOCX_Exontrol1:Items:Add("Item 1",nil,nil)
oDCOCX_Exontrol1:Refresh()

16:
How do I refresh the control

oDCOCX_Exontrol1:Items:Add("Item 1",nil,nil)
oDCOCX_Exontrol1:Refresh()

15:
How do I change the color to highligth the selected item


oDCOCX_Exontrol1:HighLightBorderColor := RGB(255,0,0)
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

14:
How do I change the drop down, popup menu foreground color


oDCOCX_Exontrol1:PopupForeColor := RGB(255,0,0)
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

13:
How do I change the drop down, popup menu background color


oDCOCX_Exontrol1:PopupBackColor := RGB(255,0,0)
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

12:
How do I change the control's shadow color


oDCOCX_Exontrol1:ShadowColor := RGB(255,0,0)
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

11:
How do I place the control on vertical


oDCOCX_Exontrol1:OpenMode := Horizontal
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

10:
How do I change the control's appearance

oDCOCX_Exontrol1:Appearance := Button
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

9:
How do I change the control's appearance


oDCOCX_Exontrol1:Appearance := Normal
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

8:
How do I change the visual appearance effect for the selected item, using EBN


oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:SelBackColor := 0x1000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,0)
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

7:
How do I change the colors for the selected item


oDCOCX_Exontrol1:SelBackColor := RGB(0,0,0)
oDCOCX_Exontrol1:SelForeColor := RGB(255,255,255)
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

6:
How do I change the control's foreground color


oDCOCX_Exontrol1:ForeColor := RGB(255,0,0)
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

5:
How do I change the control's background color


oDCOCX_Exontrol1:BackColor := RGB(200,200,200)

4:
How can I change the control's font


oDCOCX_Exontrol1:Font:Name := "Tahoma"
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

3:
How do I change the drop down menu's border


oDCOCX_Exontrol1:Border := FlatBorder
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

2:
How do I change the control's border, using your EBN files


oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:MenuBarBorder := 0x1000000 | 
oDCOCX_Exontrol1:Border := 0x1000000 | 
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"

1:
How do I change the control's border


oDCOCX_Exontrol1:MenuBarBorder := FlatBorder
oDCOCX_Exontrol1:Items:ToString := "Item 1[id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50]),Item 2[id=60](SubItem 1[id=70],SubItem 2[id=80])"