176:
How can I control the height of the control, so no scroll is required to view all items

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Font.Size := 6;
	MenuAppearance := EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal;
	with Items do
	begin
		OutputDebugString( VisibleItemsCount );
		VisibleItemsCount := 255;
		ToString := '1,2,3,4,5,6,7,8,9,10,11,12,13';
	end;
	Select(Nil,Nil,Nil);
end
175:
How do I specify the control's height (method 3)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil).ItemHeight := 24;
		Add('Item 2',Nil,Nil).ItemHeight := 24;
		Add('Item 3',Nil,Nil).ItemHeight := 24;
	end;
	Select(Nil,Nil,Nil);
end
174:
How do I specify the control's height (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil).Padding := '0,4,0,4';
		Add('Item 2',Nil,Nil).Padding := '0,4,0,4';
		Add('Item 3',Nil,Nil).Padding := '0,4,0,4';
	end;
	Select(Nil,Nil,Nil);
end
173:
How do I specify the control's height (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Font.Size := 12;
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
172:
How can I change the visual appearance of the progress bar

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum($104),$1000000);
	with Items do
	begin
		with Add('Progress',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress;
			EditWidth := -128;
			EditValue := TObject(25);
		end;
	end;
	Select(Nil,Nil,Nil);
end
171:
How can I change the progress's color

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum($104),$ff);
	with Items do
	begin
		with Add('Progress',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress;
			EditWidth := -128;
			EditValue := TObject(25);
		end;
	end;
	Select(Nil,Nil,Nil);
end
170:
I am using the Item.Visible property on False to hide the item, but the editor is still visible

// CheckItem event - Occurs when the user checks the item.
procedure TWinForm1.AxExContextMenu1_CheckItem(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_CheckItemEvent);
begin
	with AxExContextMenu1 do
	begin
		with Items.item[TObject(1000)] do
		begin
			Visible := True;
			AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditReadOnly) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress);
		end;
		Select(Nil,Nil,Nil);
	end
end;

// UncheckItem event - Occurs when the user unchecks the item.
procedure TWinForm1.AxExContextMenu1_UncheckItem(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_UncheckItemEvent);
begin
	with AxExContextMenu1 do
	begin
		with Items.item[TObject(1000)] do
		begin
			Visible := False;
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemDisableEdit;
		end;
		Select(Nil,Nil,Nil);
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('Visible',Nil,Nil);
				with Add('',Nil,Nil) do
				begin
					Check := True;
					Checked := True;
				end;
				with Add('Item 2',Nil,TObject(1000)) do
				begin
					ItemHeight := 18;
					Caption := 'Percent';
					AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditReadOnly) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress);
					EditValue := TObject(50);
					Visible := True;
				end;
				Add('Visible',Nil,Nil);
			end;
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
		end;
	end;
	Select(Nil,Nil,Nil);
end
169:
How can I change the color of a disabled item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Disabled',TObject(2),TObject(0)) do
		begin
			ForeColor := $ff;
			Items.Add('',Nil,Nil);
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
		end;
		Add('Disabled',Nil,Nil).Enabled := False;
	end;
	Select(Nil,Nil,Nil);
end
168:
Microsoft Windows 8.1 - Ribbon Like

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	MenuAppearance := EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal;
	with Items do
	begin
		ToString := '[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
		with item[TObject(0)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			var_item3 := Add('New Page',Nil,Nil);
			with var_item3 do
			begin
				ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])';
				ID := 200;
				Caption := 'Page1';
				var_item := Items.Add('New Group',Nil,Nil);
				with var_item do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '<b><font ;14>A';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('R1',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := False;
								end;
								with Add('R2',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := True;
								end;
								with Add('R3',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := False;
								end;
							end;
						end;
					end;
				end;
				var_item1 := Items.Add('New Group',Nil,Nil);
				with var_item1 do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '<b><font ;14>B';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('C1',Nil,Nil) do
								begin
									Check := True;
									Checked := True;
								end;
								with Add('C2',Nil,Nil) do
								begin
									Check := True;
									Checked := False;
								end;
								with Add('C3',Nil,Nil) do
								begin
									Check := True;
									Checked := True;
								end;
							end;
						end;
					end;
				end;
				Items.Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
				var_item2 := Items.Add('New Group',Nil,Nil);
				with var_item2 do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
						with Add('',TObject(0),Nil) do
						begin
							AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider);
							ItemHeight := 76;
							EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
							EditValue := TObject(25);
						end;
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('',TObject(2),Nil) do
								begin
									GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
									with Items do
									begin
										with Add('Button1',TObject(2),Nil) do
										begin
											ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
											with Items do
											begin
												Add('Item 1',Nil,Nil);
												Add('Item 2',Nil,Nil);
												Add('Item 3',Nil,Nil);
											end;
										end;
										Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
										with Add('Button2',TObject(2),Nil) do
										begin
											ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
											with Items do
											begin
												Add('Item 4',Nil,Nil);
												Add('Item 5',Nil,Nil);
												Add('Item 6',Nil,Nil);
											end;
										end;
									end;
								end;
								with Add('Popup',TObject(2),Nil) do
								begin
									Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
									with Items do
									begin
										Add('Item 7',Nil,Nil).Check := True;
										Add('Item 8',Nil,Nil);
										with Add('Item 9',TObject(2),Nil).Items do
										begin
											Add('Item 10',Nil,Nil);
											Add('Item 11',Nil,Nil);
											Add('Item 12',Nil,Nil);
										end;
									end;
								end;
							end;
						end;
					end;
				end;
			end;
			var_item4 := Add('New Page',Nil,Nil);
			with var_item4 do
			begin
				ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])';
				ID := 300;
				Caption := 'Page2';
				with Items do
				begin
					with Add('S1',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(25);
					end;
					with Add('S2',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(50);
					end;
					with Add('S3',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(75);
					end;
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	with VisualAppearance do
	begin
		Add(1,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn');
		Add(2,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn');
		Add(12,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn');
		Add(14,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn');
		Add(17,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn');
		Add(18,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn');
		Add(32,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn');
		Add(33,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn');
		Add(34,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn');
		Add(35,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn');
	end;
	Appearance := EXCONTEXTMENULib.MenuBorderEnum($1000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exToolTipAppearance,Appearance);
	(GetOcx() as EXCONTEXTMENULib.ExContextMenu).SelBackColor := $e000000;
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuHotBackColor,$c000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelHotBackColor,$23000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum($2),$22000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum($3),$23000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState0,$20000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState1,$21000000);
	Select(Nil,Nil,Nil);
end
167:
Microsoft Paint - Ribbon Like

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	MenuAppearance := EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal;
	with Items do
	begin
		ToString := '[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
		with item[TObject(0)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			var_item3 := Add('New Page',Nil,Nil);
			with var_item3 do
			begin
				ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])';
				ID := 200;
				Caption := 'Page1';
				var_item := Items.Add('New Group',Nil,Nil);
				with var_item do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '<b><font ;14>A';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('R1',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := False;
								end;
								with Add('R2',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := True;
								end;
								with Add('R3',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := False;
								end;
							end;
						end;
					end;
				end;
				var_item1 := Items.Add('New Group',Nil,Nil);
				with var_item1 do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '<b><font ;14>B';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('C1',Nil,Nil) do
								begin
									Check := True;
									Checked := True;
								end;
								with Add('C2',Nil,Nil) do
								begin
									Check := True;
									Checked := False;
								end;
								with Add('C3',Nil,Nil) do
								begin
									Check := True;
									Checked := True;
								end;
							end;
						end;
					end;
				end;
				Items.Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
				var_item2 := Items.Add('New Group',Nil,Nil);
				with var_item2 do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
						with Add('',TObject(0),Nil) do
						begin
							AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider);
							ItemHeight := 76;
							EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
							EditValue := TObject(25);
						end;
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('',TObject(2),Nil) do
								begin
									GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
									with Items do
									begin
										with Add('Button1',TObject(2),Nil) do
										begin
											ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
											with Items do
											begin
												Add('Item 1',Nil,Nil);
												Add('Item 2',Nil,Nil);
												Add('Item 3',Nil,Nil);
											end;
										end;
										Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
										with Add('Button2',TObject(2),Nil) do
										begin
											ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
											with Items do
											begin
												Add('Item 4',Nil,Nil);
												Add('Item 5',Nil,Nil);
												Add('Item 6',Nil,Nil);
											end;
										end;
									end;
								end;
								with Add('Popup',TObject(2),Nil) do
								begin
									Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
									with Items do
									begin
										Add('Item 7',Nil,Nil).Check := True;
										Add('Item 8',Nil,Nil);
										with Add('Item 9',TObject(2),Nil).Items do
										begin
											Add('Item 10',Nil,Nil);
											Add('Item 11',Nil,Nil);
											Add('Item 12',Nil,Nil);
										end;
									end;
								end;
							end;
						end;
					end;
				end;
			end;
			var_item4 := Add('New Page',Nil,Nil);
			with var_item4 do
			begin
				ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])';
				ID := 300;
				Caption := 'Page2';
				with Items do
				begin
					with Add('S1',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(25);
					end;
					with Add('S2',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(50);
					end;
					with Add('S3',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(75);
					end;
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	with VisualAppearance do
	begin
		Add(1,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn');
		Add(2,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn');
		Add(3,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn');
		Add(4,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn');
		Add(5,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn');
		Add(6,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn');
		Add(7,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn');
		Add(8,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn');
		Add(9,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn');
		Add(10,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn');
		Add(11,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn');
		Add(12,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn');
		Add(13,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn');
		Add(14,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn');
		Add(15,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn');
		Add(16,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn');
		Add(17,'CP:16 0 0 0 1');
		Add(18,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn');
		Add(19,'C:/Program Files/Exontrol/ExContextMenu/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn');
		Add(20,'CP:19 0 0 0 1');
	end;
	LocalAppearance := EXCONTEXTMENULib.MenuBorderEnum.ShadowBorder;
	Appearance := EXCONTEXTMENULib.MenuBorderEnum($1000000);
	ForeColor := Color.FromArgb(21,66,139);
	(GetOcx() as EXCONTEXTMENULib.ExContextMenu).SelBackColor := $e000000;
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exToolTipAppearance,Appearance);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum($2),$d000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSingle,$5000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHStart,$6000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,$7000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHEnd,$8000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVStart,$9000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,$a000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVEnd,$b000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuHotBackColor,$c000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelHotBackColor,$f000000);
	Select(Nil,Nil,Nil);
end
166:
Microsoft Office - Ribbon Like

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	MenuAppearance := EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal;
	with Items do
	begin
		ToString := '[id=0][group=0x03](),[id=-20][bg=0x01000000][group=0x03][itemspad=4,4,4,4]([id=9000])';
		with item[TObject(0)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			var_item3 := Add('New Page',Nil,Nil);
			with var_item3 do
			begin
				ToString := '[id=0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])';
				ID := 200;
				Caption := 'Page1';
				var_item := Items.Add('New Group',Nil,Nil);
				with var_item do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '<b><font ;14>A';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Horizontal`,align=0x11]';
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('R1',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := False;
								end;
								with Add('R2',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := True;
								end;
								with Add('R3',Nil,Nil) do
								begin
									RadioGroup := 100;
									Radio := True;
									ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
									Checked := False;
								end;
							end;
						end;
					end;
				end;
				var_item1 := Items.Add('New Group',Nil,Nil);
				with var_item1 do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '<b><font ;14>B';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Vertical`,align=0x11]';
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('C1',Nil,Nil) do
								begin
									Check := True;
									Checked := True;
								end;
								with Add('C2',Nil,Nil) do
								begin
									Check := True;
									Checked := False;
								end;
								with Add('C3',Nil,Nil) do
								begin
									Check := True;
									Checked := True;
								end;
							end;
						end;
					end;
				end;
				Items.Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
				var_item2 := Items.Add('New Group',Nil,Nil);
				with var_item2 do
				begin
					ToString := '[id=0][group=0x03][itemspad=4,4,4,18][itemsbg=0x02000000][itemsbghot=0x04000000]()';
					Caption := '';
					with Items do
					begin
						BackgroundExt := 'bottom[16,text=`<fgcolor A0A0A0><font ;8>Mixt`,align=0x11]';
						with Add('',TObject(0),Nil) do
						begin
							AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider);
							ItemHeight := 76;
							EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
							EditValue := TObject(25);
						end;
						with Add('',TObject(2),Nil) do
						begin
							GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
							Caption := '';
							with Items do
							begin
								with Add('',TObject(2),Nil) do
								begin
									GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
									with Items do
									begin
										with Add('Button1',TObject(2),Nil) do
										begin
											ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
											with Items do
											begin
												Add('Item 1',Nil,Nil);
												Add('Item 2',Nil,Nil);
												Add('Item 3',Nil,Nil);
											end;
										end;
										Add('',TObject(0),TObject(0)).Padding := '4,0,0,0';
										with Add('Button2',TObject(2),Nil) do
										begin
											ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
											with Items do
											begin
												Add('Item 4',Nil,Nil);
												Add('Item 5',Nil,Nil);
												Add('Item 6',Nil,Nil);
											end;
										end;
									end;
								end;
								with Add('Popup',TObject(2),Nil) do
								begin
									Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
									with Items do
									begin
										Add('Item 7',Nil,Nil).Check := True;
										Add('Item 8',Nil,Nil);
										with Add('Item 9',TObject(2),Nil).Items do
										begin
											Add('Item 10',Nil,Nil);
											Add('Item 11',Nil,Nil);
											Add('Item 12',Nil,Nil);
										end;
									end;
								end;
							end;
						end;
					end;
				end;
			end;
			var_item4 := Add('New Page',Nil,Nil);
			with var_item4 do
			begin
				ToString := '[id=0][typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=0x12000000][bgsel=0x11000000][bgselhot=0x14000000][group=0x03][tab=9000][pa' + 
	'd=4,0,4,0][popupoffset=-4,-1]([id=0][group=0x03])';
				ID := 300;
				Caption := 'Page2';
				with Items do
				begin
					with Add('S1',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(25);
					end;
					with Add('S2',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(50);
					end;
					with Add('S3',Nil,Nil) do
					begin
						ItemHeight := 88;
						AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress);
						EditValue := TObject(75);
					end;
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	with VisualAppearance do
	begin
		Add(1,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_background.ebn');
		Add(2,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_groupt.ebn');
		Add(3,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_groupo.ebn');
		Add(4,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_grouphot.ebn');
		Add(5,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_frameh.ebn');
		Add(6,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehs.ebn');
		Add(7,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehi.ebn');
		Add(8,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framehe.ebn');
		Add(9,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framevs.ebn');
		Add(10,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_framevi.ebn');
		Add(11,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_frameve.ebn');
		Add(12,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_select.ebn');
		Add(13,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_bordert.ebn');
		Add(14,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_buttond.ebn');
		Add(15,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_buttonu.ebn');
		Add(16,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tab.ebn');
		Add(17,'CP:16 0 0 0 1');
		Add(18,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tabhot.ebn');
		Add(19,'C:\Program Files\Exontrol\ExContextMenu\Sample\EBN\MSOffice-Ribbon\msor_tabselhot.ebn');
		Add(20,'CP:19 0 0 0 1');
	end;
	ForeColor := Color.FromArgb(21,66,139);
	(GetOcx() as EXCONTEXTMENULib.ExContextMenu).SelBackColor := $e000000;
	LocalAppearance := EXCONTEXTMENULib.MenuBorderEnum.ShadowBorder;
	Appearance := EXCONTEXTMENULib.MenuBorderEnum($1000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exToolTipAppearance,Appearance);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum($2),$d000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSingle,$5000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHStart,$6000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,$7000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHEnd,$8000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVStart,$9000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,$a000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVEnd,$b000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuHotBackColor,$c000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelHotBackColor,$f000000);
	Select(Nil,Nil,Nil);
end
165:
How I can assign buttons to a tab

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelBorderColor,$f0f0f0);
	with Items do
	begin
		ToString := '[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=0][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100' + 
	']))';
		with item[TObject(-10)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			with Add('New Page',Nil,Nil) do
			begin
				ToString := '[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' + 
	'roup=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))';
				Caption := 'Page<off -5><font ;5><b>1</b></font></off>';
				with Items do
				begin
					Add('Button 1',Nil,Nil).ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton);
					Add('Button 2',Nil,Nil).ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton);
					Add('Button 3',Nil,Nil).ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton);
				end;
			end;
			with Add('New Page',Nil,Nil) do
			begin
				ToString := '[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' + 
	'roup=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))';
				Caption := 'Page<off -5><font ;5><b>2</b></font></off>';
				with Items do
				begin
					Add('Button 3',Nil,Nil).ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton);
					Add('Button 4',Nil,Nil).ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton);
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	Select(Nil,Nil,Nil);
end
164:
How can I hide an item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil).Visible := False;
		Add('Item 2',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
163:
How do I get the item giving its caption

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil).ID := 1000;
		Add('Item 2',Nil,Nil).ID := 1001;
	end;
	get_item('Item 1').Bold := True;
	Select(Nil,Nil,Nil);
end
162:
How do I get the item giving its identifier

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil).ID := 1000;
		Add('Item 2',Nil,Nil).ID := 1001;
	end;
	get_item(TObject(1000)).Bold := True;
	Select(Nil,Nil,Nil);
end
161:
Can I change the cursor where it hovers the item
AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Cursor := 'exCross';
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil).Cursor := 'exNoDrop';
	end;
	Select(Nil,Nil,Nil);
end
160:
I am using radio-buttons, the question is it possible to uncheck the radio-buttons, so no button is pressed in the group

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	AllowToggleRadio := True;
	with Items do
	begin
		with Add('Radio 1',Nil,TObject(1000)) do
		begin
			Radio := True;
			RadioGroup := 100;
		end;
		with Add('Radio 2',Nil,TObject(1001)) do
		begin
			Radio := True;
			RadioGroup := 100;
		end;
		with Add('Radio 2',Nil,TObject(1003)) do
		begin
			Radio := True;
			RadioGroup := 100;
		end;
	end;
	Select(Nil,Nil,Nil);
end
159:
Is it possible to display the item's identifiers

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Debug := True;
	with Items do
	begin
		Add('Item 1',Nil,Nil).ID := 10001;
		Add('Item 2',Nil,Nil).ID := 10002;
	end;
	Select(Nil,Nil,Nil);
end
158:
How do I disable showing the tooltip for all control (method 2)
AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	AllowToolTip := False;
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Select(Nil,Nil,Nil);
end
157:
How can I disable the control

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil).Enabled := False;
		Add('Item 2',Nil,Nil).Enabled := False;
		Add('Item 3',Nil,Nil).Enabled := False;
	end;
	Select(Nil,Nil,Nil);
end
156:
How can I specify a different border/visual appearance for drop down portion of the select buttons/combobox (ebn)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	LocalAppearance := EXCONTEXTMENULib.MenuBorderEnum($1000000);
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Button',TObject(2),Nil) do
				begin
					ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
					with Items do
					begin
						Add('Item 1',Nil,Nil);
						Add('Item 2',Nil,Nil);
						Add('Item 3',Nil,Nil);
					end;
				end;
				with Add('Button',TObject(2),Nil) do
				begin
					ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
					with Items do
					begin
						Add('Item 4',Nil,Nil);
						Add('Item 5',Nil,Nil);
						Add('Item 6',Nil,Nil);
					end;
				end;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
155:
How can I specify a different border for drop down portion of the select buttons/combobox

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	LocalAppearance := EXCONTEXTMENULib.MenuBorderEnum.ShadowBorder;
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Button',TObject(2),Nil) do
				begin
					ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
					with Items do
					begin
						Add('Item 1',Nil,Nil);
						Add('Item 2',Nil,Nil);
						Add('Item 3',Nil,Nil);
					end;
				end;
				with Add('Button',TObject(2),Nil) do
				begin
					ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
					with Items do
					begin
						Add('Item 4',Nil,Nil);
						Add('Item 5',Nil,Nil);
						Add('Item 6',Nil,Nil);
					end;
				end;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
154:
How can I change the visual appearance for the entire control

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Appearance := EXCONTEXTMENULib.MenuBorderEnum($1000000);
	ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight;
	with Items do
	begin
		Padding := '4,4,4,4';
		with Add('Radio 1',Nil,Nil) do
		begin
			Radio := True;
			Checked := True;
		end;
		Add('Radio 2',Nil,Nil).Radio := True;
		Add('Radio 3',Nil,Nil).Radio := True;
	end;
	Select(Nil,Nil,Nil);
end
153:
How can I show a border arround the control

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Appearance := EXCONTEXTMENULib.MenuBorderEnum.FlatBorder;
	ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight;
	with Items do
	begin
		Padding := '4,4,4,4';
		with Add('Check 1',Nil,Nil) do
		begin
			Checked := True;
			Check := True;
		end;
		with Add('Check 2',Nil,Nil) do
		begin
			Check := True;
		end;
	end;
	Select(Nil,Nil,Nil);
end
152:
Is it possible to change the item's background color when check/uncheck the item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight;
	with Items do
	begin
		Padding := '4,4,4,4';
		with Add('Check 1',Nil,Nil) do
		begin
			Checked := True;
			Check := True;
		end;
		with Add('Check 2',Nil,Nil) do
		begin
			Check := True;
		end;
	end;
	Select(Nil,Nil,Nil);
end
151:
How can I change the colors for hot/hover items

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuHotBackColor,$10000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuHotForeColor,$ffffff);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelHotBackColor,$808080);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelHotForeColor,$ffffff);
	SelBackColor := Color.FromArgb(128,128,128);
	SelForeColor := Color.FromArgb(255,255,255);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelBorderColor,$808080);
	ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemCheckHighlight;
	with Items do
	begin
		Padding := '4,4,4,4';
		Add('',Nil,Nil).ToString := '[group=3](Item 1,Item 2)';
		with Add('Check 1',Nil,Nil) do
		begin
			Checked := True;
			Check := True;
		end;
		with Add('Check 2',Nil,Nil) do
		begin
			Check := True;
		end;
	end;
	Select(Nil,Nil,Nil);
end
150:
How do I change the visual appearance of the groups (vertical)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
		Add(3,'c:\exontrol\images\hot.ebn');
	end;
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSingle,$1000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVStart,$1000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVIntermediate,$2000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameVEnd,$3000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSolid,$ff);
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Vertical',TObject(2),Nil) do
				begin
					Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
					GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						Add('Item 1',Nil,Nil);
						Add('Item 2',Nil,Nil);
						Add('Item 3',Nil,Nil);
						Add('Item 4',Nil,Nil);
						Add('Item 5',Nil,Nil);
					end;
				end;
				Add('',Nil,Nil).CaptionWidth := 12;
				with Add('Vertical',TObject(2),Nil) do
				begin
					Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
					GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameThickBox) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameSolidBox) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						Add('Item 1',Nil,Nil);
						Add('Item 2',Nil,Nil);
						Add('Item 3',Nil,Nil);
						Add('Item 4',Nil,Nil);
						Add('Item 5',Nil,Nil);
					end;
				end;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
149:
How do I change the visual appearance of the groups (horizontal)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
		Add(3,'c:\exontrol\images\hot.ebn');
	end;
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSingle,$1000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHStart,$1000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHIntermediate,$2000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameHEnd,$3000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exGroupPopupFrameSolid,$ff);
	with Items do
	begin
		with Add('Horizontal Group',TObject(2),Nil) do
		begin
			GroupPopup := EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
				Add('Item 4',Nil,Nil);
				Add('Item 5',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Horizontal Group[group=193](Item 1,Item 2,Item 3,Item 4,Item 5)';
	end;
	Select(Nil,Nil,Nil);
end
148:
How can I change the visual appearance of the separator item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSeparatorItem,$1000000);
	with Items do
	begin
		Add('Item',Nil,Nil).CaptionWidth := 128;
		Add('',TObject(1),Nil);
		Add('Item',Nil,Nil).CaptionWidth := 128;
		Add('',Nil,Nil).ToString := '<font ;5>separator[sep]';
	end;
	Select(Nil,Nil,Nil);
end
147:
How can I change the visual appearance of the flat portion of the drop down of the control

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	(GetOcx() as EXCONTEXTMENULib.ExContextMenu).FlatBackColor := $1000000;
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuFlatLineColor,FlatBackColor);
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil).Check := True;
			Add('Item 2',Nil,Nil).Check := True;
			Add('Item 3',Nil,Nil).Check := True;
		end;
	end;
	Select(Nil,Nil,Nil);
end
146:
How can I change the visual appearance of the radio-buttons to be displayed in the context menu (ebn)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exRadioButtonState0,$1000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exRadioButtonState1,$2000000);
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				with Add('Radio 1',Nil,TObject(1000)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1001)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1003)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				item[TObject(1000)].Checked := True;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
145:
How can I change the visual appearance of the check-boxes to be displayed in the context menu (ebn)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState0,$1000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exCheckBoxState1,$2000000);
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Check 1',Nil,Nil) do
				begin
					Check := True;
					Checked := True;
				end;
				Add('Check 2',Nil,Nil).Check := True;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
144:
How can I change the visual appearance of the tooltips to be displayed in the context menu (ebn)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	ToolTipDelay := 1;
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exToolTipAppearance,$1000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exToolTipForeColor,$ff);
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Select(Nil,Nil,Nil);
end
143:
Is it possible to change the visual appearance of the buttons to be displayed in the context menu (ebn)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'c:\exontrol\images\pushed.ebn');
	end;
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum($2),$1000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum($3),$2000000);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSeparatorSelectButton,$ff);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSeparatorSelectButtonBottom,$ff0000);
	with Items do
	begin
		Padding := '4,4,4,4';
		Add('Button',Nil,Nil).ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton);
		with Add('',Nil,Nil) do
		begin
			Enabled := False;
			ItemHeight := 4;
		end;
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		with Add('',Nil,Nil) do
		begin
			Enabled := False;
			ItemHeight := 4;
		end;
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButton) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
142:
I've seen that the width of the tooltip is variable. Can I make it larger

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToolTipWidth := 328;
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Select(Nil,Nil,Nil);
end
141:
How do I disable showing the tooltip for all control (method 1)
AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToolTipDelay := 0;
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Select(Nil,Nil,Nil);
end
140:
How do I let the tooltip being displayed longer

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToolTipPopDelay := 10000;
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Select(Nil,Nil,Nil);
end
139:
How do I show the tooltip quicker

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToolTipDelay := 1;
	with Items do
	begin
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
		Add('Item',Nil,Nil).Tooltip := 'this is a bit of text to be shown when cursor hovers it';
	end;
	Select(Nil,Nil,Nil);
end
138:
How can I get the version of the control I am running
AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	OutputDebugString( Version );
end
137:
How can I align the picture on the control's background
AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	(GetOcx() as EXCONTEXTMENULib.ExContextMenu).Picture := (AxExContextMenu1.ExecuteTemplate('loadpicture(`c:\exontrol\images\card.png`)') as Object);
	PictureDisplay := EXCONTEXTMENULib.PictureDisplayEnum.UpperRight;
	with Items do
	begin
		Add('Item',Nil,Nil);
		Add('Item',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
136:
Is it possible to place a picture on the control's background
AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	(GetOcx() as EXCONTEXTMENULib.ExContextMenu).Picture := (AxExContextMenu1.ExecuteTemplate('loadpicture(`c:\exontrol\images\card.png`)') as Object);
	with Items do
	begin
		Add('Item',Nil,Nil);
		Add('Item',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
135:
How can I display the item using a different font/size

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('',Nil,Nil).Caption := '<font ;14>This is a bit of text';
		Add('<font ;6>This is a bit of text',Nil,Nil);
		Add('',Nil,Nil).Caption := '<font Times New Roman;22>This is a bit of text</font>. Default';
	end;
	Select(Nil,Nil,Nil);
end
134:
How can I use the Event event, available for /COM version

// Event event - Notifies the application once the control fires an event.
procedure TWinForm1.AxExContextMenu1_Event(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EventEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( 'Event' );
		OutputDebugString( get_EventParam(-2) );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Check',Nil,Nil).Check := True;
		with Add('Slider',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider;
			EditWidth := 128;
			EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
			EditValue := TObject(25);
		end;
	end;
	Select(Nil,Nil,Nil);
end
133:
Is it possible to get notified once the user edits the field, or change the slider value

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( 'EditChange event on Itm object' );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Item',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider;
			EditWidth := 128;
			EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
			EditValue := TObject(25);
		end;
	end;
	Select(Nil,Nil,Nil);
end
132:
How do I get notified once I uncheck an item
// UncheckItem event - Occurs when the user unchecks the item.
procedure TWinForm1.AxExContextMenu1_UncheckItem(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_UncheckItemEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( 'UncheckItem event on Itm object' );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Check := True;
		Add('Item',Nil,Nil).Check := True;
	end;
	Select(Nil,Nil,Nil);
end
131:
How do I get notified once I check an item
// CheckItem event - Occurs when the user checks the item.
procedure TWinForm1.AxExContextMenu1_CheckItem(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_CheckItemEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( 'CheckItem event on Itm object' );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Check := True;
		Add('Item',Nil,Nil).Check := True;
	end;
	Select(Nil,Nil,Nil);
end
130:
How do I get notified once I click/select an item
// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxExContextMenu1_SelectItem(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_SelectItemEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( 'SelectItem event on Itm object' );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil);
		Add('Item',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
129:
Does your control support padding for items

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	MenuAppearance := EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal;
	with Items do
	begin
		Padding := '2,12,2,2';
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		BackColor := $ffffff;
		BackgroundExt := 'root[pattern=0x000,frame=RGB(128,128,128)](top[2],top[10,text=`<font ;6><fgcolor 808080> group </font></fgcolor>`,align=0x11])';
	end;
	Select(Nil,Nil,Nil);
end
128:
How can I change the visual appearance for items, when cursor hovers it (hot,EBN)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				HotBackColor := $1000000;
				Padding := '4,8,4,8';
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := '[group=0x03][itemspad=4,8,4,8][itemsbghot=0x1000000](Item 1,Item 2,Item 3)';
	end;
	Select(Nil,Nil,Nil);
end
127:
How can I change the background color for items, when cursor hovers it (hot)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				HotBackColor := $ff;
				Padding := '0,8,0,8';
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := '[group=0x03][itemspad=0,8,0,8][itemsbghot=RGB(255,0,0)](Item 1,Item 2,Item 3)';
	end;
	Select(Nil,Nil,Nil);
end
126:
How can I change the visual appearance for items (EBN)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				BackColor := $1000000;
				Padding := '4,8,4,8';
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := '[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)';
	end;
	Select(Nil,Nil,Nil);
end
125:
How can I change the background color for items

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				BackColor := $ff;
				Padding := '0,8,0,8';
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := '[group=0x03][itemspad=0,8,0,8][itemsbg=RGB(255,0,0)](Item 1,Item 2,Item 3)';
	end;
	Select(Nil,Nil,Nil);
end
124:
How do I hide the left gray portion to be shown on the drop down menu/popup (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	FlatImageWidth := 0;
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil);
			Add('Item 2',Nil,Nil);
			Add('Item 3',Nil,Nil);
		end;
	end;
	Select(Nil,Nil,Nil);
end
123:
How do I hide the left gray portion to be shown on the drop down menu/popup (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	MenuAppearance := EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal;
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil);
			Add('Item 2',Nil,Nil);
			Add('Item 3',Nil,Nil);
		end;
	end;
	Select(Nil,Nil,Nil);
end
122:
How can I arrange the drop down item from left to right, rather than top to bottom

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxExContextMenu1_SelectItem(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_SelectItemEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( 'Clicked' );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	MenuAppearance := EXCONTEXTMENULib.MenuAppearanceEnum.exMenuNormal;
	with Items do
	begin
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				with Add('',TObject(2),Nil) do
				begin
					GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						Add('Item 1',Nil,Nil);
						Add('Item 2',Nil,Nil);
						Add('Item 3',Nil,Nil);
					end;
				end;
			end;
		end;
		Add('',Nil,Nil).ToString := 'Button[button=0x0113][popupapp=6]([group=0x03](Item 1,Item 2,Item 3))';
	end;
	Select(Nil,Nil,Nil);
end
121:
How can I add a drop down button / combobox (method 2)

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxExContextMenu1_SelectItem(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_SelectItemEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( 'Clicked' );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButtonBottom) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Button[button=275][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
	end;
	Select(Nil,Nil,Nil);
end
120:
How can I add a drop down button / combobox (method 1)

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxExContextMenu1_SelectItem(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_SelectItemEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( 'Clicked' );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButton) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Button[button=0x13][popupapp=6](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
	end;
	Select(Nil,Nil,Nil);
end
119:
I am using exShowAsSelectButton/exShowAsSelectButtonBottom but none of them works. What could be wrong

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxExContextMenu1_SelectItem(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_SelectItemEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( 'Clicked' );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Button',TObject(2),Nil) do
		begin
			ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsSelectButton) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
118:
How can I add a button (push button)

// SelectItem event - Occurs when the user selects the item.
procedure TWinForm1.AxExContextMenu1_SelectItem(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_SelectItemEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( 'Clicked' );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Button',Nil,Nil).ShowAsButton := Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButtonAutoSize) Or Integer(EXCONTEXTMENULib.ShowAsButtonEnum.exShowAsButton);
		Add('',Nil,Nil).ToString := 'Button[button=0x03]';
	end;
	Select(Nil,Nil,Nil);
end
117:
How can I display grouping items with no frame arround

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Horizontal Group',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameThickBox) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameSolidBox) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('A',Nil,Nil).Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
				Add('BC',Nil,Nil).Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
				Add('D',Nil,Nil).Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
			end;
		end;
		Add('',Nil,Nil).ToString := 'Horizontal Group[group=243](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])';
	end;
	Select(Nil,Nil,Nil);
end
116:
How can I display grouping items of the same size/width/height

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Horizontal Group',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameThickBox) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameSolidBox) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualHeight) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupEqualWidth) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('A',Nil,Nil).Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
				Add('BC',Nil,Nil).Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
				Add('D',Nil,Nil).Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
			end;
		end;
		Add('',Nil,Nil).ToString := 'Horizontal Group[group=0xF1](A[id=20][align=1],BC[id=30][align=1],D[id=40][align=1])';
	end;
	Select(Nil,Nil,Nil);
end
115:
Is it possible to display a ticker frame arround grouping items

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Horizontal Group',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameThickBox) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupFrameSolidBox) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Horizontal Group[group=193](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
	end;
	Select(Nil,Nil,Nil);
end
114:
How do I display items horizontally arranged

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Horizontal Group',TObject(2),Nil) do
		begin
			GroupPopup := EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		Add('',Nil,Nil).ToString := 'Horizontal Group[group=0x01](Item 1[id=20],Item 2[id=30],Item 3[id=40])';
	end;
	Select(Nil,Nil,Nil);
end
113:
Is it possible to expand an item when it is clicked (tree,group,vertical)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Expand',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			Check := True;
			ShowPopupOnChecked := True;
			with Items do
			begin
				Padding := '22,0,0,0';
				Add('Radio 1',Nil,Nil).Radio := True;
				Add('Radio 2',Nil,Nil).Radio := True;
				with Add('Radio 3',Nil,Nil) do
				begin
					Radio := True;
					Checked := True;
				end;
			end;
			Checked := True;
		end;
		Add('',Nil,Nil).ToString := 'Expand[typ=1][chk=1][spchk=-1][group=0x0103][itemspad=22,0,0,0](Radio 1[id=20][typ=2],Radio 2[id=30][typ=2],Radio 3[id=40][typ=2' + 
	'][chk=1])';
	end;
	Select(Nil,Nil,Nil);
end
112:
Is it possible to expand an item when it is clicked (tree,group,vertical)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Expand',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			Check := True;
			ShowPopupOnChecked := True;
			with Items do
			begin
				Padding := '22,0,0,0';
				Add('Radio 1',Nil,Nil).Radio := True;
				Add('Radio 2',Nil,Nil).Radio := True;
				with Add('Radio 3',Nil,Nil) do
				begin
					Radio := True;
					Checked := True;
				end;
			end;
			Checked := True;
		end;
	end;
	Select(Nil,Nil,Nil);
end
111:
Is it possible to expand an item when it is clicked (group)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Expand',TObject(2),Nil) do
		begin
			GroupPopup := EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup;
			ItemHeight := 24;
			Check := True;
			ShowPopupOnChecked := True;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
110:
Is it possible to extend an item when it is clicked

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Expand',TObject(2),Nil) do
		begin
			Check := True;
			ShowPopupOnChecked := True;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
109:
Does your control implement padding for item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		BackColor := $fafafa;
		Add('Item',Nil,Nil).Padding := '4,4,4,4';
		Add('',Nil,Nil).ToString := 'Item[pad=4,4,4,4]';
	end;
	Select(Nil,Nil,Nil);
end
108:
How can I add an empty item for a horizontal group

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				with Add('',TObject(2),Nil) do
				begin
					GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupCenter) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
					ItemHeight := 12;
					with Items.Add('',Nil,Nil) do
					begin
						Enabled := False;
						ItemHeight := 8;
						CaptionWidth := 8;
					end;
				end;
				Add('Item 2',Nil,Nil);
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
107:
How can I add an empty/separator item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil);
		with Add('',Nil,Nil) do
		begin
			Enabled := False;
			ItemHeight := 2;
			CaptionWidth := 8;
			BackColor := $f0f0f0;
		end;
		Add('Item',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
106:
How can I add an empty/frame item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupCenter) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			ItemHeight := 12;
			with Items.Add('',Nil,Nil) do
			begin
				Enabled := False;
				ItemHeight := 8;
				CaptionWidth := 8;
			end;
		end;
		Add('Item 2',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
105:
How can I specify the height of the item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		BackColor := $fafafa;
		Add('Item',Nil,Nil).ItemHeight := 64;
		Add('',Nil,Nil).ToString := 'Item[height=64]';
	end;
	Select(Nil,Nil,Nil);
end
104:
How can I specify the width of the item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		BackColor := $fafafa;
		Add('Item',Nil,Nil).CaptionWidth := 128;
		Add('',Nil,Nil).ToString := 'Item[captionwidth=128]';
	end;
	Select(Nil,Nil,Nil);
end
103:
How do I align the item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		BackColor := $fafafa;
		Add('Item',Nil,Nil);
		with Add('Item',Nil,Nil) do
		begin
			Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
			CaptionWidth := 128;
		end;
		with Add('Item',Nil,Nil) do
		begin
			Alignment := EXCONTEXTMENULib.AlignmentEnum.exRight;
			CaptionWidth := 128;
		end;
		Add('',Nil,Nil).ToString := 'Item[align=1]';
	end;
	Select(Nil,Nil,Nil);
end
102:
How can I underline the item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Underline := True;
		Add('<u>Item</u>',Nil,Nil);
		Add('',Nil,Nil).ToString := 'Item[und]';
	end;
	Select(Nil,Nil,Nil);
end
101:
How can I show the item as strikeout

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Strikeout := True;
		Add('<s>Item</s>',Nil,Nil);
		Add('',Nil,Nil).ToString := 'Item[stk]';
	end;
	Select(Nil,Nil,Nil);
end
100:
How can I show the item in italics

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Italic := True;
		Add('<i>Item</i>',Nil,Nil);
		Add('',Nil,Nil).ToString := 'Item[itl]';
	end;
	Select(Nil,Nil,Nil);
end
99:
How can I show the item in bold

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Bold := True;
		Add('<b>Item</b>',Nil,Nil);
		Add('',Nil,Nil).ToString := 'Item[bld]';
	end;
	Select(Nil,Nil,Nil);
end
98:
How can I show the item as disabled but still be able to select or use it

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).ShowAsDisabled := True;
		Add('',Nil,Nil).ToString := 'Item[showdis=1]';
	end;
	Select(Nil,Nil,Nil);
end
97:
How can I enable or disable an item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).Enabled := False;
		Add('',Nil,Nil).ToString := 'Item[dis]';
	end;
	Select(Nil,Nil,Nil);
end
96:
How can I add a separator item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).CaptionWidth := 128;
		Add('<font ;6>separator',TObject(1),Nil);
		Add('Item',Nil,Nil).CaptionWidth := 128;
		Add('',Nil,Nil).ToString := '<font ;6>separator[sep]';
	end;
	Select(Nil,Nil,Nil);
end
95:
How can I change the item's foreground color

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).ForeColor := $ff;
		Add('<fgcolor FF0000>Item',Nil,Nil);
		Add('',Nil,Nil).ToString := 'Item[fg=RGB(255,0,0)]';
	end;
	Select(Nil,Nil,Nil);
end
94:
How can I change the item's background/backcolor, when the item is selected/checked (radio-buttons)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Radio 1',Nil,Nil) do
				begin
					HotBackColor := $ffffff;
					SelBackColor := $ff;
					SelHotBackColor := $ff;
					ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
					Radio := True;
					RadioGroup := 100;
					Checked := True;
				end;
				with Add('Radio 2',Nil,Nil) do
				begin
					HotBackColor := $ffffff;
					SelBackColor := $ff;
					SelHotBackColor := $ff;
					ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
					Radio := True;
					RadioGroup := 100;
				end;
				Add('',Nil,Nil).ToString := 'Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]';
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
93:
How can I change the item's background/backcolor, when the item is selected/checked (check-box)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Check 1',Nil,Nil) do
		begin
			HotBackColor := $ffffff;
			SelBackColor := $ff;
			SelHotBackColor := $ff;
			ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
			Checked := True;
			Check := True;
		end;
		Add('',Nil,Nil).ToString := 'Check 2[typ=1][chk=0][show=1][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]';
	end;
	Select(Nil,Nil,Nil);
end
92:
How can I prevent showing the border for selected/highlight/hot items

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelBorderColor,$ffffff);
	with Items do
	begin
		Add('Item',Nil,Nil);
		Add('Item',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
91:
How can I change the item's background/backcolor, when the cursor hovers it (hot)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item',Nil,Nil).HotBackColor := $ff;
		Add('',Nil,Nil).ToString := 'Item[bghot=RGB(255,0,0)]';
	end;
	Select(Nil,Nil,Nil);
end
90:
How can I change the item's background/backcolor

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		Add('Item',Nil,Nil).BackColor := $ff;
		Add('Item',Nil,Nil).BackColor := $1000000;
		Add('',Nil,Nil).ToString := 'Item[bg=RGB(255,0,0)]';
	end;
	Select(Nil,Nil,Nil);
end
89:
How can I specify/assign the item's identifier

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Debug := True;
	with Items do
	begin
		Add('ID 1',TObject(0),TObject(1000));
		Add('ID 2',Nil,Nil).ID := 1001;
		Add('',Nil,Nil).ToString := 'ID 3[id=1002]';
	end;
	Select(Nil,Nil,Nil);
end
88:
How can I show a horizontal separator/line between groups (method 3,EBN color)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
				with Add('',Nil,Nil) do
				begin
					Enabled := False;
					BackColor := $1000000;
					ItemHeight := 8;
					CaptionWidth := 128;
				end;
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
87:
How can I show a horizontal separator/line between groups (method 2,solid color)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
				with Add('',Nil,Nil) do
				begin
					Enabled := False;
					BackColor := $808080;
					ItemHeight := 8;
					CaptionWidth := 128;
				end;
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
86:
How can I show a horizontal separator/line between groups (method 1,pattern)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
				with Add('',TObject(2),Nil) do
				begin
					GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						with Add('',Nil,Nil) do
						begin
							Enabled := False;
							ItemHeight := 8;
							CaptionWidth := 128;
						end;
						BackgroundExt := 'none[(0,50%-1,100%,2),pattern=0x006,patterncolor=RGB(128,128,128)]';
					end;
				end;
				with Add('',Nil,Nil) do
				begin
					AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider;
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := -128;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
85:
How can I show a vertical separator/line between groups (method 3,EBN color)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
				with Add('',Nil,Nil) do
				begin
					Enabled := False;
					BackColor := $1000000;
					ItemHeight := 96;
					CaptionWidth := 8;
				end;
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
84:
How can I show a vertical separator/line between groups (method 2,solid color)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
				with Add('',Nil,Nil) do
				begin
					Enabled := False;
					BackColor := $808080;
					ItemHeight := 96;
					CaptionWidth := 8;
				end;
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
83:
How can I show a vertical separator/line between groups (method 1,pattern)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
				with Add('',TObject(2),Nil) do
				begin
					GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						with Add('',Nil,Nil) do
						begin
							Enabled := False;
							ItemHeight := 96;
							CaptionWidth := 8;
						end;
						BackgroundExt := 'none[(50%-1,0,2,100%),pattern=6,patterncolor=RGB(128,128,128)]';
					end;
				end;
				with Add('',Nil,Nil) do
				begin
					ItemHeight := 128;
					AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider);
					EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
					EditWidth := 32;
					EditValue := TObject(25);
				end;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
82:
How can I show a pattern on the items

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		BackColor := $ffffff;
		Padding := '2,2,2,12';
		BackgroundExt := 'root[pattern=0x006,patterncolor=RGB(128,128,128),frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off' + 
	' -2> clipboard </off></font></fgcolor>`,align=0x21])';
	end;
	Select(Nil,Nil,Nil);
end
81:
How can I show a thick frame arround the items

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		BackColor := $ffffff;
		Padding := '2,2,2,12';
		BackgroundExt := 'root[frame=RGB(128,128,128)](bottom[2],bottom[12,text=`<font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor>`,alig' + 
	'n=0x21])';
	end;
	Select(Nil,Nil,Nil);
end
80:
How can I add some additional icons on the background

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 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=');
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		BackColor := $ffffff;
		Padding := '0,0,0,16';
		BackgroundExt := 'root[text=`<img>2</img><font ;6><fgcolor 808080><off -2> clipboard </off></font></fgcolor><img>2</img>`,align=0x21]';
	end;
	Select(Nil,Nil,Nil);
end
79:
How can I add some additional text on the background

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
		end;
		BackColor := $ffffff;
		Padding := '0,0,0,8';
		BackgroundExt := 'root[text=`<font ;6><fgcolor 808080>clipboard`,align=0x21]';
	end;
	Select(Nil,Nil,Nil);
end
78:
How can I assign a tooltip to an item (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'ToolTip[id=10][ttp=This is a bit of text that should be shown when cursor hovers the item]';
	Select(Nil,Nil,Nil);
end
77:
How can I assign a tooltip to an item (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Items.Add('ToolTip',Nil,Nil).Tooltip := 'This is a bit of text that should be shown when cursor hovers the item';
	Select(Nil,Nil,Nil);
end
76:
How can I assign a spin field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Spin',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin;
			EditWidth := 16;
			EditValue := TObject(15);
			EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
			EditOption[EXCONTEXTMENULib.EditOptionEnum.exEditMaxValue] := TObject(1000);
		end;
		with Add('Edit-Spin',Nil,Nil) do
		begin
			AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditText);
			EditWidth := -128;
			EditValue := TObject(15);
			EditOption[EXCONTEXTMENULib.EditOptionEnum.exEditMaxValue] := TObject(1000);
		end;
		with Add('Splider-Spin',Nil,Nil) do
		begin
			AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSpin) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider);
			EditWidth := -128;
			EditValue := TObject(25);
			EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
		end;
	end;
	Select(Nil,Nil,Nil);
end
75:
How can I assign a spin field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Spin[id=10][edittype=0x0200][edit=15][border=0][max=1000][editwidth=16],Edit-Spin[id=20][edittype=0x0201][edit=15][max=1000][edi' + 
	'twidth=-128],Splider-Spin[id=30][edittype=0x0203][edit=25][border=0][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
74:
How can I add a vertical slider (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Vertical[id=10][edittype=0x0403][edit=25][border=0][height=128]';
	Select(Nil,Nil,Nil);
end
73:
How can I add a vertical slider (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Vertical',Nil,Nil) do
		begin
			ItemHeight := 128;
			AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditVertical) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider);
			EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
			EditWidth := 32;
			EditValue := TObject(25);
		end;
	end;
	Select(Nil,Nil,Nil);
end
72:
How can I disable an editor (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Disabled[id=10][dis][edittype=0x01][edit=text-box][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
71:
How can I disable an editor (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Disabled',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditText;
			EditWidth := -128;
			EditValue := 'text-box';
			Enabled := False;
		end;
	end;
	Select(Nil,Nil,Nil);
end
70:
How can I lock an editor (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Locked[id=10][edittype=0x0101][edit=disabled text-box][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
69:
How can I lock an editor (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Locked',Nil,Nil) do
		begin
			AllowEdit := Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditReadOnly) Or Integer(EXCONTEXTMENULib.AllowEditEnum.exItemEditText);
			EditWidth := -128;
			EditValue := 'disabled text-box';
		end;
	end;
	Select(Nil,Nil,Nil);
end
68:
How can I assign a font field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Font',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditFont;
			EditWidth := -128;
			EditValue := 'Tahoma';
		end;
	end;
	Select(Nil,Nil,Nil);
end
67:
How can I assign a font field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Font[id=10][edittype=0x07][edit=Tahoma][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
66:
How can I assign a color field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Color',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditColor;
			EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
			EditWidth := -128;
			EditValue := TObject(255);
		end;
	end;
	Select(Nil,Nil,Nil);
end
65:
How can I assign a color field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Color[id=10][edittype=0x06][edit=#FF0000][border=0][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
64:
How can I assign a scrollbar field to the item (method 2)
// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('ScrollBar',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditScrollBar;
			EditWidth := -128;
			EditValue := '25';
		end;
	end;
	Select(Nil,Nil,Nil);
end
63:
How can I assign a scrollbar field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'ScrollBar[id=10][edittype=0x05][edit=25][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
62:
Is it possible to change the tooltip beging shown when I change the slider/scroll/progress value

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Progress',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress;
			EditWidth := -128;
			EditValue := TObject(25);
			EditOption[EXCONTEXTMENULib.EditOptionEnum.exEditChangeToolTip] := '`Current value is: ` + value';
		end;
	end;
	Select(Nil,Nil,Nil);
end
61:
How can I hide the tooltip beging shown when I change the slider/scroll/progress value
// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Progress',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress;
			EditWidth := -128;
			EditValue := TObject(25);
			EditOption[EXCONTEXTMENULib.EditOptionEnum.exEditChangeToolTip] := '';
		end;
	end;
	Select(Nil,Nil,Nil);
end
60:
How can I assign a progress field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Progress',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditProgress;
			EditWidth := -128;
			EditValue := TObject(25);
		end;
	end;
	Select(Nil,Nil,Nil);
end
59:
How can I assign a progress field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Progress[id=10][edittype=0x04][edit=25][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
58:
How can I assign a slider field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Slider',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider;
			EditWidth := -128;
			EditValue := TObject(25);
		end;
		with Add('Slider',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditSlider;
			EditBorder := EXCONTEXTMENULib.EditBorderEnum.exEditBorderNone;
			EditWidth := -128;
			EditOption[EXCONTEXTMENULib.EditOptionEnum.exEditMinValue] := TObject(50);
			EditOption[EXCONTEXTMENULib.EditOptionEnum.exEditMaxValue] := TObject(450);
			EditOption[EXCONTEXTMENULib.EditOptionEnum.exEditTickStyle] := TObject(2);
			EditOption[EXCONTEXTMENULib.EditOptionEnum.exEditTickFrequency] := TObject(50);
			EditOption[EXCONTEXTMENULib.EditOptionEnum.exEditTickLabel] := 'value = vmin ? ''<br><font ;6><b>''+value : ( value = vmax ? ''<br><font ;6><b>''+value : ( value = 200 ? ''<br><font ;6><b><fgcolor ' + 
	'FF0000>''+value : '''' ) )';
			EditValue := TObject(345);
		end;
	end;
	Select(Nil,Nil,Nil);
end
57:
How can I assign a slider field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Slider[id=10][edittype=0x03][edit=25][editwidth=-128],Slider[id=20][edittype=0x03][edit=345][border=0][min=50][max=450][tick=2][' + 
	'freq=50][ticklabel=value = vmin ? ''<br><font ;6><b>''+value : ( value = vmax ? ''<br><font ;6><b>''+value : ( value = 200 ? ''<br><f' + 
	'ont ;6><b><fgcolor FF0000>''+value : '''' ) )][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
56:
How can I assign a mask (time) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Time',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '99:00:00;;0;overtype,warning=Invalid character';
			EditValue := '123456';
		end;
	end;
	Select(Nil,Nil,Nil);
end
55:
How can I assign a mask (time) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Time[id=10][edittype=0x02][edit=12:34:56][mask=99:00:00;;0;overtype,warning=Invalid character][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
54:
How can I assign a mask (license key) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('License Key',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := 'AAAA-AAAA-AAAA-AAAA';
			EditValue := '1234';
		end;
	end;
	Select(Nil,Nil,Nil);
end
53:
How can I assign a mask (license key) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'License Key[id=10][edittype=0x02][edit=1234-____-____-____][mask=AAAA-AAAA-AAAA-AAAA][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
52:
How can I assign a mask (IP address) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('IP Address',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '{0,255}.{0,255}.{0,255}.{0,255}';
			EditValue := '1.2.3.4';
		end;
	end;
	Select(Nil,Nil,Nil);
end
51:
How can I assign a mask (IP address) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'IP Address[id=10][edittype=0x02][edit=1.2.3.4][mask={0,255}.{0,255}.{0,255}.{0,255}][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
50:
How can I assign a mask (phone) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Phone',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '!(9999) 000 000;;;empty,select=4,overtype,beep';
			EditValue := '0771638317';
		end;
	end;
	Select(Nil,Nil,Nil);
end
49:
How can I assign a mask (phone) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Phone[id=10][edittype=0x02][edit=(0771) 638 317][mask=!(9999) 000 000;;;empty,select=4,overtype,beep][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
48:
How can I assign a mask (date) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '`Date: `{1,12}/{1,31}/{1950,2050};;;select=1';
			EditValue := '2/15/2015';
		end;
		with Add('Date',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,overtype';
			EditValue := '2/15/2015';
		end;
	end;
	Select(Nil,Nil,Nil);
end
47:
How can I assign a mask (date) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := '[id=10][edittype=0x02][edit=Date: 2/15/2015][mask=`Date: `{1,12}/{1,31}/{1950,2050};;;select=1][editwidth=-128],Date[id=20][edit' + 
	'type=0x02][edit=02/15/2015][mask=!00/00/0000;;0;empty,validateas=1,invalid=Invalid date!,warning=Invalid character!,select=4,ove' + 
	'rtype][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
46:
How can I assign a mask (integer) field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Integer',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := ';;;float,grouping=,digits=0';
			EditValue := TObject(1000);
		end;
		with Add('Integer-Grouping',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := ';;;float,decimal=,digits=0,select=1';
			EditValue := TObject(1000);
		end;
		with Add('Integer-In-Range',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := '{0,2050}';
			EditValue := TObject(1000);
		end;
	end;
	Select(Nil,Nil,Nil);
end
45:
How can I assign a mask (integer) field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Integer[id=10][edittype=0x02][edit=1000][mask=;;;float,grouping=,digits=0][editwidth=-128],Integer-Grouping[id=20][edittype=0x02' + 
	'][edit=1,000][mask=;;;float,decimal=,digits=0,select=1][editwidth=-128],Integer-In-Range[id=30][edittype=0x02][edit=1000][mask={' + 
	'0,2050}][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
44:
How can I assign a mask field to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Mask',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditMask;
			EditWidth := -128;
			EditMask := ';;;float,select=1';
			EditValue := TObject(1000);
		end;
	end;
	Select(Nil,Nil,Nil);
end
43:
How can I assign a mask field to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Text-Box[id=10][edittype=0x02][edit=1,000][mask=;;;float,select=1][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
42:
How can I assign an edit / text-box to the item (method 2)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Mask',Nil,Nil) do
		begin
			AllowEdit := EXCONTEXTMENULib.AllowEditEnum.exItemEditText;
			EditValue := 'this is a text';
			EditWidth := -128;
		end;
	end;
	Select(Nil,Nil,Nil);
end
41:
How can I assign an edit / text-box to the item (method 1)

// EditChange event - Occurs when the user alters the item's text box field.
procedure TWinForm1.AxExContextMenu1_EditChange(sender: System.Object; e: AxEXCONTEXTMENULib._IExContextMenuEvents_EditChangeEvent);
begin
	with AxExContextMenu1 do
	begin
		OutputDebugString( e.itm );
	end
end;

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := 'Text-Box[edit=this is a text][editwidth=-128]';
	Select(Nil,Nil,Nil);
end
40:
How can I display a tab into the context menu (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelBorderColor,$f0f0f0);
	with Items do
	begin
		ToString := '[id=0][group=0x0103][itemspad=4,4,4,4]([id=-10][group=0x03](),[id=0][bg=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=-100' + 
	']))';
		with item[TObject(-10)].Items do
		begin
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
			with Add('New Page',Nil,Nil) do
			begin
				ToString := '[typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' + 
	'roup=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))';
				Caption := 'Page<off -5><font ;5><b>1</b></font></off>';
				with Items do
				begin
					Add('add here fields for page 1',Nil,Nil).Enabled := False;
				end;
			end;
			with Add('New Page',Nil,Nil) do
			begin
				ToString := '[typ=2][chk=0][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16][g' + 
	'roup=0x03][tab=-100][pad=2,0,2,0]([id=50][group=0x03]([]))';
				Caption := 'Page<off -5><font ;5><b>2</b></font></off>';
				with Items do
				begin
					Add('add here fields for page 2',Nil,Nil).Enabled := False;
				end;
			end;
			Add('',TObject(0),TObject(0)).Padding := '8,0,0,0';
		end;
	end;
	Select(Nil,Nil,Nil);
end
39:
How can I add check-buttons to items, without showing the check-box (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Check 1',Nil,Nil) do
				begin
					Check := True;
					Checked := True;
					ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
				end;
				with Add('Check 2',Nil,Nil) do
				begin
					Check := True;
					ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
				end;
				with Add('Check 3',Nil,Nil) do
				begin
					Check := True;
					Checked := True;
					ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
				end;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
38:
How can I add check-buttons to items, without showing the check-box (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := '[group=0x3](Check 1[chk=1][show=1],Check 2[chk=0][show=1],Check 3[chk=1][show=1])';
	Select(Nil,Nil,Nil);
end
37:
How can I add radio buttons to items, without showing the radio-buttons (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Radio 1',Nil,TObject(1000)) do
				begin
					ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1001)) do
				begin
					ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1003)) do
				begin
					ShowCheckedAsSelected := EXCONTEXTMENULib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight;
					Radio := True;
					RadioGroup := 100;
				end;
				item[TObject(1000)].Checked := True;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
36:
How can I add radio buttons to items, without showing the radio-buttons (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := '[group=0x3](Radio 1[rad=1][show=1][grp=100][id=1000],Radio 2[rad=0][show=1][grp=100][id=1001],Radio 2[rad=0][show=1][grp=100][id' + 
	'=1002])';
	Select(Nil,Nil,Nil);
end
35:
How can I add check-buttons to items (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Check 1',Nil,Nil) do
				begin
					Check := True;
					Checked := True;
				end;
				Add('Check 2',Nil,Nil).Check := True;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
34:
How can I add check-buttons to items (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := '[group=0x3](Check 1[chk=1],Check 2[chk=0])';
	Select(Nil,Nil,Nil);
end
33:
How can I add radio buttons to items (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup;
			with Items do
			begin
				with Add('Radio 1',Nil,TObject(1000)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1001)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				with Add('Radio 2',Nil,TObject(1003)) do
				begin
					Radio := True;
					RadioGroup := 100;
				end;
				item[TObject(1000)].Checked := True;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
32:
How can I add radio buttons to items (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	ToString := '[group=0x1](Radio 1[rad=1][grp=100][id=1000],Radio 2[rad=0][grp=100][id=1001],Radio 2[rad=0][grp=100][id=1002])';
	Select(Nil,Nil,Nil);
end
31:
How can I change the selection/highlighting color

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	SelBackColor := Color.FromArgb(0,0,0);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelBorderColor,$80);
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuHotForeColor,$ffffff);
	ToString := '[group=3](Item 1[chk],Item 2[chk])';
	Select(Nil,Nil,Nil);
end
30:
How can I prevent showing/hide the border on the selected/highlighted item

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelBorderColor,SelBackColor);
	ToString := 'Item 1,Item 2';
	Select(Nil,Nil,Nil);
end
29:
How can I display a tab into the context menu (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	set_Background(EXCONTEXTMENULib.BackgroundPartEnum.exMenuSelBorderColor,$f0f0f0);
	ToString := '[id=10][group=0x0103][itemspad=4,4,4,4]([id=20][group=0x03]([id=30][pad=8,0,0,0],Page<off -5><font ;5><b>1</b></font></off>[id=4' + 
	'0][typ=2][chk=1][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=16]' + 
	'[group=0x03][tab=9000][pad=2,0,2,0]([id=50][group=0x03](add here fields for page 1[dis])),Page<off -5><font ;5><b>2</b></font></' + 
	'off>[id=120][typ=2][spchk=-1][show=1][grp=10][bghot=RGB(255,255,255)][bgsel=RGB(240,240,240)][bgselhot=RGB(240,240,240)][height=' + 
	'16][group=0x03][tab=9000][pad=2,0,2,0]([id=130][group=0x03](add here fields for page 2[dis])),[id=180][pad=8,0,0,0]),[id=190][bg' + 
	'=RGB(240,240,240)][group=0x03][itemspad=4,4,4,4]([id=9000]))';
	Select(Nil,Nil,Nil);
end
28:
How do I prevent highlighting the item (method 2.b)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('No highlight',Nil,Nil).Enabled := False;
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
27:
How do I prevent highlighting the item (method 2.a)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('No highlight',TObject(2),Nil) do
		begin
			Items.Add('',Nil,Nil);
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
		end;
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
26:
How do I prevent highlighting the item (method 1.b)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Items.ToString := 'No highlight[dis],Item 2,Item 3';
	Select(Nil,Nil,Nil);
end
25:
How do I prevent highlighting the item (method 1.a)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Items.ToString := 'No highlight[group=0x3][arrow=0]([]),Item 2,Item 3';
	Select(Nil,Nil,Nil);
end
24:
How can I can I assign pictures or images for the item (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	set_HTMLPicture('pic2','c:\exontrol\images\auction.gif');
	with Items do
	begin
		Add('Item',Nil,Nil).HTMLImage := 'pic1';
		Add('Item',Nil,Nil).HTMLImage := 'pic2';
		Add('',TObject(1),Nil);
		Add('Item <img>pic1</img>',Nil,Nil);
		Add('Item <img>pic2</img>',Nil,Nil);
		Add('',TObject(1),Nil);
		Add('<img>pic1</img> Item <img>pic2</img>',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
23:
How can I can I assign pictures or images for the item (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	set_HTMLPicture('pic1','c:\exontrol\images\zipdisk.gif');
	set_HTMLPicture('pic2','c:\exontrol\images\auction.gif');
	ToString := 'Item[himg=pic1],Item[himg=pic2],[sep],Item <img>pic1</img>,Item <img>pic2</img>,[sep],<img>pic1</img> Item <img>pic2</img>';
	Select(Nil,Nil,Nil);
end
22:
How can I can I assign icons for the item (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 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=');
	with Items do
	begin
		Add('Item',Nil,Nil).Image := 1;
		Add('Item',Nil,Nil).Image := 2;
		Add('',TObject(1),Nil);
		Add('Item <img>1</img>',Nil,Nil);
		Add('Item <img>2</img>',Nil,Nil);
		Add('',TObject(1),Nil);
		Add('Item <img>1</img>',Nil,Nil).Image := 1;
	end;
	Select(Nil,Nil,Nil);
end
21:
How can I can I assign icons for the item (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 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.ToString := 'Item[img=1],Item[img=2],[sep],Item <img>1</img>,Item <img>2</img>,[sep],Item <img>1</img>[img=1]';
	Select(Nil,Nil,Nil);
end
20:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		Padding := '2,2,2,2';
		BackColor := $1000000;
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
19:
How can I change the visual appearance / background color (EBN) for a collection of items/group (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Items.ToString := '[itemsbg=0x1000000][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)';
	Select(Nil,Nil,Nil);
end
18:
How can I change the background color for a collection of items/group (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Padding := '2,2,2,2';
		BackColor := $ff;
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
17:
How can I change the background color for a collection of items/group (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Items.ToString := '[itemsbg=RGB(255,0,0)][itemspad=2,2,2,2][group=0x103](Item 1,Item 2,Item 3)';
	Select(Nil,Nil,Nil);
end
16:
How can I change the visual appearance / background color (EBN) for a specified item (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil).BackColor := $1000000;
		Add('Item 3',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
15:
How can I change the visual appearance / background color (EBN) for a specified item (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Items.ToString := 'Item 1,Item 2[bg=0x1000000],Item 3';
	Select(Nil,Nil,Nil);
end
14:
How can I change the background color for a specified item (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil).BackColor := $ff;
		Add('Item 3',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
13:
How can I change the background color for a specified item (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Items.ToString := 'Item 1,Item 2[bg=RGB(255,0,0)],Item 3';
	Select(Nil,Nil,Nil);
end
12:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('Popup',TObject(2),Nil).Items do
		begin
			Add('Item 1',Nil,Nil);
			Add('Item 2',Nil,Nil);
			Add('Item 3',Nil,Nil);
		end;
	end;
	Select(Nil,Nil,Nil);
end
11:
How do I add a popup or a sub-menu so it show when cursor hovers it (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Items.ToString := 'Popup(Item 1,Item 2,Item 3)';
	Select(Nil,Nil,Nil);
end
10:
How can I arrange the items by grouping (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
			with Items do
			begin
				with Add('Horizontal',TObject(2),Nil) do
				begin
					GroupPopup := EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup;
					with Items do
					begin
						Add('Sub-Item <b>A</b>',Nil,Nil);
						Add('Sub-Item <b>B</b>',Nil,Nil);
						Add('Sub-Item <b>C</b>',Nil,Nil);
					end;
				end;
				Add('',Nil,Nil).CaptionWidth := 16;
				with Add('Vertical',TObject(2),Nil) do
				begin
					Alignment := EXCONTEXTMENULib.AlignmentEnum.exCenter;
					GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopupVertical) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
					with Items do
					begin
						Add('Sub-Item <b>A</b>',Nil,Nil);
						Add('Sub-Item <b>B</b>',Nil,Nil);
						Add('Sub-Item <b>C</b>',Nil,Nil);
					end;
				end;
				Add('',Nil,Nil).CaptionWidth := 16;
				with Add('Popup',TObject(2),Nil) do
				begin
					with Items do
					begin
						Add('Sub-Item <b>A</b>',Nil,Nil);
						Add('Sub-Item <b>B</b>',Nil,Nil);
						Add('Sub-Item <b>C</b>',Nil,Nil);
					end;
				end;
			end;
		end;
	end;
	Select(Nil,Nil,Nil);
end
9:
How can I arrange the items by grouping (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Items.ToString := '[group=0x03](Horizontal[group=0x01](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Vertical[group=0x01' + 
	'01][align=1](Sub-Item <b>A</b>,Sub-Item <b>B</b>,Sub-Item <b>C</b>),[captionwidth=16],Popup(Sub-Item <b>A</b>,Sub-Item <b>B</b>,' + 
	'Sub-Item <b>C</b>),[captionwidth=160])';
	Select(Nil,Nil,Nil);
end
8:
How can I arrange some items vertically, and some horizontally (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('1',Nil,Nil);
				Add('2',Nil,Nil);
				Add('3',Nil,Nil);
			end;
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
		end;
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('4',Nil,Nil);
				Add('5',Nil,Nil);
				Add('6',Nil,Nil);
			end;
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
		end;
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('7',Nil,Nil);
				Add('8',Nil,Nil);
				Add('9',Nil,Nil);
			end;
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
		end;
	end;
	Select(Nil,Nil,Nil);
end
7:
How can I arrange some items vertically, and some horizontally (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Items.ToString := '[group=3](1,2,3),[group=3](4,5,6),[group=3](7,8,9)';
	Select(Nil,Nil,Nil);
end
6:
How can I assign multiple-lines to an item (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('Item 1',Nil,Nil).Caption := 'Item <br><c><b>1';
				Add('Item 2',Nil,Nil).Caption := 'Item <br><c><b>2';
				Add('Item 3',Nil,Nil).Caption := 'Item <br><c><b>3';
			end;
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
		end;
	end;
	Select(Nil,Nil,Nil);
end
5:
How can I assign multiple-lines to an item (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Items.ToString := '[group=3](Item <br><c><b>1,Item <br><c><b>2,Item <br><c><b>3)';
	Select(Nil,Nil,Nil);
end
4:
How can I add new items arranged horizontally to the context menu (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		with Add('',TObject(2),Nil) do
		begin
			with Items do
			begin
				Add('Item 1',Nil,Nil);
				Add('Item 2',Nil,Nil);
				Add('Item 3',Nil,Nil);
			end;
			GroupPopup := Integer(EXCONTEXTMENULib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXCONTEXTMENULib.GroupPopupEnum.exGroupPopup);
		end;
	end;
	Select(Nil,Nil,Nil);
end
3:
How can I add new items arranged horizontally to the context menu (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Items.ToString := '[group=3](Item 1,Item 2,Item 3)';
	Select(Nil,Nil,Nil);
end
2:
How can I add new items to the context menu (method 2)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	with Items do
	begin
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
	end;
	Select(Nil,Nil,Nil);
end
1:
How can I add new items to the context menu (method 1)

AxExContextMenu1 := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu.1')) as EXCONTEXTMENULib.ExContextMenu);
with AxExContextMenu1 do
begin
	Items.ToString := 'Item 1,Item 2,Item 3';
	Select(Nil,Nil,Nil);
end