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

with ExMenu1 do
begin
	with Items do
	begin
		Add('File',Null,Null);
		with Add('OrgChart',OleVariant(3),Null).SubControl do
		begin
			ControlID := 'Exontrol.ChartView';
			Width := 128;
			Height := 164;
			Create();
			with (IUnknown(Object) as EXORGCHARTLib_TLB.ChartView) do
			begin
				IndentSiblingY := 30;
				ShowLinksDir := True;
				PenWidthLink := 2;
				LinkColor := $0;
				AntiAliasing := True;
				with Nodes do
				begin
					Add('L1_A',Null,'LA',Null,Null).ShowLinkDir := False;
					Add('L1_B',Null,'LB',Null,Null);
					Add('L2_A','LA','LA2',Null,Null);
					Add('L2_B','LB','LB2',Null,Null);
				end;
			end;
		end;
		Add('Close',Null,Null);
	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 TForm1.ExMenu1Select(ASender: TObject; ID : Integer);
begin
	// Item(ID).Check = False
end;

with ExMenu1 do
begin
	with Items do
	begin
		with Add('Horizontal View',Null,OleVariant(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 TForm1.ExMenu1Select(ASender: TObject; ID : Integer);
begin
	with ExMenu1 do
	begin
		OutputDebugString( 'Using ID parameter:' );
		OutputDebugString( ID );
		OutputDebugString( 'Using the EventParam property: ' );
		OutputDebugString( 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 ExMenu1 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 ExMenu1 do
begin
	HTMLPicture['ico1'] := 'C:\Program Files\Exontrol\ExMenu\Sample\VC\Sample\res\sample.ico';
	Items.Add('<img>ico1:16</img> Caption',Null,Null);
	Refresh();
end
108:
How can I assign an icon to an item using an external ICO file

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

with ExMenu1 do
begin
	with Items.Add('Popup',OleVariant(2),Null).SubMenu do
	begin
		with Add('ToolTip     CTRL + <b>F</b>',Null,Null) 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 ExMenu1 do
begin
	with Items.Add('Popup',OleVariant(2),Null).SubMenu do
	begin
		Add('File     CTRL + <b>F</b>',Null,Null);
		Add('Left should be a long text',Null,Null);
	end;
	Refresh();
end
105:
How do I specify the item's alignment

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

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

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

with ExMenu1 do
begin
	with Items.Add('Popup',OleVariant(2),Null).SubMenu do
	begin
		with Add('Edit 1',Null,Null) do
		begin
			AllowEdit := True;
			EditCaption := 'test';
			EditWidth := 128;
			EditBorder := EXMENULib_TLB.exEditBorderSingle;
		end;
		Add('Edit 2',Null,Null).AllowEdit := True;
	end;
	Refresh();
end
101:
How can I add a checkbox

with ExMenu1 do
begin
	with Items.Add('Checked',Null,Null) 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 ExMenu1 do
begin
	with Items.Add('Popup',OleVariant(2),Null).SubMenu do
	begin
		Add('Item 1',Null,Null).Cursor := 'exHelp';
		Add('Item 2',Null,Null);
	end;
	Refresh();
end
99:
How can I specify the width for text box or an edit control

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

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

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

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

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

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

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

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

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

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

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

with ExMenu1 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',Null,Null).Image := 1;
	Refresh();
end
87:
How can I specify the item's identifier

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

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

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

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

with ExMenu1 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[OleVariant(10)].Underline := True;
	Refresh();
end
82:
How can I display as strikeout an item

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

with ExMenu1 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[OleVariant(10)].Strikeout := True;
	Refresh();
end
80:
How can I display as italic an item

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

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

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

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

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

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

with ExMenu1 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[OleVariant(10)].SubMenu.VisibleItemsCount := 1;
end
73:
How can I speciy the shape of the cursor when it hovers the menu

with ExMenu1 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[OleVariant(10)].Cursor := 'exHelp';
end
72:
How can I add items

with ExMenu1 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 ExMenu1 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(OleVariant(10));
	Refresh();
end
70:
How I can get the number or the count of the items in the menu

with ExMenu1 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,Null,Null);
	end;
	Refresh();
end
69:
How I can clear a menu

with ExMenu1 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 ExMenu1 do
begin
	with Items.Add('Calendar',OleVariant(3),Null).SubControl do
	begin
		ControlID := 'MSCal.Calendar';
		Width := 256;
		Height := 196;
		Create();
		with (IUnknown(Object) as MSACAL_TLB.Calendar) do
		begin
			ShowDateSelectors := False;
			BackColor := $e7efef;
		end;
		CloseOn := EXMENULib_TLB.exLButtonUp;
	end;
	Refresh();
end
67:
How can I access the properties and methods for an ActiveX item

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

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

with ExMenu1 do
begin
	with Items.Add('Calendar',OleVariant(3),Null).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 ExMenu1 do
begin
	with Items.Add('Calendar',OleVariant(3),Null).SubControl do
	begin
		ControlID := 'MSCal.Calendar';
		Width := 256;
		Height := 256;
		Create();
	end;
	Refresh();
end
63:
How can I select a date

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

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

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

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

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

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

with ExMenu1 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 ExMenu1 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 ExMenu1 do
begin
	SelectOn := EXMENULib_TLB.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 ExMenu1 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=');
	ScrollImage[True] := 1;
	ScrollImage[False] := 2;
	AllowChevron := EXMENULib_TLB.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 ExMenu1 do
begin
	ItemHeight[EXMENULib_TLB.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 ExMenu1 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_TLB.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 ExMenu1 do
begin
	AllowChevron := EXMENULib_TLB.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 ExMenu1 do
begin
	AllowChevron := EXMENULib_TLB.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 ExMenu1 do
begin
	AllowChevron := EXMENULib_TLB.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 ExMenu1 do
begin
	ScrollOnDrop := EXMENULib_TLB.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 ExMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXMENULib_TLB.exSelectRootItem] := $1000000;
	Appearance := EXMENULib_TLB.Flat;
	Border := EXMENULib_TLB.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 ExMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXMENULib_TLB.exButtonItem] := $1000000;
	Appearance := EXMENULib_TLB.Button;
	Border := EXMENULib_TLB.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 ExMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXMENULib_TLB.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 ExMenu1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	Background[EXMENULib_TLB.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[OleVariant(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 ExMenu1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	Background[EXMENULib_TLB.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[OleVariant(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 ExMenu1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXMENULib_TLB.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[OleVariant(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 ExMenu1 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[OleVariant(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 ExMenu1 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[OleVariant(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 ExMenu1 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[OleVariant(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 ExMenu1 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[OleVariant(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 ExMenu1 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[OleVariant(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 ExMenu1 do
begin
	OpenOnClick := EXMENULib_TLB.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 ExMenu1 do
begin
	OpenOnClick := EXMENULib_TLB.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 ExMenu1 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 ExMenu1 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,OleVariant(False),OleVariant(True),OleVariant(False));
end
31:
How do I add or assign an accelerator key to an item

with ExMenu1 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,OleVariant(False),OleVariant(True),OleVariant(False));
end
28:
How do I put a picture on the center of the control

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

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

with ExMenu1 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])';
	item[OleVariant(10)].Bold := True;
	Refresh();
end
17:
How do I enable or disable the control

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

with ExMenu1 do
begin
	HighLightBorderColor := RGB(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 ExMenu1 do
begin
	PopupForeColor := RGB(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 ExMenu1 do
begin
	PopupBackColor := RGB(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 ExMenu1 do
begin
	ShadowColor := RGB(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 ExMenu1 do
begin
	OpenMode := EXMENULib_TLB.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 ExMenu1 do
begin
	Appearance := EXMENULib_TLB.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 ExMenu1 do
begin
	Appearance := EXMENULib_TLB.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 ExMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	SelBackColor := $1000000;
	SelForeColor := RGB(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 ExMenu1 do
begin
	SelBackColor := RGB(0,0,0);
	SelForeColor := RGB(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 ExMenu1 do
begin
	ForeColor := RGB(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 ExMenu1 do
begin
	BackColor := RGB(200,200,200);
end
4:
How can I change the control's font

with ExMenu1 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 ExMenu1 do
begin
	Border := EXMENULib_TLB.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 ExMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	MenuBarBorder := EXMENULib_TLB.BorderEnum($1000000);
	Border := EXMENULib_TLB.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 ExMenu1 do
begin
	MenuBarBorder := EXMENULib_TLB.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