How can I load items to the control? VBA (MS Access, Excell...)
123456789101112131415161718192021With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("arrow") = "arrow.png"
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.RadialLineColor(6) = .SubItemsBackColor
.RadialLineColor(5) = -1
With .Items
.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
.Add("Background-Color","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.EndUpdate
End With
VB6
123456789101112131415161718192021With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("arrow") = "arrow.png"
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.RadialLineColor(exRadialParentBorder) = .SubItemsBackColor
.RadialLineColor(exRadialItemsGridLines) = -1
With .Items
.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
.Add("Background-Color","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.EndUpdate
End With
VB.NET
123456789101112131415161718192021With Exradialmenu1
.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(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
With .Items
.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
.Add("Background-Color","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.EndUpdate()
End With
VB.NET for /COM
123456789101112131415161718192021With AxRadialMenu1
.BeginUpdate()
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.set_HTMLPicture("arrow","arrow.png")
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,.SubItemsBackColor)
.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1)
With .Items
.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
.Add("Background-Color","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.EndUpdate()
End With
C++
1234567891011121314151617181920212223242526/*
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->PutPicturesPath(L"C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images");
spRadialMenu1->PutHTMLPicture(L"arrow","arrow.png");
spRadialMenu1->PutSubItemsBackColor(RGB(190,190,190));
spRadialMenu1->PutShadowColor(spRadialMenu1->GetSubItemsBackColor());
spRadialMenu1->PutRadialLineColor(EXRADIALMENULib::exRadialParentBorder,spRadialMenu1->GetSubItemsBackColor());
spRadialMenu1->PutRadialLineColor(EXRADIALMENULib::exRadialItemsGridLines,-1);
EXRADIALMENULib::IItemsPtr var_Items = spRadialMenu1->GetItems();
var_Items->Add(L"Foreground-Color","color_line.png",vtMissing)->GetItems()->PutToString(L"Foreground");
var_Items->Add(L"Background-Color","color_fill.png",vtMissing)->GetItems()->PutToString(L"Background");
var_Items->Add(L"Font","format_font_size_less.png",vtMissing)->GetItems()->PutToString(L"Font");
var_Items->Add(L"Undo","edit_undo.png",vtMissing)->GetItems()->PutToString(L"Undo");
var_Items->Add(L"Redo","edit_redo.png",vtMissing)->GetItems()->PutToString(L"Redo");
var_Items->Add(L"Copy","edit_copy.png",vtMissing)->GetItems()->PutToString(L"Copy");
var_Items->Add(L"List","fileview_text.png",vtMissing)->GetItems()->PutToString(L"List");
var_Items->Add(L"Tag","checkmark_korganizer.png",vtMissing)->GetItems()->PutToString(L"Tag");
spRadialMenu1->EndUpdate();
C++ Builder
123456789101112131415161718RadialMenu1->BeginUpdate();
RadialMenu1->Expanded = true;
RadialMenu1->PicturesPath = L"C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
RadialMenu1->HTMLPicture[L"arrow"] = TVariant("arrow.png");
RadialMenu1->SubItemsBackColor = RGB(190,190,190);
RadialMenu1->ShadowColor = RadialMenu1->SubItemsBackColor;
RadialMenu1->RadialLineColor[Exradialmenulib_tlb::RadialLineEnum::exRadialParentBorder] = RadialMenu1->SubItemsBackColor;
RadialMenu1->RadialLineColor[Exradialmenulib_tlb::RadialLineEnum::exRadialItemsGridLines] = -1;
Exradialmenulib_tlb::IItemsPtr var_Items = RadialMenu1->Items;
var_Items->Add(L"Foreground-Color",TVariant("color_line.png"),TNoParam())->Items->ToString = L"Foreground";
var_Items->Add(L"Background-Color",TVariant("color_fill.png"),TNoParam())->Items->ToString = L"Background";
var_Items->Add(L"Font",TVariant("format_font_size_less.png"),TNoParam())->Items->ToString = L"Font";
var_Items->Add(L"Undo",TVariant("edit_undo.png"),TNoParam())->Items->ToString = L"Undo";
var_Items->Add(L"Redo",TVariant("edit_redo.png"),TNoParam())->Items->ToString = L"Redo";
var_Items->Add(L"Copy",TVariant("edit_copy.png"),TNoParam())->Items->ToString = L"Copy";
var_Items->Add(L"List",TVariant("fileview_text.png"),TNoParam())->Items->ToString = L"List";
var_Items->Add(L"Tag",TVariant("checkmark_korganizer.png"),TNoParam())->Items->ToString = L"Tag";
RadialMenu1->EndUpdate();
C#
123456789101112131415161718exradialmenu1.BeginUpdate();
exradialmenu1.Expanded = true;
exradialmenu1.PicturesPath = "C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
exradialmenu1.set_HTMLPicture("arrow","arrow.png");
exradialmenu1.SubItemsBackColor = Color.FromArgb(190,190,190);
exradialmenu1.ShadowColor = exradialmenu1.SubItemsBackColor;
exradialmenu1.set_RadialLineColor(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,exradialmenu1.SubItemsBackColor);
exradialmenu1.set_RadialLineColor32(exontrol.EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1);
exontrol.EXRADIALMENULib.Items var_Items = exradialmenu1.Items;
var_Items.Add("Foreground-Color","color_line.png",null).Items.ToString = "Foreground";
var_Items.Add("Background-Color","color_fill.png",null).Items.ToString = "Background";
var_Items.Add("Font","format_font_size_less.png",null).Items.ToString = "Font";
var_Items.Add("Undo","edit_undo.png",null).Items.ToString = "Undo";
var_Items.Add("Redo","edit_redo.png",null).Items.ToString = "Redo";
var_Items.Add("Copy","edit_copy.png",null).Items.ToString = "Copy";
var_Items.Add("List","fileview_text.png",null).Items.ToString = "List";
var_Items.Add("Tag","checkmark_korganizer.png",null).Items.ToString = "Tag";
exradialmenu1.EndUpdate();
JScript/JavaScript
123456789101112131415161718192021222324252627<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.PicturesPath = "C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
RadialMenu1.HTMLPicture("arrow") = "arrow.png";
RadialMenu1.SubItemsBackColor = 12500670;
RadialMenu1.ShadowColor = RadialMenu1.SubItemsBackColor;
RadialMenu1.RadialLineColor(6) = RadialMenu1.SubItemsBackColor;
RadialMenu1.RadialLineColor(5) = -1;
var var_Items = RadialMenu1.Items;
var_Items.Add("Foreground-Color","color_line.png",null).Items.ToString = "Foreground";
var_Items.Add("Background-Color","color_fill.png",null).Items.ToString = "Background";
var_Items.Add("Font","format_font_size_less.png",null).Items.ToString = "Font";
var_Items.Add("Undo","edit_undo.png",null).Items.ToString = "Undo";
var_Items.Add("Redo","edit_redo.png",null).Items.ToString = "Redo";
var_Items.Add("Copy","edit_copy.png",null).Items.ToString = "Copy";
var_Items.Add("List","fileview_text.png",null).Items.ToString = "List";
var_Items.Add("Tag","checkmark_korganizer.png",null).Items.ToString = "Tag";
RadialMenu1.EndUpdate();
}
</SCRIPT>
</BODY>
VBScript
1234567891011121314151617181920212223242526272829<BODY onload="Init()">
<OBJECT CLASSID="clsid:1604BDE1-D48F-4D3F-B51B-49C0CD74236C" id="RadialMenu1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With RadialMenu1
.BeginUpdate
.Expanded = True
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.HTMLPicture("arrow") = "arrow.png"
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.RadialLineColor(6) = .SubItemsBackColor
.RadialLineColor(5) = -1
With .Items
.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
.Add("Background-Color","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
C# for /COM
123456789101112131415161718axRadialMenu1.BeginUpdate();
axRadialMenu1.Expanded = true;
axRadialMenu1.PicturesPath = "C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images";
axRadialMenu1.set_HTMLPicture("arrow","arrow.png");
axRadialMenu1.SubItemsBackColor = Color.FromArgb(190,190,190);
axRadialMenu1.ShadowColor = axRadialMenu1.SubItemsBackColor;
axRadialMenu1.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialParentBorder,axRadialMenu1.SubItemsBackColor);
axRadialMenu1.set_RadialLineColor(EXRADIALMENULib.RadialLineEnum.exRadialItemsGridLines,-1);
EXRADIALMENULib.Items var_Items = axRadialMenu1.Items;
var_Items.Add("Foreground-Color","color_line.png",null).Items.ToString = "Foreground";
var_Items.Add("Background-Color","color_fill.png",null).Items.ToString = "Background";
var_Items.Add("Font","format_font_size_less.png",null).Items.ToString = "Font";
var_Items.Add("Undo","edit_undo.png",null).Items.ToString = "Undo";
var_Items.Add("Redo","edit_redo.png",null).Items.ToString = "Redo";
var_Items.Add("Copy","edit_copy.png",null).Items.ToString = "Copy";
var_Items.Add("List","fileview_text.png",null).Items.ToString = "List";
var_Items.Add("Tag","checkmark_korganizer.png",null).Items.ToString = "Tag";
axRadialMenu1.EndUpdate();
X++ (Dynamics Ax 2009)
12345678910111213141516171819202122232425262728293031323334353637383940414243public void init()
{
COM com_Item,com_Items,com_Items1;
anytype var_Item,var_Items,var_Items1;
;
super();
exradialmenu1.BeginUpdate();
exradialmenu1.Expanded(true);
exradialmenu1.PicturesPath("C:\\Program Files\\Exontrol\\ExRadialMenu\\Sample\\Images");
exradialmenu1.HTMLPicture("arrow","arrow.png");
exradialmenu1.SubItemsBackColor(WinApi::RGB2int(190,190,190));
exradialmenu1.ShadowColor(exradialmenu1.SubItemsBackColor());
exradialmenu1.RadialLineColor(6/*exRadialParentBorder*/,exradialmenu1.SubItemsBackColor());
exradialmenu1.RadialLineColor(5/*exRadialItemsGridLines*/,-1);
var_Items = exradialmenu1.Items(); com_Items = var_Items;
var_Item = COM::createFromObject(com_Items.Add("Foreground-Color","color_line.png")); com_Item = var_Item;
var_Items1 = COM::createFromObject(com_Item).Items(); com_Items1 = var_Items1;
com_Items1.ToString("Foreground");
var_Item = COM::createFromObject(com_Items.Add("Background-Color","color_fill.png")); com_Item = var_Item;
var_Items1 = COM::createFromObject(com_Item).Items(); com_Items1 = var_Items1;
com_Items1.ToString("Background");
var_Item = COM::createFromObject(com_Items.Add("Font","format_font_size_less.png")); com_Item = var_Item;
var_Items1 = COM::createFromObject(com_Item).Items(); com_Items1 = var_Items1;
com_Items1.ToString("Font");
var_Item = COM::createFromObject(com_Items.Add("Undo","edit_undo.png")); com_Item = var_Item;
var_Items1 = COM::createFromObject(com_Item).Items(); com_Items1 = var_Items1;
com_Items1.ToString("Undo");
var_Item = COM::createFromObject(com_Items.Add("Redo","edit_redo.png")); com_Item = var_Item;
var_Items1 = COM::createFromObject(com_Item).Items(); com_Items1 = var_Items1;
com_Items1.ToString("Redo");
var_Item = COM::createFromObject(com_Items.Add("Copy","edit_copy.png")); com_Item = var_Item;
var_Items1 = COM::createFromObject(com_Item).Items(); com_Items1 = var_Items1;
com_Items1.ToString("Copy");
var_Item = COM::createFromObject(com_Items.Add("List","fileview_text.png")); com_Item = var_Item;
var_Items1 = COM::createFromObject(com_Item).Items(); com_Items1 = var_Items1;
com_Items1.ToString("List");
var_Item = COM::createFromObject(com_Items.Add("Tag","checkmark_korganizer.png")); com_Item = var_Item;
var_Items1 = COM::createFromObject(com_Item).Items(); com_Items1 = var_Items1;
com_Items1.ToString("Tag");
exradialmenu1.EndUpdate();
}
Delphi 8 (.NET only)
1234567891011121314151617181920212223with 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
Delphi (standard)
1234567891011121314151617181920212223with RadialMenu1 do
begin
BeginUpdate();
Expanded := True;
PicturesPath := 'C:\Program Files\Exontrol\ExRadialMenu\Sample\Images';
HTMLPicture['arrow'] := 'arrow.png';
SubItemsBackColor := RGB(190,190,190);
ShadowColor := SubItemsBackColor;
RadialLineColor[EXRADIALMENULib_TLB.exRadialParentBorder] := SubItemsBackColor;
RadialLineColor[EXRADIALMENULib_TLB.exRadialItemsGridLines] := $ffffffff;
with Items do
begin
Add('Foreground-Color','color_line.png',Null).Items.ToString := 'Foreground';
Add('Background-Color','color_fill.png',Null).Items.ToString := 'Background';
Add('Font','format_font_size_less.png',Null).Items.ToString := 'Font';
Add('Undo','edit_undo.png',Null).Items.ToString := 'Undo';
Add('Redo','edit_redo.png',Null).Items.ToString := 'Redo';
Add('Copy','edit_copy.png',Null).Items.ToString := 'Copy';
Add('List','fileview_text.png',Null).Items.ToString := 'List';
Add('Tag','checkmark_korganizer.png',Null).Items.ToString := 'Tag';
end;
EndUpdate();
end
VFP
123456789101112131415161718192021with thisform.RadialMenu1
.BeginUpdate
.Expanded = .T.
.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
.Object.HTMLPicture("arrow") = "arrow.png"
.SubItemsBackColor = RGB(190,190,190)
.ShadowColor = .SubItemsBackColor
.Object.RadialLineColor(6) = .SubItemsBackColor
.Object.RadialLineColor(5) = -1
with .Items
.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
.Add("Background-Color","color_fill.png").Items.ToString = "Background"
.Add("Font","format_font_size_less.png").Items.ToString = "Font"
.Add("Undo","edit_undo.png").Items.ToString = "Undo"
.Add("Redo","edit_redo.png").Items.ToString = "Redo"
.Add("Copy","edit_copy.png").Items.ToString = "Copy"
.Add("List","fileview_text.png").Items.ToString = "List"
.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
endwith
.EndUpdate
endwith
dBASE Plus
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869local oRadialMenu,var_Items,var_Items1,var_Items2,var_Items3,var_Items4,var_Items5,var_Items6,var_Items7,var_Items8
oRadialMenu = form.EXRADIALMENUACTIVEXCONTROL1.nativeObject
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = [HTMLPicture("arrow") = "arrow.png"] // oRadialMenu.HTMLPicture("arrow") = "arrow.png"
oRadialMenu.SubItemsBackColor = 0xbebebe
oRadialMenu.ShadowColor = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(6) = SubItemsBackColor] // oRadialMenu.RadialLineColor(6) = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = [RadialLineColor(5) = -1] // oRadialMenu.RadialLineColor(5) = -1
var_Items = oRadialMenu.Items
// var_Items.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
var_Items1 = var_Items.Add("Foreground-Color","color_line.png").Items
with (oRadialMenu)
TemplateDef = [dim var_Items1]
TemplateDef = var_Items1
Template = [var_Items1.ToString = "Foreground"]
endwith
// var_Items.Add("Background-Color","color_fill.png").Items.ToString = "Background"
var_Items2 = var_Items.Add("Background-Color","color_fill.png").Items
with (oRadialMenu)
TemplateDef = [dim var_Items2]
TemplateDef = var_Items2
Template = [var_Items2.ToString = "Background"]
endwith
// var_Items.Add("Font","format_font_size_less.png").Items.ToString = "Font"
var_Items3 = var_Items.Add("Font","format_font_size_less.png").Items
with (oRadialMenu)
TemplateDef = [dim var_Items3]
TemplateDef = var_Items3
Template = [var_Items3.ToString = "Font"]
endwith
// var_Items.Add("Undo","edit_undo.png").Items.ToString = "Undo"
var_Items4 = var_Items.Add("Undo","edit_undo.png").Items
with (oRadialMenu)
TemplateDef = [dim var_Items4]
TemplateDef = var_Items4
Template = [var_Items4.ToString = "Undo"]
endwith
// var_Items.Add("Redo","edit_redo.png").Items.ToString = "Redo"
var_Items5 = var_Items.Add("Redo","edit_redo.png").Items
with (oRadialMenu)
TemplateDef = [dim var_Items5]
TemplateDef = var_Items5
Template = [var_Items5.ToString = "Redo"]
endwith
// var_Items.Add("Copy","edit_copy.png").Items.ToString = "Copy"
var_Items6 = var_Items.Add("Copy","edit_copy.png").Items
with (oRadialMenu)
TemplateDef = [dim var_Items6]
TemplateDef = var_Items6
Template = [var_Items6.ToString = "Copy"]
endwith
// var_Items.Add("List","fileview_text.png").Items.ToString = "List"
var_Items7 = var_Items.Add("List","fileview_text.png").Items
with (oRadialMenu)
TemplateDef = [dim var_Items7]
TemplateDef = var_Items7
Template = [var_Items7.ToString = "List"]
endwith
// var_Items.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
var_Items8 = var_Items.Add("Tag","checkmark_korganizer.png").Items
with (oRadialMenu)
TemplateDef = [dim var_Items8]
TemplateDef = var_Items8
Template = [var_Items8.ToString = "Tag"]
endwith
oRadialMenu.EndUpdate()
XBasic (Alpha Five)
12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970Dim oRadialMenu as P
Dim var_Items as P
Dim var_Items1 as local
Dim var_Items2 as local
Dim var_Items3 as local
Dim var_Items4 as local
Dim var_Items5 as local
Dim var_Items6 as local
Dim var_Items7 as local
Dim var_Items8 as local
oRadialMenu = topparent:CONTROL_ACTIVEX1.activex
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = .t.
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.Template = "HTMLPicture(`arrow`) = `arrow.png`" // oRadialMenu.HTMLPicture("arrow") = "arrow.png"
oRadialMenu.SubItemsBackColor = 12500670
oRadialMenu.ShadowColor = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = "RadialLineColor(6) = SubItemsBackColor" // oRadialMenu.RadialLineColor(6) = oRadialMenu.SubItemsBackColor
oRadialMenu.Template = "RadialLineColor(5) = -1" // oRadialMenu.RadialLineColor(5) = -1
var_Items = oRadialMenu.Items
' var_Items.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
var_Items1 = var_Items.Add("Foreground-Color","color_line.png").Items
oRadialMenu.TemplateDef = "dim var_Items1"
oRadialMenu.TemplateDef = var_Items1
oRadialMenu.Template = "var_Items1.ToString = `Foreground`"
' var_Items.Add("Background-Color","color_fill.png").Items.ToString = "Background"
var_Items2 = var_Items.Add("Background-Color","color_fill.png").Items
oRadialMenu.TemplateDef = "dim var_Items2"
oRadialMenu.TemplateDef = var_Items2
oRadialMenu.Template = "var_Items2.ToString = `Background`"
' var_Items.Add("Font","format_font_size_less.png").Items.ToString = "Font"
var_Items3 = var_Items.Add("Font","format_font_size_less.png").Items
oRadialMenu.TemplateDef = "dim var_Items3"
oRadialMenu.TemplateDef = var_Items3
oRadialMenu.Template = "var_Items3.ToString = `Font`"
' var_Items.Add("Undo","edit_undo.png").Items.ToString = "Undo"
var_Items4 = var_Items.Add("Undo","edit_undo.png").Items
oRadialMenu.TemplateDef = "dim var_Items4"
oRadialMenu.TemplateDef = var_Items4
oRadialMenu.Template = "var_Items4.ToString = `Undo`"
' var_Items.Add("Redo","edit_redo.png").Items.ToString = "Redo"
var_Items5 = var_Items.Add("Redo","edit_redo.png").Items
oRadialMenu.TemplateDef = "dim var_Items5"
oRadialMenu.TemplateDef = var_Items5
oRadialMenu.Template = "var_Items5.ToString = `Redo`"
' var_Items.Add("Copy","edit_copy.png").Items.ToString = "Copy"
var_Items6 = var_Items.Add("Copy","edit_copy.png").Items
oRadialMenu.TemplateDef = "dim var_Items6"
oRadialMenu.TemplateDef = var_Items6
oRadialMenu.Template = "var_Items6.ToString = `Copy`"
' var_Items.Add("List","fileview_text.png").Items.ToString = "List"
var_Items7 = var_Items.Add("List","fileview_text.png").Items
oRadialMenu.TemplateDef = "dim var_Items7"
oRadialMenu.TemplateDef = var_Items7
oRadialMenu.Template = "var_Items7.ToString = `List`"
' var_Items.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
var_Items8 = var_Items.Add("Tag","checkmark_korganizer.png").Items
oRadialMenu.TemplateDef = "dim var_Items8"
oRadialMenu.TemplateDef = var_Items8
oRadialMenu.Template = "var_Items8.ToString = `Tag`"
oRadialMenu.EndUpdate()
Visual Objects
1234567891011121314151617181920local var_Items as IItems
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Expanded := true
oDCOCX_Exontrol1:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oDCOCX_Exontrol1:[HTMLPicture,"arrow"] := "arrow.png"
oDCOCX_Exontrol1:SubItemsBackColor := RGB(190,190,190)
oDCOCX_Exontrol1:ShadowColor := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialParentBorder] := oDCOCX_Exontrol1:SubItemsBackColor
oDCOCX_Exontrol1:[RadialLineColor,exRadialItemsGridLines] := -1
var_Items := oDCOCX_Exontrol1:Items
var_Items:Add("Foreground-Color","color_line.png",nil):Items:ToString := "Foreground"
var_Items:Add("Background-Color","color_fill.png",nil):Items:ToString := "Background"
var_Items:Add("Font","format_font_size_less.png",nil):Items:ToString := "Font"
var_Items:Add("Undo","edit_undo.png",nil):Items:ToString := "Undo"
var_Items:Add("Redo","edit_redo.png",nil):Items:ToString := "Redo"
var_Items:Add("Copy","edit_copy.png",nil):Items:ToString := "Copy"
var_Items:Add("List","fileview_text.png",nil):Items:ToString := "List"
var_Items:Add("Tag","checkmark_korganizer.png",nil):Items:ToString := "Tag"
oDCOCX_Exontrol1:EndUpdate()
PowerBuilder
123456789101112131415161718192021OleObject oRadialMenu,var_Items
oRadialMenu = ole_1.Object
oRadialMenu.BeginUpdate()
oRadialMenu.Expanded = true
oRadialMenu.PicturesPath = "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu.HTMLPicture("arrow","arrow.png")
oRadialMenu.SubItemsBackColor = RGB(190,190,190)
oRadialMenu.ShadowColor = oRadialMenu.SubItemsBackColor
oRadialMenu.RadialLineColor(6,oRadialMenu.SubItemsBackColor)
oRadialMenu.RadialLineColor(5,-1)
var_Items = oRadialMenu.Items
var_Items.Add("Foreground-Color","color_line.png").Items.ToString = "Foreground"
var_Items.Add("Background-Color","color_fill.png").Items.ToString = "Background"
var_Items.Add("Font","format_font_size_less.png").Items.ToString = "Font"
var_Items.Add("Undo","edit_undo.png").Items.ToString = "Undo"
var_Items.Add("Redo","edit_redo.png").Items.ToString = "Redo"
var_Items.Add("Copy","edit_copy.png").Items.ToString = "Copy"
var_Items.Add("List","fileview_text.png").Items.ToString = "List"
var_Items.Add("Tag","checkmark_korganizer.png").Items.ToString = "Tag"
oRadialMenu.EndUpdate()
Visual DataFlex
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComExpanded to True
Set ComPicturesPath to "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
Set ComHTMLPicture "arrow" to "arrow.png"
Set ComSubItemsBackColor to (RGB(190,190,190))
Set ComShadowColor to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialParentBorder to (ComSubItemsBackColor(Self))
Set ComRadialLineColor OLEexRadialItemsGridLines to -1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant voItem
Get ComAdd of hoItems "Foreground-Color" "color_line.png" Nothing to voItem
Handle hoItem
Get Create (RefClass(cComItem)) to hoItem
Set pvComObject of hoItem to voItem
Variant voItems1
Get ComItems of hoItem to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComToString of hoItems1 to "Foreground"
Send Destroy to hoItems1
Send Destroy to hoItem
Variant voItem1
Get ComAdd of hoItems "Background-Color" "color_fill.png" Nothing to voItem1
Handle hoItem1
Get Create (RefClass(cComItem)) to hoItem1
Set pvComObject of hoItem1 to voItem1
Variant voItems2
Get ComItems of hoItem1 to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComToString of hoItems2 to "Background"
Send Destroy to hoItems2
Send Destroy to hoItem1
Variant voItem2
Get ComAdd of hoItems "Font" "format_font_size_less.png" Nothing to voItem2
Handle hoItem2
Get Create (RefClass(cComItem)) to hoItem2
Set pvComObject of hoItem2 to voItem2
Variant voItems3
Get ComItems of hoItem2 to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Set ComToString of hoItems3 to "Font"
Send Destroy to hoItems3
Send Destroy to hoItem2
Variant voItem3
Get ComAdd of hoItems "Undo" "edit_undo.png" Nothing to voItem3
Handle hoItem3
Get Create (RefClass(cComItem)) to hoItem3
Set pvComObject of hoItem3 to voItem3
Variant voItems4
Get ComItems of hoItem3 to voItems4
Handle hoItems4
Get Create (RefClass(cComItems)) to hoItems4
Set pvComObject of hoItems4 to voItems4
Set ComToString of hoItems4 to "Undo"
Send Destroy to hoItems4
Send Destroy to hoItem3
Variant voItem4
Get ComAdd of hoItems "Redo" "edit_redo.png" Nothing to voItem4
Handle hoItem4
Get Create (RefClass(cComItem)) to hoItem4
Set pvComObject of hoItem4 to voItem4
Variant voItems5
Get ComItems of hoItem4 to voItems5
Handle hoItems5
Get Create (RefClass(cComItems)) to hoItems5
Set pvComObject of hoItems5 to voItems5
Set ComToString of hoItems5 to "Redo"
Send Destroy to hoItems5
Send Destroy to hoItem4
Variant voItem5
Get ComAdd of hoItems "Copy" "edit_copy.png" Nothing to voItem5
Handle hoItem5
Get Create (RefClass(cComItem)) to hoItem5
Set pvComObject of hoItem5 to voItem5
Variant voItems6
Get ComItems of hoItem5 to voItems6
Handle hoItems6
Get Create (RefClass(cComItems)) to hoItems6
Set pvComObject of hoItems6 to voItems6
Set ComToString of hoItems6 to "Copy"
Send Destroy to hoItems6
Send Destroy to hoItem5
Variant voItem6
Get ComAdd of hoItems "List" "fileview_text.png" Nothing to voItem6
Handle hoItem6
Get Create (RefClass(cComItem)) to hoItem6
Set pvComObject of hoItem6 to voItem6
Variant voItems7
Get ComItems of hoItem6 to voItems7
Handle hoItems7
Get Create (RefClass(cComItems)) to hoItems7
Set pvComObject of hoItems7 to voItems7
Set ComToString of hoItems7 to "List"
Send Destroy to hoItems7
Send Destroy to hoItem6
Variant voItem7
Get ComAdd of hoItems "Tag" "checkmark_korganizer.png" Nothing to voItem7
Handle hoItem7
Get Create (RefClass(cComItem)) to hoItem7
Set pvComObject of hoItem7 to voItem7
Variant voItems8
Get ComItems of hoItem7 to voItems8
Handle hoItems8
Get Create (RefClass(cComItems)) to hoItems8
Set pvComObject of hoItems8 to voItems8
Set ComToString of hoItems8 to "Tag"
Send Destroy to hoItems8
Send Destroy to hoItem7
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
XBase++
12345678910111213141516171819202122232425262728293031323334353637383940414243#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
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:PicturesPath := "C:\Program Files\Exontrol\ExRadialMenu\Sample\Images"
oRadialMenu:SetProperty("HTMLPicture","arrow","arrow.png")
oRadialMenu:SetProperty("SubItemsBackColor",AutomationTranslateColor( GraMakeRGBColor ( { 190,190,190 } ) , .F. ))
oRadialMenu:SetProperty("ShadowColor",oRadialMenu:SubItemsBackColor())
oRadialMenu:SetProperty("RadialLineColor",6/*exRadialParentBorder*/,oRadialMenu:SubItemsBackColor())
oRadialMenu:SetProperty("RadialLineColor",5/*exRadialItemsGridLines*/,-1)
oItems := oRadialMenu:Items()
oItems:Add("Foreground-Color","color_line.png"):Items():ToString := "Foreground"
oItems:Add("Background-Color","color_fill.png"):Items():ToString := "Background"
oItems:Add("Font","format_font_size_less.png"):Items():ToString := "Font"
oItems:Add("Undo","edit_undo.png"):Items():ToString := "Undo"
oItems:Add("Redo","edit_redo.png"):Items():ToString := "Redo"
oItems:Add("Copy","edit_copy.png"):Items():ToString := "Copy"
oItems:Add("List","fileview_text.png"):Items():ToString := "List"
oItems:Add("Tag","checkmark_korganizer.png"):Items():ToString := "Tag"
oRadialMenu:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|