Type | Description | |||
Color | A Color expression that specifies the item's background color, when the item is selected/checked and the cursor hovers it. The last 7 bits in the high significant byte of the color indicates the identifier of the skin being used. Use the Add method to add new skins to the control. If you need to remove the skin appearance from a part of the control you need to reset the last 7 bits in the high significant byte of the color being applied to the background's part. |
How can I change the item's background/backcolor, when the item is selected/checked (radio-buttons)?
VBA (MS Access, Excell...)
With Ribbon1 With .Items With .Add("",2) .GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup With .Items With .Add("Radio 1") .HotBackColor = RGB(255,255,255) .SelBackColor = RGB(255,0,0) .SelHotBackColor = RGB(255,0,0) .ShowCheckedAsSelected = 1 .Radio = True .RadioGroup = 100 .Checked = True End With With .Add("Radio 2") .HotBackColor = RGB(255,255,255) .SelBackColor = RGB(255,0,0) .SelHotBackColor = RGB(255,0,0) .ShowCheckedAsSelected = 1 .Radio = True .RadioGroup = 100 End With .Add("").ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0," & _ "0)]" End With End With End With .Refresh End With
VB6
With Ribbon1 With .Items With .Add("",2) .GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup With .Items With .Add("Radio 1") .HotBackColor = RGB(255,255,255) .SelBackColor = RGB(255,0,0) .SelHotBackColor = RGB(255,0,0) .ShowCheckedAsSelected = exDisplayItemHighlight .Radio = True .RadioGroup = 100 .Checked = True End With With .Add("Radio 2") .HotBackColor = RGB(255,255,255) .SelBackColor = RGB(255,0,0) .SelHotBackColor = RGB(255,0,0) .ShowCheckedAsSelected = exDisplayItemHighlight .Radio = True .RadioGroup = 100 End With .Add("").ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0," & _ "0)]" End With End With End With .Refresh End With
VB.NET
With Exribbon1 With .Items With .Add("",2) .GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup With .Items With .Add("Radio 1") .HotBackColor = Color.FromArgb(255,255,255) .SelBackColor = Color.FromArgb(255,0,0) .SelHotBackColor = Color.FromArgb(255,0,0) .ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight .Radio = True .RadioGroup = 100 .Checked = True End With With .Add("Radio 2") .HotBackColor = Color.FromArgb(255,255,255) .SelBackColor = Color.FromArgb(255,0,0) .SelHotBackColor = Color.FromArgb(255,0,0) .ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight .Radio = True .RadioGroup = 100 End With .Add("").ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0," & _ "0)]" End With End With End With .Refresh() End With
VB.NET for /COM
With AxRibbon1 With .Items With .Add("",2) .GroupPopup = EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame Or EXRIBBONLib.GroupPopupEnum.exGroupPopup With .Items With .Add("Radio 1") .HotBackColor = RGB(255,255,255) .SelBackColor = RGB(255,0,0) .SelHotBackColor = RGB(255,0,0) .ShowCheckedAsSelected = EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight .Radio = True .RadioGroup = 100 .Checked = True End With With .Add("Radio 2") .HotBackColor = RGB(255,255,255) .SelBackColor = RGB(255,0,0) .SelHotBackColor = RGB(255,0,0) .ShowCheckedAsSelected = EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight .Radio = True .RadioGroup = 100 End With .Add("").ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0," & _ "0)]" End With End With End With .Refresh() End With
C++
/* Copy and paste the following directives to your header file as it defines the namespace 'EXRIBBONLib' for the library: 'ExRibbon 1.0 Control Library' #import <ExRibbon.dll> using namespace EXRIBBONLib; */ EXRIBBONLib::IRibbonPtr spRibbon1 = GetDlgItem(IDC_RIBBON1)->GetControlUnknown(); EXRIBBONLib::IItemsPtr var_Items = spRibbon1->GetItems(); EXRIBBONLib::IItemPtr var_Item = var_Items->Add(L"",long(2),vtMissing); var_Item->PutGroupPopup(EXRIBBONLib::GroupPopupEnum(EXRIBBONLib::exNoGroupPopupFrame | EXRIBBONLib::exGroupPopup)); EXRIBBONLib::IItemsPtr var_Items1 = var_Item->GetItems(); EXRIBBONLib::IItemPtr var_Item1 = var_Items1->Add(L"Radio 1",vtMissing,vtMissing); var_Item1->PutHotBackColor(RGB(255,255,255)); var_Item1->PutSelBackColor(RGB(255,0,0)); var_Item1->PutSelHotBackColor(RGB(255,0,0)); var_Item1->PutShowCheckedAsSelected(EXRIBBONLib::exDisplayItemHighlight); var_Item1->PutRadio(VARIANT_TRUE); var_Item1->PutRadioGroup(100); var_Item1->PutChecked(VARIANT_TRUE); EXRIBBONLib::IItemPtr var_Item2 = var_Items1->Add(L"Radio 2",vtMissing,vtMissing); var_Item2->PutHotBackColor(RGB(255,255,255)); var_Item2->PutSelBackColor(RGB(255,0,0)); var_Item2->PutSelHotBackColor(RGB(255,0,0)); var_Item2->PutShowCheckedAsSelected(EXRIBBONLib::exDisplayItemHighlight); var_Item2->PutRadio(VARIANT_TRUE); var_Item2->PutRadioGroup(100); var_Items1->Add(L"",vtMissing,vtMissing)->PutToString(_bstr_t("Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,") + "0)]"); spRibbon1->Refresh();
C++ Builder
Exribbonlib_tlb::IItemsPtr var_Items = Ribbon1->Items; Exribbonlib_tlb::IItemPtr var_Item = var_Items->Add(L"",TVariant(2),TNoParam()); var_Item->GroupPopup = Exribbonlib_tlb::GroupPopupEnum::exNoGroupPopupFrame | Exribbonlib_tlb::GroupPopupEnum::exGroupPopup; Exribbonlib_tlb::IItemsPtr var_Items1 = var_Item->Items; Exribbonlib_tlb::IItemPtr var_Item1 = var_Items1->Add(L"Radio 1",TNoParam(),TNoParam()); var_Item1->HotBackColor = RGB(255,255,255); var_Item1->SelBackColor = RGB(255,0,0); var_Item1->SelHotBackColor = RGB(255,0,0); var_Item1->ShowCheckedAsSelected = Exribbonlib_tlb::ShowCheckedAsSelectedEnum::exDisplayItemHighlight; var_Item1->Radio = true; var_Item1->RadioGroup = 100; var_Item1->Checked = true; Exribbonlib_tlb::IItemPtr var_Item2 = var_Items1->Add(L"Radio 2",TNoParam(),TNoParam()); var_Item2->HotBackColor = RGB(255,255,255); var_Item2->SelBackColor = RGB(255,0,0); var_Item2->SelHotBackColor = RGB(255,0,0); var_Item2->ShowCheckedAsSelected = Exribbonlib_tlb::ShowCheckedAsSelectedEnum::exDisplayItemHighlight; var_Item2->Radio = true; var_Item2->RadioGroup = 100; var_Items1->Add(L"",TNoParam(),TNoParam())->ToString = TVariant(String("Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,") + "0)]"); Ribbon1->Refresh();
C#
exontrol.EXRIBBONLib.Items var_Items = exribbon1.Items; exontrol.EXRIBBONLib.Item var_Item = var_Items.Add("",2,null); var_Item.GroupPopup = exontrol.EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame | exontrol.EXRIBBONLib.GroupPopupEnum.exGroupPopup; exontrol.EXRIBBONLib.Items var_Items1 = var_Item.Items; exontrol.EXRIBBONLib.Item var_Item1 = var_Items1.Add("Radio 1",null,null); var_Item1.HotBackColor = Color.FromArgb(255,255,255); var_Item1.SelBackColor = Color.FromArgb(255,0,0); var_Item1.SelHotBackColor = Color.FromArgb(255,0,0); var_Item1.ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight; var_Item1.Radio = true; var_Item1.RadioGroup = 100; var_Item1.Checked = true; exontrol.EXRIBBONLib.Item var_Item2 = var_Items1.Add("Radio 2",null,null); var_Item2.HotBackColor = Color.FromArgb(255,255,255); var_Item2.SelBackColor = Color.FromArgb(255,0,0); var_Item2.SelHotBackColor = Color.FromArgb(255,0,0); var_Item2.ShowCheckedAsSelected = exontrol.EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight; var_Item2.Radio = true; var_Item2.RadioGroup = 100; var_Items1.Add("",null,null).ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0," + "0)]"; exribbon1.Refresh();
JScript/JavaScript
<BODY onload='Init()'> <OBJECT CLASSID="clsid:DDF58CFA-750F-45E0-8A00-CFBE431702E2" id="Ribbon1"></OBJECT> <SCRIPT LANGUAGE="JScript"> function Init() { var var_Items = Ribbon1.Items; var var_Item = var_Items.Add("",2,null); var_Item.GroupPopup = 3; var var_Items1 = var_Item.Items; var var_Item1 = var_Items1.Add("Radio 1",null,null); var_Item1.HotBackColor = 16777215; var_Item1.SelBackColor = 255; var_Item1.SelHotBackColor = 255; var_Item1.ShowCheckedAsSelected = 1; var_Item1.Radio = true; var_Item1.RadioGroup = 100; var_Item1.Checked = true; var var_Item2 = var_Items1.Add("Radio 2",null,null); var_Item2.HotBackColor = 16777215; var_Item2.SelBackColor = 255; var_Item2.SelHotBackColor = 255; var_Item2.ShowCheckedAsSelected = 1; var_Item2.Radio = true; var_Item2.RadioGroup = 100; var_Items1.Add("",null,null).ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0," + "0)]"; Ribbon1.Refresh(); } </SCRIPT> </BODY>
VBScript
<BODY onload='Init()'> <OBJECT CLASSID="clsid:DDF58CFA-750F-45E0-8A00-CFBE431702E2" id="Ribbon1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With Ribbon1 With .Items With .Add("",2) .GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup With .Items With .Add("Radio 1") .HotBackColor = RGB(255,255,255) .SelBackColor = RGB(255,0,0) .SelHotBackColor = RGB(255,0,0) .ShowCheckedAsSelected = 1 .Radio = True .RadioGroup = 100 .Checked = True End With With .Add("Radio 2") .HotBackColor = RGB(255,255,255) .SelBackColor = RGB(255,0,0) .SelHotBackColor = RGB(255,0,0) .ShowCheckedAsSelected = 1 .Radio = True .RadioGroup = 100 End With .Add("").ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0," & _ "0)]" End With End With End With .Refresh End With End Function </SCRIPT> </BODY>
C# for /COM
EXRIBBONLib.Items var_Items = axRibbon1.Items; EXRIBBONLib.Item var_Item = var_Items.Add("",2,null); var_Item.GroupPopup = EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame | EXRIBBONLib.GroupPopupEnum.exGroupPopup; EXRIBBONLib.Items var_Items1 = var_Item.Items; EXRIBBONLib.Item var_Item1 = var_Items1.Add("Radio 1",null,null); var_Item1.HotBackColor = (uint)ColorTranslator.ToWin32(Color.FromArgb(255,255,255)); var_Item1.SelBackColor = (uint)ColorTranslator.ToWin32(Color.FromArgb(255,0,0)); var_Item1.SelHotBackColor = (uint)ColorTranslator.ToWin32(Color.FromArgb(255,0,0)); var_Item1.ShowCheckedAsSelected = EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight; var_Item1.Radio = true; var_Item1.RadioGroup = 100; var_Item1.Checked = true; EXRIBBONLib.Item var_Item2 = var_Items1.Add("Radio 2",null,null); var_Item2.HotBackColor = (uint)ColorTranslator.ToWin32(Color.FromArgb(255,255,255)); var_Item2.SelBackColor = (uint)ColorTranslator.ToWin32(Color.FromArgb(255,0,0)); var_Item2.SelHotBackColor = (uint)ColorTranslator.ToWin32(Color.FromArgb(255,0,0)); var_Item2.ShowCheckedAsSelected = EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight; var_Item2.Radio = true; var_Item2.RadioGroup = 100; var_Items1.Add("",null,null).ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0," + "0)]"; axRibbon1.Refresh();
X++ (Dynamics Ax 2009)
public void init() { COM com_Item,com_Item1,com_Item2,com_Item3,com_Items,com_Items1; anytype var_Item,var_Item1,var_Item2,var_Item3,var_Items,var_Items1; str var_s; ; super(); var_Items = exribbon1.Items(); com_Items = var_Items; var_Item = com_Items.Add("",COMVariant::createFromInt(2)); com_Item = var_Item; com_Item.GroupPopup(3/*exNoGroupPopupFrame | exGroupPopup*/); var_Items1 = com_Item.Items(); com_Items1 = var_Items1; var_Item1 = com_Items1.Add("Radio 1"); com_Item1 = var_Item1; com_Item1.HotBackColor(WinApi::RGB2int(255,255,255)); com_Item1.SelBackColor(WinApi::RGB2int(255,0,0)); com_Item1.SelHotBackColor(WinApi::RGB2int(255,0,0)); com_Item1.ShowCheckedAsSelected(1/*exDisplayItemHighlight*/); com_Item1.Radio(true); com_Item1.RadioGroup(100); com_Item1.Checked(true); var_Item2 = com_Items1.Add("Radio 2"); com_Item2 = var_Item2; com_Item2.HotBackColor(WinApi::RGB2int(255,255,255)); com_Item2.SelBackColor(WinApi::RGB2int(255,0,0)); com_Item2.SelHotBackColor(WinApi::RGB2int(255,0,0)); com_Item2.ShowCheckedAsSelected(1/*exDisplayItemHighlight*/); com_Item2.Radio(true); com_Item2.RadioGroup(100); var_Item3 = COM::createFromObject(com_Items1.Add("")); com_Item3 = var_Item3; var_s = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0"; var_s = var_s + ")]"; com_Item3.ToString(var_s); exribbon1.Refresh(); }
Delphi 8 (.NET only)
with AxRibbon1 do begin with Items do begin with Add('',TObject(2),Nil) do begin GroupPopup := Integer(EXRIBBONLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXRIBBONLib.GroupPopupEnum.exGroupPopup); with Items do begin with Add('Radio 1',Nil,Nil) do begin HotBackColor := $ffffff; SelBackColor := $ff; SelHotBackColor := $ff; ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight; Radio := True; RadioGroup := 100; Checked := True; end; with Add('Radio 2',Nil,Nil) do begin HotBackColor := $ffffff; SelBackColor := $ff; SelHotBackColor := $ff; ShowCheckedAsSelected := EXRIBBONLib.ShowCheckedAsSelectedEnum.exDisplayItemHighlight; Radio := True; RadioGroup := 100; end; Add('',Nil,Nil).ToString := 'Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0' + ')]'; end; end; end; Refresh(); end
Delphi (standard)
with Ribbon1 do begin with Items do begin with Add('',OleVariant(2),Null) do begin GroupPopup := Integer(EXRIBBONLib_TLB.exNoGroupPopupFrame) Or Integer(EXRIBBONLib_TLB.exGroupPopup); with Items do begin with Add('Radio 1',Null,Null) do begin HotBackColor := $ffffff; SelBackColor := $ff; SelHotBackColor := $ff; ShowCheckedAsSelected := EXRIBBONLib_TLB.exDisplayItemHighlight; Radio := True; RadioGroup := 100; Checked := True; end; with Add('Radio 2',Null,Null) do begin HotBackColor := $ffffff; SelBackColor := $ff; SelHotBackColor := $ff; ShowCheckedAsSelected := EXRIBBONLib_TLB.exDisplayItemHighlight; Radio := True; RadioGroup := 100; end; Add('',Null,Null).ToString := 'Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0' + ')]'; end; end; end; Refresh(); end
VFP
with thisform.Ribbon1 with .Items with .Add("",2) .GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup with .Items with .Add("Radio 1") .HotBackColor = RGB(255,255,255) .SelBackColor = RGB(255,0,0) .SelHotBackColor = RGB(255,0,0) .ShowCheckedAsSelected = 1 .Radio = .T. .RadioGroup = 100 .Checked = .T. endwith with .Add("Radio 2") .HotBackColor = RGB(255,255,255) .SelBackColor = RGB(255,0,0) .SelHotBackColor = RGB(255,0,0) .ShowCheckedAsSelected = 1 .Radio = .T. .RadioGroup = 100 endwith var_s = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0" var_s = var_s + ")]" .Add("").ToString = var_s endwith endwith endwith .Refresh endwith
dBASE Plus
local oRibbon,var_Item,var_Item1,var_Item2,var_Item3,var_Items,var_Items1 oRibbon = form.Activex1.nativeObject var_Items = oRibbon.Items var_Item = var_Items.Add("",2) var_Item.GroupPopup = 3 /*exNoGroupPopupFrame | exGroupPopup*/ var_Items1 = var_Item.Items var_Item1 = var_Items1.Add("Radio 1") var_Item1.HotBackColor = 0xffffff var_Item1.SelBackColor = 0xff var_Item1.SelHotBackColor = 0xff var_Item1.ShowCheckedAsSelected = 1 var_Item1.Radio = true var_Item1.RadioGroup = 100 var_Item1.Checked = true var_Item2 = var_Items1.Add("Radio 2") var_Item2.HotBackColor = 0xffffff var_Item2.SelBackColor = 0xff var_Item2.SelHotBackColor = 0xff var_Item2.ShowCheckedAsSelected = 1 var_Item2.Radio = true var_Item2.RadioGroup = 100 // var_Items1.Add("").ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]" var_Item3 = var_Items1.Add("") with (oRibbon) TemplateDef = [Dim var_Item3] TemplateDef = var_Item3 Template = [var_Item3.ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]"] endwith oRibbon.Refresh()
XBasic (Alpha Five)
Dim oRibbon as P Dim var_Item as P Dim var_Item1 as P Dim var_Item2 as P Dim var_Item3 as P Dim var_Items as P Dim var_Items1 as P oRibbon = topparent:CONTROL_ACTIVEX1.activex var_Items = oRibbon.Items var_Item = var_Items.Add("",2) var_Item.GroupPopup = 3 'exNoGroupPopupFrame + exGroupPopup var_Items1 = var_Item.Items var_Item1 = var_Items1.Add("Radio 1") var_Item1.HotBackColor = 16777215 var_Item1.SelBackColor = 255 var_Item1.SelHotBackColor = 255 var_Item1.ShowCheckedAsSelected = 1 var_Item1.Radio = .t. var_Item1.RadioGroup = 100 var_Item1.Checked = .t. var_Item2 = var_Items1.Add("Radio 2") var_Item2.HotBackColor = 16777215 var_Item2.SelBackColor = 255 var_Item2.SelHotBackColor = 255 var_Item2.ShowCheckedAsSelected = 1 var_Item2.Radio = .t. var_Item2.RadioGroup = 100 ' var_Items1.Add("").ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]" var_Item3 = var_Items1.Add("") oRibbon.TemplateDef = "Dim var_Item3" oRibbon.TemplateDef = var_Item3 oRibbon.Template = "var_Item3.ToString = \"Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]\"" oRibbon.Refresh()
Visual Objects
local var_Item,var_Item1,var_Item2 as IItem local var_Items,var_Items1 as IItems var_Items := oDCOCX_Exontrol1:Items var_Item := var_Items:Add("",2,nil) var_Item:GroupPopup := exNoGroupPopupFrame | exGroupPopup var_Items1 := var_Item:Items var_Item1 := var_Items1:Add("Radio 1",nil,nil) var_Item1:HotBackColor := RGB(255,255,255) var_Item1:SelBackColor := RGB(255,0,0) var_Item1:SelHotBackColor := RGB(255,0,0) var_Item1:ShowCheckedAsSelected := exDisplayItemHighlight var_Item1:Radio := true var_Item1:RadioGroup := 100 var_Item1:Checked := true var_Item2 := var_Items1:Add("Radio 2",nil,nil) var_Item2:HotBackColor := RGB(255,255,255) var_Item2:SelBackColor := RGB(255,0,0) var_Item2:SelHotBackColor := RGB(255,0,0) var_Item2:ShowCheckedAsSelected := exDisplayItemHighlight var_Item2:Radio := true var_Item2:RadioGroup := 100 var_Items1:Add("",nil,nil):ToString := "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]" oDCOCX_Exontrol1:Refresh()
PowerBuilder
OleObject oRibbon,var_Item,var_Item1,var_Item2,var_Items,var_Items1 oRibbon = ole_1.Object var_Items = oRibbon.Items var_Item = var_Items.Add("",2) var_Item.GroupPopup = 3 /*exNoGroupPopupFrame | exGroupPopup*/ var_Items1 = var_Item.Items var_Item1 = var_Items1.Add("Radio 1") var_Item1.HotBackColor = RGB(255,255,255) var_Item1.SelBackColor = RGB(255,0,0) var_Item1.SelHotBackColor = RGB(255,0,0) var_Item1.ShowCheckedAsSelected = 1 var_Item1.Radio = true var_Item1.RadioGroup = 100 var_Item1.Checked = true var_Item2 = var_Items1.Add("Radio 2") var_Item2.HotBackColor = RGB(255,255,255) var_Item2.SelBackColor = RGB(255,0,0) var_Item2.SelHotBackColor = RGB(255,0,0) var_Item2.ShowCheckedAsSelected = 1 var_Item2.Radio = true var_Item2.RadioGroup = 100 var_Items1.Add("").ToString = "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]" oRibbon.Refresh()
Visual DataFlex
Procedure OnCreate Forward Send OnCreate 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 "" 2 Nothing to voItem Handle hoItem Get Create (RefClass(cComItem)) to hoItem Set pvComObject of hoItem to voItem Set ComGroupPopup of hoItem to (OLEexNoGroupPopupFrame + OLEexGroupPopup) Variant voItems1 Get ComItems of hoItem to voItems1 Handle hoItems1 Get Create (RefClass(cComItems)) to hoItems1 Set pvComObject of hoItems1 to voItems1 Variant voItem1 Get ComAdd of hoItems1 "Radio 1" Nothing Nothing to voItem1 Handle hoItem1 Get Create (RefClass(cComItem)) to hoItem1 Set pvComObject of hoItem1 to voItem1 Set ComHotBackColor of hoItem1 to (RGB(255,255,255)) Set ComSelBackColor of hoItem1 to (RGB(255,0,0)) Set ComSelHotBackColor of hoItem1 to (RGB(255,0,0)) Set ComShowCheckedAsSelected of hoItem1 to OLEexDisplayItemHighlight Set ComRadio of hoItem1 to True Set ComRadioGroup of hoItem1 to 100 Set ComChecked of hoItem1 to True Send Destroy to hoItem1 Variant voItem2 Get ComAdd of hoItems1 "Radio 2" Nothing Nothing to voItem2 Handle hoItem2 Get Create (RefClass(cComItem)) to hoItem2 Set pvComObject of hoItem2 to voItem2 Set ComHotBackColor of hoItem2 to (RGB(255,255,255)) Set ComSelBackColor of hoItem2 to (RGB(255,0,0)) Set ComSelHotBackColor of hoItem2 to (RGB(255,0,0)) Set ComShowCheckedAsSelected of hoItem2 to OLEexDisplayItemHighlight Set ComRadio of hoItem2 to True Set ComRadioGroup of hoItem2 to 100 Send Destroy to hoItem2 Variant voItem3 Get ComAdd of hoItems1 "" Nothing Nothing to voItem3 Handle hoItem3 Get Create (RefClass(cComItem)) to hoItem3 Set pvComObject of hoItem3 to voItem3 Set ComToString of hoItem3 to "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]" Send Destroy to hoItem3 Send Destroy to hoItems1 Send Destroy to hoItem Send Destroy to hoItems Send ComRefresh End_Procedure
XBase++
#include "AppEvent.ch" #include "ActiveX.ch" PROCEDURE Main LOCAL oForm LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL LOCAL oItem,oItem1,oItem2 LOCAL oItems,oItems1 LOCAL oRibbon oForm := XbpDialog():new( AppDesktop() ) oForm:drawingArea:clipChildren := .T. oForm:create( ,,{100,100}, {640,480},, .F. ) oForm:close := {|| PostAppEvent( xbeP_Quit )} oRibbon := XbpActiveXControl():new( oForm:drawingArea ) oRibbon:CLSID := "Exontrol.Ribbon.1" /*{DDF58CFA-750F-45E0-8A00-CFBE431702E2}*/ oRibbon:create(,, {10,60},{610,370} ) oItems := oRibbon:Items() oItem := oItems:Add("",2) oItem:GroupPopup := 3/*exNoGroupPopupFrame+exGroupPopup*/ oItems1 := oItem:Items() oItem1 := oItems1:Add("Radio 1") oItem1:SetProperty("HotBackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. )) oItem1:SetProperty("SelBackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. )) oItem1:SetProperty("SelHotBackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. )) oItem1:ShowCheckedAsSelected := 1/*exDisplayItemHighlight*/ oItem1:Radio := .T. oItem1:RadioGroup := 100 oItem1:Checked := .T. oItem2 := oItems1:Add("Radio 2") oItem2:SetProperty("HotBackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. )) oItem2:SetProperty("SelBackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. )) oItem2:SetProperty("SelHotBackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. )) oItem2:ShowCheckedAsSelected := 1/*exDisplayItemHighlight*/ oItem2:Radio := .T. oItem2:RadioGroup := 100 oItems1:Add(""):ToString := "Radio 3[typ=2][show=1][grp=100][bghot=RGB(255,255,255)][bgsel=RGB(255,0,0)][bgselhot=RGB(255,0,0)]" oRibbon:Refresh() oForm:Show() DO WHILE nEvent != xbeP_Quit nEvent := AppEvent( @mp1, @mp2, @oXbp ) oXbp:handleEvent( nEvent, mp1, mp2 ) ENDDO RETURN