RadialMenu.DisplayArrow Property (ExRadialMenu)

By default, the DisplayArrow property is exRadialSubItems, which specifies that the ""arrow" for child-items is displayed in the sub-items zone of the control. The DisplayArrow property indicates whether the "arrow" HTML picture is displayed on the items/sub-items zone of the control, or in both. The DisplayCenterArrow property specifies the ratio to determine where the arrow of items with children is displayed.

The following samples show how you can display the "arrow" into the items section of the control:

VBA (MS Access, Excell...)

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.DisplayAngle = -7.5
	.DisplayArrow = 1
	.DisplayRadial(1) = 1
	.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 With

VB6

With RadialMenu1
	.BeginUpdate 
	.Expanded = True
	.DisplayAngle = -7.5
	.DisplayArrow = exRadialItems
	.DisplayRadial(exRadialItems) = 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 With

VB.NET

With Exradialmenu1
	.BeginUpdate()
	.Expanded = True
	.DisplayAngle = -7.5
	.DisplayArrow = exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems
	.set_DisplayRadial(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,exontrol.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 With

VB.NET for /COM

With AxRadialMenu1
	.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 With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXRADIALMENULib' for the library: 'ExRadialMenu 1.0 Control Library'

	#import <ExRadialMenu.dll>
	using namespace EXRADIALMENULib;
*/
EXRADIALMENULib::IRadialMenuPtr spRadialMenu1 = GetDlgItem(IDC_RADIALMENU1)->GetControlUnknown();
spRadialMenu1->BeginUpdate();
spRadialMenu1->PutExpanded(VARIANT_TRUE);
spRadialMenu1->PutDisplayAngle(-7.5);
spRadialMenu1->PutDisplayArrow(EXRADIALMENULib::exRadialItems);
spRadialMenu1->PutDisplayRadial(EXRADIALMENULib::exRadialItems,EXRADIALMENULib::exDisplayRadialRotated);
spRadialMenu1->PutPicturesPath(L"C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images");
spRadialMenu1->PutParentSize(L"48 * dpi");
spRadialMenu1->PutParentPicture("Background\\frontb.png");
spRadialMenu1->PutArrowImage("arrow.png");
spRadialMenu1->GetItems()->PutToString(L"Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8");
spRadialMenu1->PutInflateParentPicture(L"72 * dpi");
spRadialMenu1->EndUpdate();

C++ Builder

RadialMenu1->BeginUpdate();
RadialMenu1->Expanded = true;
RadialMenu1->DisplayAngle = -7.5;
RadialMenu1->DisplayArrow = Exradialmenulib_tlb::RadialItemsEnum::exRadialItems;
RadialMenu1->DisplayRadial[Exradialmenulib_tlb::RadialItemsEnum::exRadialItems] = Exradialmenulib_tlb::DisplayRadialEnum::exDisplayRadialRotated;
RadialMenu1->PicturesPath = L"C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
RadialMenu1->ParentSize = L"48 * dpi";
RadialMenu1->set_ParentPicture(TVariant("Background\\frontb.png"));
RadialMenu1->set_ArrowImage(TVariant("arrow.png"));
RadialMenu1->Items->ToString = L"Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8";
RadialMenu1->InflateParentPicture = L"72 * dpi";
RadialMenu1->EndUpdate();

exradialmenu1.BeginUpdate();
exradialmenu1.Expanded = true;
exradialmenu1.DisplayAngle = -7.5;
exradialmenu1.DisplayArrow = exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems;
exradialmenu1.set_DisplayRadial(exontrol.EXRADIALMENULib.RadialItemsEnum.exRadialItems,exontrol.EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated);
exradialmenu1.PicturesPath = "C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
exradialmenu1.ParentSize = "48 * dpi";
exradialmenu1.ParentPicture = "Background\\frontb.png";
exradialmenu1.ArrowImage = "arrow.png";
exradialmenu1.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8";
exradialmenu1.InflateParentPicture = "72 * dpi";
exradialmenu1.EndUpdate();

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	RadialMenu1.BeginUpdate();
	RadialMenu1.Expanded = true;
	RadialMenu1.DisplayAngle = -7.5;
	RadialMenu1.DisplayArrow = 1;
	RadialMenu1.DisplayRadial(1) = 1;
	RadialMenu1.PicturesPath = "C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
	RadialMenu1.ParentSize = "48 * dpi";
	RadialMenu1.ParentPicture = "Background\\frontb.png";
	RadialMenu1.ArrowImage = "arrow.png";
	RadialMenu1.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8";
	RadialMenu1.InflateParentPicture = "72 * dpi";
	RadialMenu1.EndUpdate();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With RadialMenu1
		.BeginUpdate 
		.Expanded = True
		.DisplayAngle = -7.5
		.DisplayArrow = 1
		.DisplayRadial(1) = 1
		.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 With
End Function
</SCRIPT>
</BODY>

C# for /COM

axRadialMenu1.BeginUpdate();
axRadialMenu1.Expanded = true;
axRadialMenu1.DisplayAngle = -7.5;
axRadialMenu1.DisplayArrow = EXRADIALMENULib.RadialItemsEnum.exRadialItems;
axRadialMenu1.set_DisplayRadial(EXRADIALMENULib.RadialItemsEnum.exRadialItems,EXRADIALMENULib.DisplayRadialEnum.exDisplayRadialRotated);
axRadialMenu1.PicturesPath = "C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
axRadialMenu1.ParentSize = "48 * dpi";
axRadialMenu1.ParentPicture = "Background\\frontb.png";
axRadialMenu1.ArrowImage = "arrow.png";
axRadialMenu1.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8";
axRadialMenu1.InflateParentPicture = "72 * dpi";
axRadialMenu1.EndUpdate();

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	exradialmenu1.BeginUpdate();
	exradialmenu1.Expanded(true);
	exradialmenu1.DisplayAngle(-7.5);
	exradialmenu1.DisplayArrow(1/*exRadialItems*/);
	exradialmenu1.DisplayRadial(1/*exRadialItems*/,1/*exDisplayRadialRotated*/);
	exradialmenu1.PicturesPath("C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images");
	exradialmenu1.ParentSize("48 * dpi");
	exradialmenu1.ParentPicture("Background\\frontb.png");
	exradialmenu1.ArrowImage("arrow.png");
	exradialmenu1.Items().ToString("Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8");
	exradialmenu1.InflateParentPicture("72 * dpi");
	exradialmenu1.EndUpdate();
}

Delphi 8 (.NET only)

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

Delphi (standard)

with RadialMenu1 do
begin
	BeginUpdate();
	Expanded := True;
	DisplayAngle := -7.5;
	DisplayArrow := EXRADIALMENULib_TLB.exRadialItems;
	DisplayRadial[EXRADIALMENULib_TLB.exRadialItems] := EXRADIALMENULib_TLB.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

VFP

with thisform.RadialMenu1
	.BeginUpdate
	.Expanded = .T.
	.DisplayAngle = -7.5
	.DisplayArrow = 1
	.Object.DisplayRadial(1) = 1
	.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
endwith

dBASE Plus

local oRadialMenu

oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.DisplayAngle = -7.5
oRadialMenu.DisplayArrow = 1
oRadialMenu.Template = [DisplayRadial(1) = 1] // oRadialMenu.DisplayRadial(1) = 1
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.ParentSize = "48 * dpi"
oRadialMenu.ParentPicture = "Background\frontb.png"
oRadialMenu.ArrowImage = "arrow.png"
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.InflateParentPicture = "72 * dpi"
oRadialMenu.EndUpdate()

XBasic (Alpha Five)

Dim oRadialMenu as P

oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.DisplayAngle = -7.5
oRadialMenu.DisplayArrow = 1
oRadialMenu.Template = "DisplayRadial(1) = 1" // oRadialMenu.DisplayRadial(1) = 1
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.ParentSize = "48 * dpi"
oRadialMenu.ParentPicture = "Background\frontb.png"
oRadialMenu.ArrowImage = "arrow.png"
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.InflateParentPicture = "72 * dpi"
oRadialMenu.EndUpdate()

Visual Objects


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:DisplayAngle := -7.5
oDCOCX_Exontrol1:DisplayArrow := exRadialItems
oDCOCX_Exontrol1:[DisplayRadial,exRadialItems] := exDisplayRadialRotated
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:ParentSize := "48 * dpi"
oDCOCX_Exontrol1:ParentPicture := "Background\frontb.png"
oDCOCX_Exontrol1:ArrowImage := "arrow.png"
oDCOCX_Exontrol1:Items:ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oDCOCX_Exontrol1:InflateParentPicture := "72 * dpi"
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

OleObject oRadialMenu

oRadialMenu = ole_1.Object
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.DisplayAngle = -7.5
oRadialMenu.DisplayArrow = 1
oRadialMenu.DisplayRadial(1,1)
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.ParentSize = "48 * dpi"
oRadialMenu.ParentPicture = "Background\frontb.png"
oRadialMenu.ArrowImage = "arrow.png"
oRadialMenu.Items.ToString = "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
oRadialMenu.InflateParentPicture = "72 * dpi"
oRadialMenu.EndUpdate()

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComExpanded to True
	Set ComDisplayAngle to -7.5
	Set ComDisplayArrow to OLEexRadialItems
	Set ComDisplayRadial OLEexRadialItems to OLEexDisplayRadialRotated
	Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
	Set ComParentSize to "48 * dpi"
	Set ComParentPicture to "Background\frontb.png"
	Set ComArrowImage to "arrow.png"
	Variant voItems
	Get ComItems to voItems
	Handle hoItems
	Get Create (RefClass(cComItems)) to hoItems
	Set pvComObject of hoItems to voItems
		Set ComToString of hoItems to "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
	Send Destroy to hoItems
	Set ComInflateParentPicture to "72 * dpi"
	Send ComEndUpdate
End_Procedure

XBase++

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oRadialMenu

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oRadialMenu := XbpActiveXControl():new( oForm:drawingArea )
	oRadialMenu:CLSID  := "Exontrol.RadialMenu.1" /*{1604BDE1-D48F-4D3F-B51B-49C0CD74236C}*/
	oRadialMenu:create(,, {10,60},{610,370} )

		oRadialMenu:BeginUpdate()
		oRadialMenu:Expanded := .T.
		oRadialMenu:DisplayAngle := -7.5
		oRadialMenu:DisplayArrow := 1/*exRadialItems*/
		oRadialMenu:SetProperty("DisplayRadial",1/*exRadialItems*/,1/*exDisplayRadialRotated*/)
		oRadialMenu:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
		oRadialMenu:ParentSize := "48 * dpi"
		oRadialMenu:ParentPicture := "Background\frontb.png"
		oRadialMenu:ArrowImage := "arrow.png"
		oRadialMenu:Items():ToString := "Item 1(1),Item 2,Item 3(1),Item 4,Item 5,Item 6,Item 7,Item 8"
		oRadialMenu:InflateParentPicture := "72 * dpi"
		oRadialMenu:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN

		Type	Description
		RadialItemsEnum	A RadialItemsEnum expression that indicates where the arrow of items with children is displayed.