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

with AxExMenu1 do
begin
	with Items do
	begin
		Add('File',Nil,Nil);
		with Add('OrgChart',TObject(3),Nil).SubControl do
		begin
			ControlID := 'Exontrol.ChartView';
			Width := 128;
			Height := 164;
			Create();
			with (Object as EXORGCHARTLib.ChartView) do
			begin
				IndentSiblingY := 30;
				ShowLinksDir := True;
				PenWidthLink := 2;
				LinkColor := $0;
				AntiAliasing := True;
				with Nodes do
				begin
					Add('L1_A',Nil,'LA',Nil,Nil).ShowLinkDir := False;
					Add('L1_B',Nil,'LB',Nil,Nil);
					Add('L2_A','LA','LA2',Nil,Nil);
					Add('L2_B','LB','LB2',Nil,Nil);
				end;
			end;
		end;
		Add('Close',Nil,Nil);
	end;
	Refresh();
end
111:
How do I uncheck the item

// Select event - Occurs when an item is selected by clicking or by pressing RETURN key.
procedure TWinForm1.AxExMenu1_Select(sender: System.Object; e: AxEXMENULib._IMenuEvents_SelectEvent);
begin
	// Item(ID).Check = False
end;

with AxExMenu1 do
begin
	with Items do
	begin
		with Add('Horizontal View',Nil,TObject(210)) do
		begin
			Check := True;
			CheckEffect := False;
		end;
	end;
	Refresh();
end
110:
How do I get the identifier of the item being clicked / selected

// Select event - Occurs when an item is selected by clicking or by pressing RETURN key.
procedure TWinForm1.AxExMenu1_Select(sender: System.Object; e: AxEXMENULib._IMenuEvents_SelectEvent);
begin
	with AxExMenu1 do
	begin
		OutputDebugString( 'Using ID parameter:' );
		OutputDebugString( e.iD );
		OutputDebugString( 'Using the EventParam property: ' );
		OutputDebugString( get_EventParam(0) );
		OutputDebugString( 'Using the ExecuteTemplate property: ' );
		OutputDebugString( ExecuteTemplate('EventParam(0)') );
		Template := 'EventParam(0)';
		OutputDebugString( 'Using TemplateResult property:' );
		OutputDebugString( TemplateResult );
		OutputDebugString( 'Using TemplateResultN property:' );
		OutputDebugString( TemplateResultN );
		OutputDebugString( 'Using TemplateResultS property:' );
		OutputDebugString( TemplateResultS );
	end
end;

with AxExMenu1 do
begin
	Items.ToString := 'A[id=10](B[id=20],C[id=30](D[id=40],E[id=50]),F[id=60])';
end
109:
How can I assign an icon to an item using an external ICO file

with AxExMenu1 do
begin
	set_HTMLPicture('ico1','C:\Program Files\Exontrol\ExMenu\Sample\VC\Sample\res\sample.ico');
	Items.Add('<img>ico1:16</img> Caption',Nil,Nil);
	Refresh();
end
108:
How can I assign an icon to an item using an external ICO file

with AxExMenu1 do
begin
	ReplaceIcon(TObject(AxExMenu1.ExecuteTemplate('loadpicture(`C:\Program Files\Exontrol\ExMenu\Sample\VC\Sample\res\sample.ico`)')),Nil);
	Items.Add('Caption',TObject(0),Nil).Image := 0;
	Refresh();
end
107:
How can I assign a tooltip for an item

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		with Add('ToolTip     CTRL + <b>F</b>',Nil,Nil) do
		begin
			Tooltip := 'This is a bit of text that should be displayed when the cursor hovers the item';
			TooltipTitle := 'Title';
		end;
	end;
	Refresh();
end
106:
How can I specify some keys on the right of the item

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		Add('File     CTRL + <b>F</b>',Nil,Nil);
		Add('Left should be a long text',Nil,Nil);
	end;
	Refresh();
end
105:
How do I specify the item's alignment

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		Add('Left<r>Right',Nil,Nil);
		Add('Left should be a long text',Nil,Nil);
	end;
	Refresh();
end
104:
How do I specify the item's alignment

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		Add('Center',Nil,Nil).Alignment := EXMENULib.AlignmentEnum.exCenter;
		Add('Right',Nil,Nil).Alignment := EXMENULib.AlignmentEnum.exRight;
		Add('Left should be a long text',Nil,Nil);
	end;
	Refresh();
end
103:
How can I remove the border of the item's text box or an edit control

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		with Add('Edit 1',Nil,Nil) do
		begin
			AllowEdit := True;
			EditCaption := 'test';
			EditWidth := 128;
			EditBorder := EXMENULib.EditBorderEnum.exEditBorderNone;
		end;
		Add('Edit 2',Nil,Nil).AllowEdit := True;
	end;
	Refresh();
end
102:
How can I specify a single border for the item's text box or an edit control

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		with Add('Edit 1',Nil,Nil) do
		begin
			AllowEdit := True;
			EditCaption := 'test';
			EditWidth := 128;
			EditBorder := EXMENULib.EditBorderEnum.exEditBorderSingle;
		end;
		Add('Edit 2',Nil,Nil).AllowEdit := True;
	end;
	Refresh();
end
101:
How can I add a checkbox

with AxExMenu1 do
begin
	with Items.Add('Checked',Nil,Nil) do
	begin
		Check := True;
		CheckEffect := False;
	end;
	Refresh();
end
100:
How can I specify the shape of the cursor while it hovers an item

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		Add('Item 1',Nil,Nil).Cursor := 'exHelp';
		Add('Item 2',Nil,Nil);
	end;
	Refresh();
end
99:
How can I specify the width for text box or an edit control

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		with Add('Edit 1',Nil,Nil) do
		begin
			AllowEdit := True;
			EditCaption := 'test';
			EditWidth := 128;
		end;
		Add('Edit 2',Nil,Nil).AllowEdit := True;
	end;
	Refresh();
end
98:
How can I show or hide an item

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil) do
	begin
		with SubMenu do
		begin
			Add('Visible',Nil,Nil);
			Add('Hidden',Nil,Nil).Visible := False;
		end;
	end;
	Refresh();
end
97:
Is there any function to display the popup menu up not down

with AxExMenu1 do
begin
	Items.Add('Item',Nil,Nil);
	with Items.Add('Popup',TObject(2),Nil) do
	begin
		ShowDown := False;
		with SubMenu do
		begin
			Add('Item <fgcolor=FF0000>1</fgcolor>',Nil,Nil);
			Add('Item 2',Nil,Nil).Caption := 'Item <fgcolor=FF0000>2</fgcolor>';
		end;
	end;
	Items.Add('Item',Nil,Nil);
	Appearance := EXMENULib.AppearanceEnum.Normal;
	Border := EXMENULib.BorderEnum.SunkenBorder;
	Refresh();
end
96:
How can I specify the item's foreground color

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		Add('Item <fgcolor=FF0000>1</fgcolor>',Nil,Nil);
		Add('Item 2',Nil,Nil).Caption := 'Item <fgcolor=FF0000>2</fgcolor>';
	end;
	Refresh();
end
95:
How can I specify the item's foreground color

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		Add('Item 1',Nil,Nil).ForeColor := $ff;
		Add('Item 2',Nil,Nil);
	end;
	Refresh();
end
94:
How can I specify the item's background color

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		Add('Item 1',Nil,Nil).BackColor := $ff;
		Add('Item 2',Nil,Nil);
	end;
	Refresh();
end
93:
How can I add an item with a text box or an edit control

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		with Add('Edit 1',Nil,Nil) do
		begin
			AllowEdit := True;
			EditCaption := 'test';
		end;
		Add('Edit 2',Nil,Nil).AllowEdit := True;
	end;
	Refresh();
end
92:
How can I add an item with a text box or an edit control

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		Add('Edit 1',Nil,Nil).AllowEdit := True;
		Add('Edit 2',Nil,Nil).AllowEdit := True;
	end;
	Refresh();
end
91:
How can I add a bullet

with AxExMenu1 do
begin
	with Items.Add('Bullet',Nil,Nil) do
	begin
		Check := True;
		Bullet := True;
	end;
	Refresh();
end
90:
How can I add a checkbox

with AxExMenu1 do
begin
	Items.Add('Checked',Nil,Nil).Check := True;
	Refresh();
end
89:
How can I enable or disable an item

with AxExMenu1 do
begin
	Items.Add('Disabled',Nil,Nil).Enabled := False;
	Refresh();
end
88:
How can I display an icon

with AxExMenu1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Items.Add('A',Nil,Nil).Image := 1;
	Refresh();
end
87:
How can I specify the item's identifier

with AxExMenu1 do
begin
	Items.Add('A',Nil,Nil).ID := 1000;
	Refresh();
end
86:
How can I specify the item's identifier

with AxExMenu1 do
begin
	Items.Add('A',TObject(0),TObject(1000));
	Refresh();
end
85:
How can I assign an extra data to an item

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].UserData := 'your data';
	Refresh();
end
84:
How can I underline an item

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].Caption := 'Item <u>1</u>';
	Refresh();
end
83:
How can I underline an item

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].Underline := True;
	Refresh();
end
82:
How can I display as strikeout an item

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].Caption := 'Item <s>1</s>';
	Refresh();
end
81:
How can I display as strikeout an item

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].Strikeout := True;
	Refresh();
end
80:
How can I display as italic an item

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].Caption := 'Item <i>1</i>';
	Refresh();
end
79:
How can I display as italic an item

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].Italic := True;
	Refresh();
end
78:
How do I bold an item

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].Caption := 'Item <b>1</b>';
	Refresh();
end
77:
How do I bold an item

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].Bold := True;
	Refresh();
end
76:
How do I change the item's caption

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].Caption := 'new <b>caption</b>';
	Refresh();
end
75:
How can I speciy the picture on the drop down menu

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].SubMenu.Picture := AxExMenu1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
end
74:
How can I speciy the number of visible items

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].SubMenu.VisibleItemsCount := 1;
end
73:
How can I speciy the shape of the cursor when it hovers the menu

with AxExMenu1 do
begin
	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])';
	Items.item[TObject(10)].Cursor := 'exHelp';
end
72:
How can I add items

with AxExMenu1 do
begin
	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])';
end
71:
How I can remove an item

with AxExMenu1 do
begin
	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])';
	Items.Remove(TObject(10));
	Refresh();
end
70:
How I can get the number or the count of the items in the menu

with AxExMenu1 do
begin
	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])';
	with Items do
	begin
		Add(Count,Nil,Nil);
	end;
	Refresh();
end
69:
How I can clear a menu

with AxExMenu1 do
begin
	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])';
	Items.Clear();
	Items.ToString := 'Item 1';
end
68:
How do I specify to close an ActiveX item when user clicks it

with AxExMenu1 do
begin
	with Items.Add('Calendar',TObject(3),Nil).SubControl do
	begin
		ControlID := 'MSCal.Calendar';
		Width := 256;
		Height := 196;
		Create();
		with (Object as MSACAL.Calendar) do
		begin
			ShowDateSelectors := False;
			BackColor := $e7efef;
		end;
		CloseOn := EXMENULib.CloseOnEnum.exLButtonUp;
	end;
	Refresh();
end
67:
How can I access the properties and methods for an ActiveX item

with AxExMenu1 do
begin
	with Items.Add('Calendar',TObject(3),Nil).SubControl do
	begin
		ControlID := 'MSCal.Calendar';
		Width := 256;
		Height := 196;
		Create();
		with (Object as MSACAL.Calendar) do
		begin
			ShowDateSelectors := False;
			BackColor := $e7efef;
		end;
	end;
	Refresh();
end
66:
I can't see the ActiveX item

with AxExMenu1 do
begin
	with Items.Add('Calendar',TObject(3),Nil).SubControl do
	begin
		ControlID := 'MSCal.Calendar';
		Create();
	end;
	Refresh();
end
65:
How can I specify the runtime license key for an ActiveX item

with AxExMenu1 do
begin
	with Items.Add('Calendar',TObject(3),Nil).SubControl do
	begin
		ControlID := 'MSCal.Calendar';
		LicenseKey := '';
		Create();
	end;
	Refresh();
end
64:
How can I specify the width and the height for an ActiveX item

with AxExMenu1 do
begin
	with Items.Add('Calendar',TObject(3),Nil).SubControl do
	begin
		ControlID := 'MSCal.Calendar';
		Width := 256;
		Height := 256;
		Create();
	end;
	Refresh();
end
63:
How can I select a date

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		with Add('Select a date',TObject(3),Nil).SubControl do
		begin
			ControlID := 'MSComCtl2.DTPicker';
			Width := 128;
			Height := 22;
			Create();
			with (Object as MSComCtl2.DTPicker) do
			begin
				Format := 3;
				CustomFormat := 'dd-MM-yyy';
				Refresh();
			end;
		end;
	end;
	Refresh();
end
62:
How can I add an ActiveX item

with AxExMenu1 do
begin
	with Items.Add('Calendar',TObject(3),Nil).SubControl do
	begin
		ControlID := 'MSCal.Calendar';
		Create();
	end;
	Refresh();
end
61:
How can I add a separator item

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		Add('Item 1',Nil,Nil);
		Add('',TObject(1),Nil);
		Add('Item 2',Nil,Nil);
	end;
	Refresh();
end
60:
How can I add a popup or a submenu

with AxExMenu1 do
begin
	with Items.Add('Popup',TObject(2),Nil).SubMenu do
	begin
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil);
	end;
	Refresh();
end
59:
How can I add a new item

with AxExMenu1 do
begin
	Items.Add('Item 1',Nil,Nil);
	Refresh();
end
58:
How I can assign a picture or an icon to an item

with AxExMenu1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	set_ItemHeight(EXMENULib.AppearanceEnum.Button,34);
	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])';
	Items.item[TObject(10)].Caption := '<img>pic1</img> <b>1</b>';
	Items.item[TObject(60)].Caption := 'T <img>1</img> <img>2</img> and so on ';
	Refresh();
end
57:
How I can assign a picture to an item

with AxExMenu1 do
begin
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	set_HTMLPicture('pic2','c:\exontrol\images\auction.gif');
	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])';
	Items.item[TObject(10)].Caption := '<img>pic1</img> <b>1</b>';
	Items.item[TObject(60)].Caption := '<img>pic2</img> <b>2</b>';
	Refresh();
end
56:
How do I call your x-script language

with AxExMenu1 do
begin
	Template := 'Items.ToString = `Item 1,Item 2`';
end
55:
How do I change the shape of the cursor whether it hovers the control

with AxExMenu1 do
begin
	Cursor := 'exHelp';
	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])';
end
54:
How do I specify whether the item gets selected whether the user presses or releases the mouse

with AxExMenu1 do
begin
	SelectOn := EXMENULib.SelectOnEnum.exMouseUp;
	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])';
end
53:
How do I change the picture or icon for the chevrons

with AxExMenu1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	set_ScrollImage(True,1);
	set_ScrollImage(False,2);
	AllowChevron := EXMENULib.ChevronEnum.exScroll;
	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])';
end
52:
How do I specify the height for items

with AxExMenu1 do
begin
	set_ItemHeight(EXMENULib.AppearanceEnum.Button,34);
	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])';
end
51:
How do I change the picture or icon for the chevrons

with AxExMenu1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ChevronImage := 1;
	AllowChevron := EXMENULib.ChevronEnum.exChevron;
	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])';
end
50:
How do I disable chevrons

with AxExMenu1 do
begin
	AllowChevron := EXMENULib.ChevronEnum.exDefault;
	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])';
end
49:
How do I allow chevrons

with AxExMenu1 do
begin
	AllowChevron := EXMENULib.ChevronEnum.exScroll;
	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])';
end
48:
How do I allow chevrons

with AxExMenu1 do
begin
	AllowChevron := EXMENULib.ChevronEnum.exChevron;
	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])';
end
47:
How do I show directly the drop down menu, without scrolling

with AxExMenu1 do
begin
	ScrollOnDrop := EXMENULib.ShowPopupEffectEnum.exShowPopupDirect;
	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])';
end
46:
How can I change the visual appearance for for a top level item, when the Appearance property is Flat

with AxExMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXMENULib.BackgroundPartEnum.exSelectRootItem,$1000000);
	Appearance := EXMENULib.AppearanceEnum.Flat;
	Border := EXMENULib.BorderEnum.FlatBorder;
	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])';
end
45:
How can I change the visual appearance for an item, when the Appearance property is Button

with AxExMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXMENULib.BackgroundPartEnum.exButtonItem,$1000000);
	Appearance := EXMENULib.AppearanceEnum.Button;
	Border := EXMENULib.BorderEnum.FlatBorder;
	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])';
end
44:
Can I change the visual appearance for separator items

with AxExMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXMENULib.BackgroundPartEnum.exSeparatorItem,$1000000);
	Items.ToString := 'Popup[id=10](Item 1[id=20],[sep][id=30],Item 2[id=40])';
end
43:
Can I change the forecolor for the tooltip

with AxExMenu1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	set_Background(EXMENULib.BackgroundPartEnum.exToolTipForeColor,$ff);
	Items.ToString := 'ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])';
	Items.item[TObject(10)].Tooltip := 'Click the <b>ToolTip</b> and so the drop down menu will be shown';
	Refresh();
end
42:
Can I change the background color for the tooltip

with AxExMenu1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	set_Background(EXMENULib.BackgroundPartEnum.exToolTipBackColor,$ff);
	Items.ToString := 'ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])';
	Items.item[TObject(10)].Tooltip := 'Click the <b>ToolTip</b> and so the drop down menu will be shown';
	Refresh();
end
41:
Can I change the default border of the tooltip, using your EBN files

with AxExMenu1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXMENULib.BackgroundPartEnum.exToolTipAppearance,$1000000);
	Items.ToString := 'ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])';
	Items.item[TObject(10)].Tooltip := 'Click the <b>ToolTip</b> and so the drop down menu will be shown';
	Refresh();
end
40:
Can I change the font for the tooltip

with AxExMenu1 do
begin
	ToolTipDelay := 1;
	with ToolTipFont do
	begin
		Name := 'Tahoma';
		Size := 14;
	end;
	ToolTipWidth := 400;
	Items.ToString := 'ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])';
	Items.item[TObject(10)].Tooltip := 'Click the <b>ToolTip</b> and so the drop down menu will be shown';
	Refresh();
end
39:
I've seen that the width of the tooltip is variable. Can I make it larger

with AxExMenu1 do
begin
	ToolTipWidth := 328;
	Items.ToString := 'ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])';
	Items.item[TObject(10)].Tooltip := 'Click the <b>ToolTip</b> and so the drop down menu will open';
	Refresh();
end
38:
How do I let the tooltip being displayed longer

with AxExMenu1 do
begin
	ToolTipPopDelay := 10000;
	Items.ToString := 'ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])';
	Items.item[TObject(10)].Tooltip := 'Click the <b>ToolTip</b> and so the drop down menu will opene';
	Refresh();
end
37:
How do I disable showing the tooltip for all control

with AxExMenu1 do
begin
	ToolTipDelay := 0;
	Items.ToString := 'No-ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])';
	Items.item[TObject(10)].Tooltip := 'Click the <b>ToolTip</b> and so the drop down menu will opene';
	Refresh();
end
36:
How do I show the tooltip quicker

with AxExMenu1 do
begin
	ToolTipDelay := 1;
	Items.ToString := 'ToolTip [id=10](SubItem 1[id=20](SubItem 1.1[id=30],SubItem 1.2[id=40]),SubItem 2[id=50])';
	Items.item[TObject(10)].Tooltip := 'Click the <b>ToolTip</b> and so the drop down menu will opene';
	Refresh();
end
35:
How do I open the menu as user clicks the menu

with AxExMenu1 do
begin
	OpenOnClick := EXMENULib.OpenOnClickEnum.exAlwaysClick;
	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])';
end
34:
How do I open the menu as cursor hovers the menu bar

with AxExMenu1 do
begin
	OpenOnClick := EXMENULib.OpenOnClickEnum.exHoverMenuBar;
	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])';
end
33:
Can I make the menu partialy visible

with AxExMenu1 do
begin
	Visibility := 90;
	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])';
end
32:
How do I remove or clear the accelerator keys

with AxExMenu1 do
begin
	Debug := True;
	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])';
	AddAcelerator(10,49,TObject(False),TObject(True),TObject(False));
end
31:
How do I add or assign an accelerator key to an item

with AxExMenu1 do
begin
	Debug := True;
	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])';
	AddAcelerator(10,49,TObject(False),TObject(True),TObject(False));
end
28:
How do I put a picture on the center of the control

with AxExMenu1 do
begin
	(GetOcx() as EXMENULib.ExMenu).Picture := AxExMenu1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXMENULib.PictureDisplayEnum.MiddleCenter;
end
27:
How do I resize/stretch a picture on the control's background
with AxExMenu1 do
begin
	(GetOcx() as EXMENULib.ExMenu).Picture := AxExMenu1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXMENULib.PictureDisplayEnum.Stretch;
end
26:
How do I put a picture on the control's center right bottom side
with AxExMenu1 do
begin
	(GetOcx() as EXMENULib.ExMenu).Picture := AxExMenu1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXMENULib.PictureDisplayEnum.LowerRight;
end
25:
How do I put a picture on the control's center left bottom side
with AxExMenu1 do
begin
	(GetOcx() as EXMENULib.ExMenu).Picture := AxExMenu1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXMENULib.PictureDisplayEnum.LowerLeft;
end
24:
How do I put a picture on the control's center top side
with AxExMenu1 do
begin
	(GetOcx() as EXMENULib.ExMenu).Picture := AxExMenu1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXMENULib.PictureDisplayEnum.UpperCenter;
end
23:
How do I put a picture on the control's right top corner
with AxExMenu1 do
begin
	(GetOcx() as EXMENULib.ExMenu).Picture := AxExMenu1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXMENULib.PictureDisplayEnum.UpperRight;
end
22:
How do I put a picture on the control's left top corner
with AxExMenu1 do
begin
	(GetOcx() as EXMENULib.ExMenu).Picture := AxExMenu1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXMENULib.PictureDisplayEnum.UpperLeft;
end
21:
How do I put a picture on the control's background
with AxExMenu1 do
begin
	(GetOcx() as EXMENULib.ExMenu).Picture := AxExMenu1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
end
20:
Is there any function to display the item's identifiers

with AxExMenu1 do
begin
	Debug := True;
	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])';
end
19:
How do I find an item giving its name

with AxExMenu1 do
begin
	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])';
	get_item('Item 1').Bold := True;
	Refresh();
end
18:
How do I find an item giving its identifier

with AxExMenu1 do
begin
	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])';
	get_item(TObject(10)).Bold := True;
	Refresh();
end
17:
How do I enable or disable the control

with AxExMenu1 do
begin
	Enabled := False;
	Items.Add('Item 1',Nil,Nil);
	Refresh();
end
16:
How do I refresh the control
with AxExMenu1 do
begin
	Items.Add('Item 1',Nil,Nil);
	Refresh();
end
15:
How do I change the color to highligth the selected item

with AxExMenu1 do
begin
	HighLightBorderColor := Color.FromArgb(255,0,0);
	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])';
end
14:
How do I change the drop down, popup menu foreground color

with AxExMenu1 do
begin
	PopupForeColor := Color.FromArgb(255,0,0);
	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])';
end
13:
How do I change the drop down, popup menu background color

with AxExMenu1 do
begin
	PopupBackColor := Color.FromArgb(255,0,0);
	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])';
end
12:
How do I change the control's shadow color

with AxExMenu1 do
begin
	ShadowColor := Color.FromArgb(255,0,0);
	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])';
end
11:
How do I place the control on vertical

with AxExMenu1 do
begin
	OpenMode := EXMENULib.OpenModeEnum.Horizontal;
	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])';
end
10:
How do I change the control's appearance
with AxExMenu1 do
begin
	Appearance := EXMENULib.AppearanceEnum.Button;
	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])';
end
9:
How do I change the control's appearance

with AxExMenu1 do
begin
	Appearance := EXMENULib.AppearanceEnum.Normal;
	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])';
end
8:
How do I change the visual appearance effect for the selected item, using EBN

with AxExMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	(GetOcx() as EXMENULib.ExMenu).SelBackColor := $1000000;
	SelForeColor := Color.FromArgb(0,0,0);
	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])';
end
7:
How do I change the colors for the selected item

with AxExMenu1 do
begin
	SelBackColor := Color.FromArgb(0,0,0);
	SelForeColor := Color.FromArgb(255,255,255);
	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])';
end
6:
How do I change the control's foreground color

with AxExMenu1 do
begin
	ForeColor := Color.FromArgb(255,0,0);
	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])';
end
5:
How do I change the control's background color

with AxExMenu1 do
begin
	BackColor := Color.FromArgb(200,200,200);
end
4:
How can I change the control's font

with AxExMenu1 do
begin
	Font.Name := 'Tahoma';
	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])';
end
3:
How do I change the drop down menu's border

with AxExMenu1 do
begin
	Border := EXMENULib.BorderEnum.FlatBorder;
	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])';
end
2:
How do I change the control's border, using your EBN files

with AxExMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	MenuBarBorder := EXMENULib.BorderEnum($1000000);
	Border := EXMENULib.BorderEnum($1000000);
	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])';
end
1:
How do I change the control's border

with AxExMenu1 do
begin
	MenuBarBorder := EXMENULib.BorderEnum.FlatBorder;
	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])';
end