87:
How can I display the control directly on the screen

with AxRadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	set_HTMLPicture('arrow','stock_mail_filters_apply.png');
	set_HTMLPicture('settings','settings.png');
	set_HTMLPicture('hard','download.png');
	set_HTMLPicture('favorites','favorites.png');
	set_HTMLPicture('remove','remove.png');
	set_HTMLPicture('refresh','refresh.png');
	set_HTMLPicture('synchronize','synchronize.png');
	set_HTMLPicture('preview','preview.png');
	set_HTMLPicture('search','search.png');
	ToString := 'Save[img=hard],Settings[img=settings][browse=2][custom=16],Favorites[img=favorites](1,2),Refresh[img=refresh],<c>Quit<br><c>Appl' + 
	'ication[img=remove],Synchronize[img=synchronize],Search[img=search](1,2),Preview[img=preview](1,2)';
	Expanded := True;
	set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated270);
	BackgroundPicture := 'Background\frontc.png';
	(GetOcx() as EXRADIALMENULib.RadialMenu).SubItemsBackColor := $ffffffff;
	SubItemsSize := '18 * dpi';
	EndUpdate();
	Float := True;
end
86:
How do I add a radial-slider control

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	InflateCustom := InflateItems;
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3);
	with Items do
	begin
		with Add('Slider',Nil,Nil) do
		begin
			BrowseType := EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom;
			BrowseCustomType := EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider;
			BrowseCustom[EXRADIALMENULib.RadialCustomPropertyEnum.exRadialCustomSliderValue] := TObject(35);
		end;
	end;
	BrowseItem := (Items.Item['Slider'] as EXRADIALMENULib.Item);
end
85:
How can I display a slider directly on the radial menu, with no items...

with AxRadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	Expanded := True;
	InflateCustom := '-4 * dpi';
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,$0);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,128);
	CustomPicture := 'Background\frame.png';
	with Root do
	begin
		BrowseType := EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom;
		BrowseCustomType := EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider;
		BrowseCustom[EXRADIALMENULib.RadialCustomPropertyEnum.exRadialCustomSliderValue] := TObject(25);
	end;
	Refresh();
	EndUpdate();
end
84:
How can I programatically browses for a new item

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	InflateCustom := InflateItems;
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3);
	with Items do
	begin
		with Add('Slider',Nil,Nil) do
		begin
			BrowseType := EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom;
			BrowseCustomType := EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider;
		end;
	end;
	BrowseItem := (Items.Item['Slider'] as EXRADIALMENULib.Item);
end
83:
How can I display the items rotated

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	set_HTMLPicture('arrow','arrow.png');
	Expanded := True;
	Items.ToString := 'Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)';
	set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated);
	set_DisplayCenter(EXRADIALMENULib.RadialItemsEnum.exRadialItems,0.05);
	EndUpdate();
end
82:
Is it possible to display the arrow into the items section, and how I can change the default position

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	set_HTMLPicture('arrow','arrowu.png');
	DisplayArrow := EXRADIALMENULib.RadialItemsEnum.exRadialItems;
	set_DisplayCenterArrow(EXRADIALMENULib.RadialItemsEnum.exRadialItems,0);
	Expanded := True;
	Items.ToString := 'Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)';
	EndUpdate();
end
81:
Can I display the arrow into the items section

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	DisplayArrow := EXRADIALMENULib.RadialItemsEnum.exRadialItems;
	Expanded := True;
	Items.ToString := 'Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)';
	EndUpdate();
end
80:
How can I know if the cursor is hovering the center ring ( parent zone )
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxRadialMenu1_MouseMoveEvent(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent);
begin
	with AxRadialMenu1 do
	begin
		OutputDebugString( 'ParentOnPoint ' );
		OutputDebugString( get_ParentOnPoint(-1,-1) );
	end
end;

with AxRadialMenu1 do
begin
	Expanded := True;
end
79:
How can I specify the size to display the images/pictures into the items

with AxRadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	set_ItemsImageHeight(EXRADIALMENULib.RadialItemsEnum.exRadialItems,'64*dpi');
	set_ItemsImageWidth(EXRADIALMENULib.RadialItemsEnum.exRadialItems,'64*dpi');
	with Items do
	begin
		Add('','color_line.png',Nil);
		Add('','color_fill.png',Nil);
		Add('','format_font_size_less.png',Nil);
		Add('','edit_undo.png',Nil);
		Add('','edit_redo.png',Nil);
		Add('','edit_copy.png',Nil);
		Add('','fileview_text.png',Nil);
		Add('','checkmark_korganizer.png',Nil);
	end;
	EndUpdate();
end
78:
By default, the parent image is 32-pixels wide. Can I display it larger

with AxRadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	set_HTMLPicture('logo','settings.png');
	ParentSize := '96 * dpi';
	set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'64*dpi');
	set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'64*dpi');
	set_ParentCaption(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'<font ;14><c>System Settings</font><br><c>Surround');
	EndUpdate();
end
77:
Is it possible to specify where to display the item's caption

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	Items.ToString := 'Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)';
	Items.Item[TObject(0)].BackColor[EXRADIALMENULib.RadialItemsEnum.exRadialFullItems] := $f0f0f0;
	set_DisplayCenter(EXRADIALMENULib.RadialItemsEnum.exRadialItems,0.85);
	EndUpdate();
end
76:
How can I disable browsing the items, or prevent displaying its children
with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	AllowBrowseItem := False;
	Items.ToString := 'Item 1(1,2),Item 2(1,2),Item 3(1,2),Item 4(1,2),Item 5(1,2),Item 6(1,2),Item 7(1,2),Item 8(1,2)';
	EndUpdate();
end
75:
How do I get the item from the point
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxRadialMenu1_MouseMoveEvent(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent);
begin
	with AxRadialMenu1 do
	begin
		OutputDebugString( 'Full-Item: ' );
		OutputDebugString( get_ItemFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1)get_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionBackColor) );
		OutputDebugString( 'Item: ' );
		OutputDebugString( get_ItemFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialItems,-1,-1)get_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionBackColor) );
		OutputDebugString( 'SubItem: ' );
		OutputDebugString( get_ItemFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,-1,-1)get_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionForeColor) );
	end
end;

with AxRadialMenu1 do
begin
	Expanded := True;
	Items.ToString := 'Item 1[scap=sub item 1],Item 2[scap=sub item 2],Item 3[scap=sub item 3],Item 4[scap=sub item 4],Item 5[scap=sub item 5],Item 6[s' + 
	'cap=sub item 6],Item 7[scap=sub item 7],Item 8[scap=sub item 8]';
end
74:
How do I get the index of the pie from the point
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxRadialMenu1_MouseMoveEvent(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent);
begin
	with AxRadialMenu1 do
	begin
		OutputDebugString( 'Full-Index: ' );
		OutputDebugString( get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1) );
		OutputDebugString( 'Index: ' );
		OutputDebugString( get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialItems,-1,-1) );
		OutputDebugString( 'Sub-Index: ' );
		OutputDebugString( get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,-1,-1) );
	end
end;

with AxRadialMenu1 do
begin
	Expanded := True;
end
73:
How can I select an item

// SelectItem event - Notifies once the user selects an item.
procedure TWinForm1.AxRadialMenu1_SelectItem(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent);
begin
	// SelectedIndex(3) = Item.Index
end;

with AxRadialMenu1 do
begin
	BeginUpdate();
	set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32);
	set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128);
	set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,$0);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,$ffffffff);
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0);
	EndUpdate();
end
72:
How can I use the sub-items zone only

with AxRadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	set_HTMLPicture('logo','settings.png');
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,SubItemsBackColor);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,$ffffffff);
	SubItemsSize := '64 * dpi';
	ParentSize := 'value - 66 * dpi';
	set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'64*dpi');
	set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'64*dpi');
	set_ParentCaption(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'<font ;14><c>System Settings</font><br><c>Surround');
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,$8000000d);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,128);
	ItemsBackColor := SubItemsBackColor;
	with Items do
	begin
		Add('','color_line.png',TObject(2));
		Add('','color_fill.png',TObject(2));
		Add('','format_font_size_less.png',TObject(2));
		Add('','edit_undo.png',TObject(2));
		Add('','edit_redo.png',TObject(2));
		Add('','edit_copy.png',TObject(2));
		Add('','fileview_text.png',TObject(2));
		Add('','checkmark_korganizer.png',TObject(2));
	end;
	EndUpdate();
end
71:
Is it possible to display all items with a different rotation angle

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	DisplayAngle := -7.5;
	DisplayArrow := EXRADIALMENULib.RadialItemsEnum.exRadialItems;
	set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated);
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	ParentSize := '48 * dpi';
	ParentPicture := 'Background\frontb.png';
	ArrowImage := 'arrow.png';
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	InflateParentPicture := '72 * dpi';
	EndUpdate();
end
70:
How can I programatically advance / browse for the parent item (method 2)
// RClick event - Occurs once the user right clicks the control.
procedure TWinForm1.AxRadialMenu1_RClick(sender: System.Object; e: System.EventArgs);
begin
	with AxRadialMenu1 do
	begin
		BrowseItem := (BrowseItem.Parent as Object);
	end
end;

with AxRadialMenu1 do
begin
	Expanded := True;
	DisplayArrow := EXRADIALMENULib.RadialItemsEnum.exRadialItems;
	with Items do
	begin
		with Add('Volume',Nil,Nil) do
		begin
			Caption[EXRADIALMENULib.RadialItemsEnum.exRadialSubItems] := 'slider';
			BrowseType := EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom;
			BrowseCustomType := EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider;
		end;
		with Add('Item',Nil,Nil).Items do
		begin
			Add('Child 1',Nil,Nil);
			Add('Child 2',Nil,Nil);
		end;
	end;
end
69:
How can I programatically advance / browse for the parent item (method 1)
// RClick event - Occurs once the user right clicks the control.
procedure TWinForm1.AxRadialMenu1_RClick(sender: System.Object; e: System.EventArgs);
begin
	with AxRadialMenu1 do
	begin
		GoBack();
	end
end;

with AxRadialMenu1 do
begin
	Expanded := True;
	DisplayArrow := EXRADIALMENULib.RadialItemsEnum.exRadialItems;
	with Items do
	begin
		with Add('Volume',Nil,Nil) do
		begin
			Caption[EXRADIALMENULib.RadialItemsEnum.exRadialSubItems] := 'slider';
			BrowseType := EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom;
			BrowseCustomType := EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider;
		end;
		with Add('Item',Nil,Nil).Items do
		begin
			Add('Child 1',Nil,Nil);
			Add('Child 2',Nil,Nil);
		end;
	end;
end
68:
Can I display the pointer with a different angle

with AxRadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	PointerPicture := 'pointer.png';
	PointerPictureY := 'y + (height-pheight)/2- 21*dpi';
	PointerPictureX := 'x + (width-pwidth)/2 + 1 * dpi';
	AllowHotPointer := False;
	ParentSize := '36*dpi';
	set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'48*dpi');
	set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'48*dpi');
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,$ffffffff);
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	PointerAngle := 12;
	EndUpdate();
end
67:
How can I use the pointer (select sample)

// SelectItem event - Notifies once the user selects an item.
procedure TWinForm1.AxRadialMenu1_SelectItem(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent);
begin
	// PointerIndex = Item.Index
	with AxRadialMenu1 do
	begin
		set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,PointerIndex);
	end
end;

with AxRadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	PointerPicture := 'pointer.png';
	set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialItems,32);
	set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialSubItems,128);
	PointerPictureY := 'y + (height-pheight)/2- 21*dpi';
	PointerPictureX := 'x + (width-pwidth)/2 + 1 * dpi';
	AllowHotPointer := False;
	set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,$0);
	ParentSize := '36*dpi';
	set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'48*dpi');
	set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'48*dpi');
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,$ffffffff);
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	PointerIndex := 0;
	set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,PointerIndex);
	EndUpdate();
end
66:
How can I use the pointer (hot sample)

with AxRadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	PointerPicture := 'pointer.png';
	PointerIndex := -1;
	PointerPictureY := 'y + (height-pheight)/2- 21*dpi';
	PointerPictureX := 'x + (width-pwidth)/2 + 1 * dpi';
	AllowHotPointer := True;
	set_SelBackAlpha(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,128);
	set_SelForeColor(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,$0);
	ParentSize := '36*dpi';
	set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'48*dpi');
	set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'48*dpi');
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,-1);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,32);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,$ffffffff);
	Expanded := True;
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	EndUpdate();
end
65:
Is it possible to apply the control's background picture on the parent zone too

with AxRadialMenu1 do
begin
	BeginUpdate();
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	BackgroundPicture := 'Background\fronte.png';
	ForeColor := Color.FromArgb(255,255,255);
	Expanded := True;
	ParentSize := '48 * dpi';
	set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated);
	set_DisplayCenter(EXRADIALMENULib.RadialItemsEnum.exRadialItems,0.23);
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	(GetOcx() as EXRADIALMENULib.RadialMenu).ParentBackColor := $ffffffff;
	ExcludeParentFromItems := True;
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,$0);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,128);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,128);
	EndUpdate();
end
64:
Can I display the picture on the parent zone, a bit larger

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	ParentSize := '48 * dpi';
	ParentPicture := 'Background\frontb.png';
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	InflateParentPicture := '64 * dpi';
	EndUpdate();
end
63:
Is it possible to assign a different background picture when displaying a slider/custom data

with AxRadialMenu1 do
begin
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	DisplayArrow := EXRADIALMENULib.RadialItemsEnum.exRadialItems;
	Items.ToString := '[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]';
	InflateRadialMenu := '-4*dpi';
	InflateCustom := '-4*dpi';
	CustomPicture := 'Background\frontb.png';
	Items.ToString := 'Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	with Items.Item['Item 2'] do
	begin
		BrowseType := EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom;
		BrowseCustomType := EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider;
	end;
	BrowseItem := (Items.Item['Item 2'] as EXRADIALMENULib.Item);
end
62:
How can I customize the custom part of the control, the inside ring/circle

with AxRadialMenu1 do
begin
	Expanded := True;
	DisplayArrow := EXRADIALMENULib.RadialItemsEnum.exRadialItems;
	Items.ToString := '[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]';
	InflateRadialMenu := '-4*dpi';
	InflateCustom := '-4*dpi';
	CustomBackColor := Color.FromArgb(128,128,128);
	CustomBackAlpha := 128;
	Items.ToString := 'Item 1(Sub Child 1,Sub Child 2),Item 2[scap=slider],Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	with Items.Item['Item 2'] do
	begin
		BrowseType := EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom;
		BrowseCustomType := EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider;
	end;
	BrowseItem := (Items.Item['Item 2'] as EXRADIALMENULib.Item);
end
61:
How do I prevent expanding / collapsing the radial menu
with AxRadialMenu1 do
begin
	AllowToggleExpand := False;
	Items.ToString := 'Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	with Items.Item['Item 2'] do
	begin
		BrowseType := EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom;
		BrowseCustomType := EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider;
	end;
end
60:
Is it possible to change the parent's picture/image when expanding collapsing the radial menu

// BrowseItem event - Notifies once the user browses for a new item.
procedure TWinForm1.AxRadialMenu1_BrowseItem(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_BrowseItemEvent);
begin
	with AxRadialMenu1 do
	begin
		OutputDebugString( 'Current State: ' );
		OutputDebugString( State );
	end
end;

// SelectParent event - Occurs once the user clicks the parent of the item.
procedure TWinForm1.AxRadialMenu1_SelectParent(sender: System.Object; e: System.EventArgs);
begin
	with AxRadialMenu1 do
	begin
		OutputDebugString( 'Current State: ' );
		OutputDebugString( State );
	end
end;

with AxRadialMenu1 do
begin
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	Items.ToString := 'Item 1(Sub Child 1,Sub Child 2),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
	with Items.Item['Item 2'] do
	begin
		BrowseType := EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom;
		BrowseCustomType := EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider;
	end;
	set_ParentImage(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuCollapsed,'format_font_size_less.png');
	set_ParentImage(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuExpandedNoItems,'fileview_text.png');
	set_ParentImage(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuExpandedRootItem,'edit_undo.png');
end
59:
Is it possible to assign a different picture on the parent zone (center ring)

with AxRadialMenu1 do
begin
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	ParentSize := '48 * dpi';
	ParentPicture := 'Background\frontb.png';
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
58:
Is it possible to assign a different picture on the items zone (inner ring)

with AxRadialMenu1 do
begin
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	ItemsPicture := 'Background\frontc.png';
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
57:
How can I change the control's background picture

with AxRadialMenu1 do
begin
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	BackgroundPicture := 'Background\fronta.png';
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
56:
How can I hide the line being shown around the item form the cursor

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0);
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
55:
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (items, inner ring)

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsChildren,$0);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialItemsChildren,64);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialItemsChildren,-1);
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
54:
Is it possible to highlight items with children, with a different background color, for those arrow picture is shown (subitems, outer ring)

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsChildren,$0);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsChildren,64);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsChildren,-1);
	Items.ToString := 'Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8';
end
53:
Is it possible to highlight the entire item, when cursor hovers it

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,$0);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,64);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1);
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
end
52:
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,3);
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
end
51:
How can I change the border around the subitems zone, when cursor hovers it ( outer ring )

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,3);
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
end
50:
How can I change the border around the items zone, when cursor hovers it ( inner ring )

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotItem,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotItem,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotItem,3);
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
end
49:
How can I change the border around the parent zone, when cursor hovers it ( center ring )

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotParent,3);
end
48:
How can I change the border around the items zone ( inner ring )

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialItemsBorder,3);
end
47:
How can I change the border around the parent zone ( center ring )

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,3);
end
46:
How can I change the grid lines in the items zone ( inner ring )

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,3);
end
45:
How can I change the border around the slider / custom part of the control

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	InflateCustom := InflateItems;
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialCustomBorder,3);
	with Items do
	begin
		with Add('Slider',Nil,Nil) do
		begin
			BrowseType := EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom;
			BrowseCustomType := EXRADIALMENULib.RadialCustomTypeEnum.exRadialCustomSlider;
		end;
	end;
	BrowseItem := (Items.Item['Slider'] as EXRADIALMENULib.Item);
end
44:
How can I change the grid lines in the subitems zone ( outer ring )

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsGridLines,3);
end
43:
How can I change the border around the subitems (exRadialSubItemsBorder)

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialSubItemsBorder,3);
end
42:
How can I change the border around the radial menu (exRadialBorder)

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	InflateItems := '-8*dpi';
	ItemsBackColor := Color.FromArgb(240,240,240);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialBorder,$0);
	set_RadialLineStyle(EXRADIALMENULib.RadialLineEnum.exRadialBorder,EXRADIALMENULib.RadialLineStyleEnum.exRadialLineDot);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialBorder,3);
end
41:
How can I customize the parent part of the control, the center ring/circle

with AxRadialMenu1 do
begin
	Expanded := True;
	Items.ToString := 'Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]';
	ParentSize := '48 * dpi';
	set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'78 * dpi');
	set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'78 * dpi');
	ParentBackColor := Color.FromArgb(0,255,0);
	ParentBackAlpha := 128;
	ExcludeParentFromItems := True;
end
40:
How can I prevent showing the arrow in the outer ring

with AxRadialMenu1 do
begin
	Expanded := True;
	ArrowImage := '';
	Items.ToString := 'Child(SubChild)';
end
39:
Is it possible to change the default arrow, that items with children display (method 2)

with AxRadialMenu1 do
begin
	Expanded := True;
	set_HTMLPicture('pic1','gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiKHJJEIJ' + 
	'ULBHMYYAqjMAURiCKJAAogA6lA4EGgAeJnEC2ALzdAMICWf6HMS6HYCbJyvF6eSfIC8CqJJ5zI6gLbuA7ERhAHgNFRGKZHMCzDgGNDukqWYYAZocSIIYiEFiHAJsRygX' + 
	'CccABcTDIBMZByDBAOwEFDkVACICOOCAGCJAQgI54IaYrlesAwBQGGpgMEKcpDGoqB6RSpriIAJJFJxEVxCMCCgI');
	ArrowImage := 'pic1';
	Items.ToString := 'Child(SubChild)';
end
38:
Is it possible to change the default arrow, that items with children display (method 1)

with AxRadialMenu1 do
begin
	set_HTMLPicture('arrow','gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERAJzKRHIQAVzODjpjpnIJNIMKWKPBb8MIFiIJOBILJzhQLCdHCYBACaTgYiJfJJEIJ' + 
	'ULBHdrOYIJQAwCBEaK1FQbeaoYwGVjLWR0EgJRAEBpICwPf7BY4cQgdAYAcCjUCWfD0G6rHrlHziPTcPrEUjuY5zZpHHgdZ41DYxVTSYJSaojXT0PrTVZBar+P5aaoWT' + 
	'8KfiWbIBZQ1ErVPbDPyYiIAJJFJxEVxCMCCgIA==');
	Expanded := True;
	Items.ToString := 'Child(SubChild)';
end
37:
How can I change the logo image

with AxRadialMenu1 do
begin
	set_HTMLPicture('logo','C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png');
end
36:
How can I customize the items part of the control, the inside ring/circle

with AxRadialMenu1 do
begin
	set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated);
	Expanded := True;
	Items.ToString := 'Item 1[scap=Item 1],Item 2[scap=Item 2],Item 3[scap=Item 3],Item 4[scap=Item 4]';
	InflateRadialMenu := '-4*dpi';
	InflateItems := '-4*dpi';
	ItemsBackColor := Color.FromArgb(0,255,0);
	ItemsBackAlpha := 128;
end
35:
How can I customize the subitems part of the control, the outside ring/circle

with AxRadialMenu1 do
begin
	Expanded := True;
	Items.ToString := '[scap=Item 1],[scap=Item 2],[scap=Item 3],[scap=Item 4]';
	InflateRadialMenu := '-4*dpi';
	SubItemsSize := '48 * dpi';
	SubItemsBackColor := Color.FromArgb(0,255,0);
	SubItemsBackAlpha := 128;
end
34:
Can I expand/shrink the radial menu relative to its border/shadow

with AxRadialMenu1 do
begin
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
	InflateRadialMenu := '-6*dpi';
end
33:
Is it possible to remove/hive the control's shadow

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
end
32:
How do I change the color of the control's shadow

with AxRadialMenu1 do
begin
	Expanded := True;
	ShadowColor := Color.FromArgb(255,0,0);
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
end
31:
How can I evaluate/format an expression using the control

with AxRadialMenu1 do
begin
	AllowToggleExpand := False;
	DisplayAngle := -66;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
	set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,FormatABC('`The number of items is: <b>` + value',Items.Count,Nil,Nil));
end
30:
Is it possible to display some extra captions on the control's background

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	MinVisibleCount := 6;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
	set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,'This is a caption to be displayed on the control''s background.');
	set_ExtraCaption('extra',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,'This is an extra caption to be displayed on the control''s background.');
	set_ExtraCaption('extra',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,TObject(2));
	set_ExtraCaption('extra',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionWordWrap,TObject(True));
	set_ExtraCaption('extralogo',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,'<img>logo:64</img>');
	set_ExtraCaption('extralogo',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,TObject(4));
	set_ExtraCaption('extralogo',EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,'width-twidth');
	EndUpdate();
end
29:
What events the control supports
// Event event - Notifies the application once the control fires an event.
procedure TWinForm1.AxRadialMenu1_Event(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_EventEvent);
begin
	with AxRadialMenu1 do
	begin
		OutputDebugString( get_EventParam(-2) );
	end
end;

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	Items.ToString := 'Item 1,Item 2,Item 3,Item 4';
	EndUpdate();
end
28:
How can I use/load images/pictures

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	set_HTMLPicture('relative','settings.png');
	set_HTMLPicture('absolute','C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\favorites.png');
	set_HTMLPicture('encoded','gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5' + 
	'yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLc' + 
	'AubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQ' + 
	'nWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8F' + 
	'IXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh' + 
	'+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ' + 
	'9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFG' + 
	'KwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/' + 
	'nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZoc' + 
	'wbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6' + 
	'IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABF' + 
	'hTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcE' + 
	'AMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGD' + 
	'MJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVR' + 
	'qiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8' + 
	'PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DF' + 
	'FwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgW' + 
	'QzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA=');
	BackgroundPicture := 'Background\frame.png';
	with Items do
	begin
		Add('Relative 1','relative',Nil);
		Add('Relative 1',Nil,Nil).Image[EXRADIALMENULib.RadialItemsEnum.exRadialItems] := 'settings.png';
		Add('Aboslute 1','absolute',Nil);
		Add('Aboslute 2','favorites.png',Nil);
		Add('Encoded 1','encoded',Nil);
		Add('Encoded 2',Nil,Nil).Image[EXRADIALMENULib.RadialItemsEnum.exRadialItems] := 'gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0iIEOZCJJUBEjBB8BBkRERBJwJBZOcKAZ2mB2AJ9aqCZkRDJ0IpYOhTN5mOh3MJyMoAO9JFxpNxrOZjMJwMouN5' + 
	'yM6bdw8DUKAjoJJEIJULCFYqXLpsChVCjHf4zTo7XZjXazUJQUgCWoNCqWYp+ZS2vDyEqSGz6UjUA4tRIkAysGyRC6fPogEyaCCjYI3Dw0YyETDiQbRA5TSJ+aQWUKLc' + 
	'AubrdNTaOi7XBYbRlO67brOXpzPrATrdOpmRZGFInHLJfo4GbnG7ncbeRjAHLHYYUeKhPQHEBlAynJ6fbRcXyxeQLTZsNZJEwTETnAAhEirGQBSIyOYZQhISAkARRChQ' + 
	'nWHQUGqUA0goTRbAYJpplAKIGm0WQ7DeVg0jARggksBJRkYBx/AiTp2nYdw/DuHQHjANpsjGT53jabprl0MwmhSAggjwEAvlWdY9Cieg7HobJYmWUYvgENBkgGcAdE8F' + 
	'IXBcYJ5SiAY4k8SJpBqUoQEkeg6DMNwACIUZfguVojCCORnBiCcmPmFhSimLBWkcRBjnGYxsAAMBKFaDRAGcTACgALYMnAMQ/h+bwdnqHwAHAUYHh+IAujaRpSm6dJHh' + 
	'+zJvj8M4tD+UJegaE5dm+Gw+DKYgcAOFBpmCHIXlQH5+DwCInGqAJijcI53kKBYCnaRwOnaYh9FkOooA6EpDFcF4tkOMYjh2BoNmMOgZkAVwzlSfwXFiLAGB+b5cECQZ' + 
	'9nucZgF8XoMAyXZGDoHQ2jSVZVBUXRdicYB0joDBtOAARVFUDQbCYW5ECAUzGjoMA0AQUQUFAUJfAcHZPjUAhSg0IwjGOBRtBuPZNFgYZykEKY6jAQ5lkKMwnimbwfFG' + 
	'KwAFYGBgGgUoljwIgoigK4pkGXRNA0ZAZGCYB4CgII9iCCB4GUSIHBwKoKg6I4dIqIQfEAKoFDQAJADgHBGEyOAMD2LYtjCW5tiiKQpEEHpdjsEIIAYMR3GcTpBAgCu/' + 
	'nQPh6hqHgvCiMJtH2K4U3aDYBhCCR1DUNZGlqQx9D0JApAjjgjgWAQoCUKJe40SgpWwOoFGYQxdFccZlHwKpsDaGxcFsNoamsboXAuMghDgfJlCeFY7EcSp5j2FJQZoc' + 
	'wbQUQxICYExYjOa43GwMhNlid2xmgbBoEAfJ8h2TBNE0WQ6DkOpuEWC4vj0DIbhOARzAeWZVACVYRA4e49BCBMAQtw9i7BSDIHY3A3AQd+NUHYbhug5GGEMdA7g9ATH6' + 
	'IMQY5hkAUB0AkOYRRpg0CYAQE4QAyAJB7CkdAgQsgIBCPAfI/Q0BvDWIMKgZBeAKX4BoSIWxbjwGsPEcY+BfC3Au6ZzQdhPj9EmKMfAZhwAmBwOcVAqhWDEFsK0bYABF' + 
	'hTG0Oce4IQ5ArEEEAEAgB2iuHaMYfQ+AagvDsDcG4AQACaB6B4Lguw/AdEaPUeoOQADZAoOQLoRhdCeG6PAfY/RIAJGCKEQYhxYB5GmcId4BxlDLGWHEdwqw5wwD6PcE' + 
	'AMwABeBeJ4P47gIB0C6McSYbgbguHsPdiYthrDYF+O8MolAuBMDEDYCQxhtC1FKNgeA6BDCCGOO4UwjRNigXsGYYQMwsBcC4IRiCdBxiIG8I4UQbxQAPAEAQOAcBmBGD' + 
	'MJEJAJAoTWDYPg+Y5ALDGDICgAgSRJDgDSPQcgRRihKE0HcGwYw8BkAQMEKAABag1DrKANAOw+AYBaLsLYDBNj+GCAEfg4paBpFOMccgKw9gZHKHQYI5A3iTkaEEMoVR' + 
	'qiKD6M4HIRwqtVAQJEGA+Q1gIE4HMAgQywhvFSEYEVOB6CJBaNUBEJA5C6BQAsEAZBhDeqoMYZ4nB8gUUavEEICABDuG8L0PY3wECIFEAimqrwjgsAsIMaY6QiA8A8M8' + 
	'PYTgKBFBwBwBwxAxAxAAMAZIkx3jgH4PkV4hR+AUH4HUNQARgDCsgIoJwcxCgxEM+IPIYw3D1BYGMFgbwegXBcK8AwchtjwCCEoVwFwBhABMDIconAlgWHsP8XYKA7DF' + 
	'FwAwOQfxmh6FPcEd4Ww6D/CqCMSICAMBjD6KYBAzBmjNF6HEew7BsjPCoFUNoTQTCTCKAAUAKAFDsDsDuu4sQODbDYDYJAkgCBKBSNIdINBLX1EgEoUt9xShMDHfAMgW' + 
	'QzCpCoGoMAYQwjhHqIwL4YRajyC8EgDw+hvjxE+BUNgPAgjmBkBsfpEQABJCKE4IgrghBgEEQEA=';
		Add('<c><img>relative</img><br><c>Relative 3',Nil,Nil);
		Add('<c>Relative 4<br><c><img>relative</img>','relative',Nil);
	end;
	EndUpdate();
end
27:
Does your control supports tooltips (method 2)

// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxRadialMenu1_MouseMoveEvent(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_MouseMoveEvent);
begin
	with AxRadialMenu1 do
	begin
		ShowToolTip(FormatABC('`Index of the pie from the cursor: ` + (value >= 0 ? value : `<fgcolor=808080>none` )',TObject(get_IndexFromPoint(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,-1,-1)),Nil,Nil),'Info',TObject(0),'8','8');
	end
end;

with AxRadialMenu1 do
begin
	BeginUpdate();
	DisplayAngle := -45;
	Expanded := True;
	with Items do
	begin
		ToString := 'Item 0';
		Add('Item 1',Nil,Nil);
		Add('Item 2',Nil,Nil);
	end;
	EndUpdate();
end
26:
Can I change the visual appearance of the control's tooltip

with AxRadialMenu1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXRADIALMENULib.BackgroundPartEnum.exToolTipAppearance,$1000000);
	DisplayAngle := -45;
	Expanded := True;
	with Items do
	begin
		ToString := 'Item 0[ttp=tooltip''s item][sttp=tooltip''s subitem]';
		Add('Item 1',Nil,Nil).Tooltip[EXRADIALMENULib.RadialItemsEnum.exRadialItems] := 'This is a bit of text that shown when user <b>hovers</b> the item';
		with Add('Item 2',Nil,Nil) do
		begin
			Tooltip[EXRADIALMENULib.RadialItemsEnum.exRadialItems] := 'This is a bit of text that shown when user hovers the item';
			Tooltip[EXRADIALMENULib.RadialItemsEnum.exRadialSubItems] := 'This is a bit of text that shown when user hovers the sub-item';
		end;
	end;
	EndUpdate();
end
25:
Does your control supports tooltips (method 1)

with AxRadialMenu1 do
begin
	DisplayAngle := -45;
	Expanded := True;
	with Items do
	begin
		ToString := 'Item 0[ttp=tooltip''s item][sttp=tooltip''s subitem]';
		Add('Item 1',Nil,Nil).Tooltip[EXRADIALMENULib.RadialItemsEnum.exRadialItems] := 'This is a bit of text that shown when user <b>hovers</b> the item';
		with Add('Item 2',Nil,Nil) do
		begin
			Tooltip[EXRADIALMENULib.RadialItemsEnum.exRadialItems] := 'This is a bit of text that shown when user hovers the item';
			Tooltip[EXRADIALMENULib.RadialItemsEnum.exRadialSubItems] := 'This is a bit of text that shown when user hovers the sub-item';
		end;
	end;
end
24:
How can I use/load icons

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons';
	Images('copy.ico');
	Images('C:\Program Files\Exontrol\ExRadialMenu\Sample\Images\Icons\dvd.ico');
	Images('gBJJgBggAAQAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUnOktd54mD/lp0f5wmz/Ns5f5qnj/NE/f5noT/M1FolGopmo9KpNLpxfqDvldTql' + 
	'Vq1XrFZrVbrldr1fjKPsT/ftlf72er0s71er/e72e1ut9ye90uz3vF3vN4ut8u1NsGBwWDwmFw2DUWJf9peb/UyXSj/Yq+Xj/Y7BX7/ZLDYL/ZTFYeeYrEf7LY2kZbHY' + 
	'ul1T/arTaT/Kq4Kb/G7IGz/cD5cD/Ne/f+H4XD4nF41UWvJxb0xq4Viqf66V6sf68WKvf69WSw7KzWL/Xy0WXg8T/X/l8/jbzcbb/MDAL/uanxcb7cb/Pv54PH/n9/z/' + 
	'qsY8BOWxq0LUtC2reuK8QWvcHL7B67HAeTem2er2n0fx9H+SEOv3AEQRDETDl/Ep3mWZJkH+ZhlGUf5mmWZcXmZGUaRkZRkmSf5kQG0bSGEYTOmBErsl4ypdFyXJ/luW' + 
	'5bH+WkoH+TEpqlEcrSvLCsKEM5Am6bT2n4eq6zDMcxH/MkzzMfZ6LifR5rafB4wKd54H+eR1HWf52nIcp/nKbhun+SpJEkf4aUOQMs0VRdFAbRwImfSJ/nyeS1TQclAH' + 
	'+fR7Lqc52PuGBVBgf4klaIx/mMYRbs8XEnGZIc9T4f5vmua5/j3XB/gPXYI0ZX1fwAgiCD/YhPnIcJxTSup+nyfZ/nceh2n+HRYh4f4HFCCNr2zaZYh2f51ngdB/nwea' + 
	'1T3PpbFk8Yn3aT9hJJYF5Xm4V4A1e4Q0iZ9J0rZ54HSf4glqIh/gwU4OH+FxahxhOF4Lg5/iAWYhH+chzG8f5znAcJ/ksSpKn+CORBDeF6ZNk6wXheA5ZYR5gmUYWIlk' + 
	'Ip/g+VgTH+Gxc4oJRiiyf4jmGKuc53mubn+HBVB8f5MlETR/itqJH5VYWUatq6r6pqgQkeE5nhSWIYn/sGxbIf4wmmOp/imZQybHsO37LuGua9rWVaxvG8ozu2+a0GZb' + 
	'h6f48nCSKgmsPh/7/wO+8Zqu9cfq3G8aFBaYYL5tEIf4omgOJ/8phnJcZyHR5N0O+gqVgUn+Fhgisf4TF4JZ/9R1XTb50ncWB227AiUgQ5D33gd/3vf93rXc+RRaKh8l' + 
	'fmI6j6Q72AF4oyQDBIf5N6IC');
	set_HTMLPicture('icon','download.ico');
	with Items do
	begin
		ToString := 'Icon 0[img=0]';
		Add('Icon 1',TObject(1),Nil);
		Add('Icon 2','print.ico',Nil);
		Add('Icon 3',Nil,Nil).Image[EXRADIALMENULib.RadialItemsEnum.exRadialSubItems] := 'icon';
	end;
	EndUpdate();
end
23:
How can I load items /images to the control, in sub-items zone

with AxRadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	set_HTMLPicture('logo','settings.png');
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,SubItemsBackColor);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,$ffffffff);
	SubItemsSize := '64 * dpi';
	ParentSize := 'value - 66 * dpi';
	set_ParentImageWidth(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'64*dpi');
	set_ParentImageHeight(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'64*dpi');
	set_ParentCaption(EXRADIALMENULib.RadialMenuStateEnum.exRadialMenuStateAll,'<font ;14><c>System Settings</font><br><c>Surround');
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,$8000000d);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,128);
	ItemsBackColor := SubItemsBackColor;
	with Items do
	begin
		Add('','color_line.png',TObject(2));
		Add('','color_fill.png',TObject(2));
		Add('','format_font_size_less.png',TObject(2));
		Add('','edit_undo.png',TObject(2));
		Add('','edit_redo.png',TObject(2));
		Add('','edit_copy.png',TObject(2));
		Add('','fileview_text.png',TObject(2));
		Add('','checkmark_korganizer.png',TObject(2));
	end;
	EndUpdate();
end
22:
How can I load items /images to the control

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	set_HTMLPicture('arrow','arrow.png');
	SubItemsBackColor := Color.FromArgb(190,190,190);
	ShadowColor := SubItemsBackColor;
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,SubItemsBackColor);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,$ffffffff);
	with Items do
	begin
		Add('Foreground-Color','color_line.png',Nil).Items.ToString := 'Foreground';
		Add('Background-Color','color_fill.png',Nil).Items.ToString := 'Background';
		Add('Font','format_font_size_less.png',Nil).Items.ToString := 'Font';
		Add('Undo','edit_undo.png',Nil).Items.ToString := 'Undo';
		Add('Redo','edit_redo.png',Nil).Items.ToString := 'Redo';
		Add('Copy','edit_copy.png',Nil).Items.ToString := 'Copy';
		Add('List','fileview_text.png',Nil).Items.ToString := 'List';
		Add('Tag','checkmark_korganizer.png',Nil).Items.ToString := 'Tag';
	end;
	EndUpdate();
end
21:
How can I load items to the control

with AxRadialMenu1 do
begin
	BeginUpdate();
	MinVisibleCount := 3;
	PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
	set_HTMLPicture('remove','remove.png');
	set_HTMLPicture('refresh','refresh.png');
	set_HTMLPicture('preview','preview.png');
	set_HTMLPicture('search','search.png');
	with Items do
	begin
		with Add('Search','search',Nil).Items do
		begin
			ToString := 'Search A,Search B,Search C';
		end;
		Add('Refresh','refresh',Nil);
		Add('Preview','preview',Nil);
		Add('Remove','remove',Nil);
	end;
	Expanded := True;
	EndUpdate();
end
20:
How do I get the version of the control I am running

with AxRadialMenu1 do
begin
	OutputDebugString( 'Version:' );
	OutputDebugString( Version );
end
19:
How do I select an item

// SelectItem event - Notifies once the user selects an item.
procedure TWinForm1.AxRadialMenu1_SelectItem(sender: System.Object; e: AxEXRADIALMENULib._IRadialMenuEvents_SelectItemEvent);
begin
	// SelectedIndex(3) =  Item.Index
	with AxRadialMenu1 do
	begin
		OutputDebugString( 'selection changed' );
	end
end;

with AxRadialMenu1 do
begin
	AllowToggleExpand := False;
	ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	set_SelectedIndex(EXRADIALMENULib.RadialItemsEnum.exRadialFullItems,0);
end
18:
How can I change the item's foreground color (sample 3)

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	MinVisibleCount := 6;
	Font.Size := '14.25';
	with Items do
	begin
		with Add('Item 1',Nil,Nil) do
		begin
			Name := '<fgcolor FF0000>Item</fgcolor> 1';
			with Items do
			begin
				Add('SubItem 1',Nil,Nil);
				Add('SubItem 2',Nil,Nil);
			end;
		end;
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
		Add('Item 4',Nil,Nil);
		Add('Item 5',Nil,Nil);
		Add('Item 6',Nil,Nil);
	end;
	EndUpdate();
end
17:
How can I change the item's foreground color (sample 2)

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	MinVisibleCount := 6;
	Font.Size := '14.25';
	with Items do
	begin
		with Add('Item 1',Nil,Nil) do
		begin
			ForeColor[EXRADIALMENULib.RadialItemsEnum.exRadialItems] := $ff;
			with Items do
			begin
				Add('SubItem 1',Nil,Nil);
				Add('SubItem 2',Nil,Nil);
			end;
		end;
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
		Add('Item 4',Nil,Nil);
		Add('Item 5',Nil,Nil);
		Add('Item 6',Nil,Nil);
	end;
	EndUpdate();
end
16:
How can I change the item's foreground color (sample 1)

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	MinVisibleCount := 6;
	Font.Size := '14.25';
	ForeColor := Color.FromArgb(255,0,0);
	with Items do
	begin
		with Add('Item 1',Nil,Nil).Items do
		begin
			Add('SubItem 1',Nil,Nil);
			Add('SubItem 2',Nil,Nil);
		end;
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
		Add('Item 4',Nil,Nil);
		Add('Item 5',Nil,Nil);
		Add('Item 6',Nil,Nil);
	end;
	EndUpdate();
end
15:
How can I add new items / childrend to the control (method 2)

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	with Items do
	begin
		with Add('Item 1',Nil,Nil).Items do
		begin
			Add('SubItem 1',Nil,Nil);
			Add('SubItem 2',Nil,Nil);
		end;
		Add('Item 2',Nil,Nil);
		Add('Item 3',Nil,Nil);
		Add('Item 4',Nil,Nil);
		Add('Item 5',Nil,Nil);
		Add('Item 6',Nil,Nil);
		Add('Item 7',Nil,Nil);
		Add('Item 8',Nil,Nil);
	end;
	EndUpdate();
end
14:
How can I add new items / childrend to the control (method 1)

with AxRadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	ToString := 'Item 1(SubItem 1,SubItem 2),Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	EndUpdate();
end
13:
How do I enlarge the font (method 2)

with AxRadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	MinVisibleCount := 4;
	ToString := 'Item 1,Item 2,Item 3,Item 4';
	Items.Item[TObject(0)].Name := '<font ;14>Item 1';
	EndUpdate();
end
12:
How do I enlarge the font (method 1)

with AxRadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	MinVisibleCount := 4;
	ToString := 'Item 1,Item 2,Item 3,Item 4';
	Font.Size := '14.25';
	EndUpdate();
end
11:
How can I expand the control (method 2)
with AxRadialMenu1 do
begin
	AllowToggleExpand := False;
end
10:
How can I expand the control (method 1)
with AxRadialMenu1 do
begin
	Expanded := True;
end
9:
By default, the control displays 8-pies. How can I change that

with AxRadialMenu1 do
begin
	Expanded := True;
	MinVisibleCount := 3;
end
8:
How can I prevents expanding / collapsing the radial menu
with AxRadialMenu1 do
begin
	BeginUpdate();
	AllowToggleExpand := False;
	ToString := 'Item 1,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaption,'Cant expand/collapse the radial menu');
	set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionAnchor,TObject(0));
	set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionLeft,'width-twidth');
	set_Caption(EXRADIALMENULib.PropertyLayerCaptionEnum.exLayerCaptionTop,'height-theight');
	EndUpdate();
end
7:
How can I prevent flickering the item, when user selects it
with AxRadialMenu1 do
begin
	AllowToggleExpand := False;
	ToString := '<c><b>Item 1<b><br><c>no flick<br>,Item 2,Item 3,Item 4,Item 5,Item 6,Item 7,Item 8';
	Items.Item[TObject(0)].BrowseType := EXRADIALMENULib.BrowseItemEnum($fffffffc Or Integer(EXRADIALMENULib.BrowseItemEnum.exBrowseItemCustom) Or Integer(EXRADIALMENULib.BrowseItemEnum.exBrowseItemChild));
end
6:
How do I highlight the sub-item zone when cursor hovers it (method 2)

with AxRadialMenu1 do
begin
	Expanded := True;
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,FormatABC(SubItemsSize,Nil,Nil,Nil));
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,$8000000d);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,64);
	with Items do
	begin
		Add('Item A',Nil,Nil);
		Add('Item B',Nil,Nil);
		Add('Item C',Nil,Nil);
	end;
end
5:
How do I highlight the sub-item zone when cursor hovers it (method 1)

with AxRadialMenu1 do
begin
	Expanded := True;
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0);
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,-1);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,$8000000d);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotSubItem,64);
	with Items do
	begin
		Add('Item A',Nil,Nil);
		Add('Item B',Nil,Nil);
		Add('Item C',Nil,Nil);
	end;
end
4:
Is it possible to highlight the entire item when cursor hovers the item

with AxRadialMenu1 do
begin
	Expanded := True;
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,-1);
	set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,$8000000d);
	set_RadialLineAlpha(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,64);
	with Items do
	begin
		Add('Item A',Nil,Nil);
		Add('Item B',Nil,Nil);
		Add('Item C',Nil,Nil);
	end;
end
3:
How can I hide the hot line when hovering the cursor
with AxRadialMenu1 do
begin
	AllowToggleExpand := False;
	set_RadialLineSize(EXRADIALMENULib.RadialLineEnum.exRadialHotFullItem,0);
	with Items do
	begin
		Add('Item A',Nil,Nil);
		Add('Item B',Nil,Nil);
		Add('Item C',Nil,Nil);
	end;
end
2:
How can I hide the control's shadow

with AxRadialMenu1 do
begin
	Expanded := True;
	(GetOcx() as EXRADIALMENULib.RadialMenu).ShadowColor := $ffffffff;
end
1:
How do I change the control's background color
with AxRadialMenu1 do
begin
	BackColor := Color.FromArgb(240,240,249);
end