Type | Description | |||
Color | A Color expression that specifies the items' background color. 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. |
The following screen shot shows different grouping items (Clipboard, Font, Adjust) with different background appearance.
How can I change the visual appearance for items (EBN)?
VBA (MS Access, Excell...)
With ToolBar1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" With .Items With .Add("",2) .GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup With .Items .BackColor = &H1000000 .Padding = "4,8,4,8" .Add "Item 1" .Add "Item 2" .Add "Item 3" End With End With .Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" End With .Refresh End With
VB6
With ToolBar1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" With .Items With .Add("",2) .GroupPopup = GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup With .Items .BackColor = &H1000000 .Padding = "4,8,4,8" .Add "Item 1" .Add "Item 2" .Add "Item 3" End With End With .Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" End With .Refresh End With
VB.NET
With Extoolbar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") With .Items With .Add("",2) .GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup With .Items .BackColor32 = &H1000000 .Padding = "4,8,4,8" .Add("Item 1") .Add("Item 2") .Add("Item 3") End With End With .Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" End With .Refresh() End With
VB.NET for /COM
With AxToolBar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") With .Items With .Add("",2) .GroupPopup = EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame Or EXTOOLBARLib.GroupPopupEnum.exGroupPopup With .Items .BackColor = &H1000000 .Padding = "4,8,4,8" .Add("Item 1") .Add("Item 2") .Add("Item 3") End With End With .Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" End With .Refresh() End With
C++
/* Copy and paste the following directives to your header file as it defines the namespace 'EXTOOLBARLib' for the library: 'ExToolBar 1.0 Control Library' #import <ExToolBar.dll> using namespace EXTOOLBARLib; */ EXTOOLBARLib::IToolBarPtr spToolBar1 = GetDlgItem(IDC_TOOLBAR1)->GetControlUnknown(); spToolBar1->GetVisualAppearance()->Add(1,"c:\\exontrol\\images\\normal.ebn"); EXTOOLBARLib::IItemsPtr var_Items = spToolBar1->GetItems(); EXTOOLBARLib::IItemPtr var_Item = var_Items->Add(L"",long(2),vtMissing); var_Item->PutGroupPopup(EXTOOLBARLib::GroupPopupEnum(EXTOOLBARLib::exNoGroupPopupFrame | EXTOOLBARLib::exGroupPopup)); EXTOOLBARLib::IItemsPtr var_Items1 = var_Item->GetItems(); var_Items1->PutBackColor(0x1000000); var_Items1->PutPadding(L"4,8,4,8"); var_Items1->Add(L"Item 1",vtMissing,vtMissing); var_Items1->Add(L"Item 2",vtMissing,vtMissing); var_Items1->Add(L"Item 3",vtMissing,vtMissing); var_Items->Add(L"",vtMissing,vtMissing)->PutToString(L"[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"); spToolBar1->Refresh();
C++ Builder
ToolBar1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn")); Extoolbarlib_tlb::IItemsPtr var_Items = ToolBar1->Items; Extoolbarlib_tlb::IItemPtr var_Item = var_Items->Add(L"",TVariant(2),TNoParam()); var_Item->GroupPopup = Extoolbarlib_tlb::GroupPopupEnum::exNoGroupPopupFrame | Extoolbarlib_tlb::GroupPopupEnum::exGroupPopup; Extoolbarlib_tlb::IItemsPtr var_Items1 = var_Item->Items; var_Items1->BackColor = 0x1000000; var_Items1->Padding = L"4,8,4,8"; var_Items1->Add(L"Item 1",TNoParam(),TNoParam()); var_Items1->Add(L"Item 2",TNoParam(),TNoParam()); var_Items1->Add(L"Item 3",TNoParam(),TNoParam()); var_Items->Add(L"",TNoParam(),TNoParam())->ToString = L"[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"; ToolBar1->Refresh();
C#
extoolbar1.VisualAppearance.Add(1,"c:\\exontrol\\images\\normal.ebn"); exontrol.EXTOOLBARLib.Items var_Items = extoolbar1.Items; exontrol.EXTOOLBARLib.Item var_Item = var_Items.Add("",2,null); var_Item.GroupPopup = exontrol.EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame | exontrol.EXTOOLBARLib.GroupPopupEnum.exGroupPopup; exontrol.EXTOOLBARLib.Items var_Items1 = var_Item.Items; var_Items1.BackColor32 = 0x1000000; var_Items1.Padding = "4,8,4,8"; var_Items1.Add("Item 1",null,null); var_Items1.Add("Item 2",null,null); var_Items1.Add("Item 3",null,null); var_Items.Add("",null,null).ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"; extoolbar1.Refresh();
JScript/JavaScript
<BODY onload='Init()'> <OBJECT CLASSID="clsid:DDF58CFA-750F-45E0-8A00-CFBE431702E2" id="ToolBar1"></OBJECT> <SCRIPT LANGUAGE="JScript"> function Init() { ToolBar1.VisualAppearance.Add(1,"c:\\exontrol\\images\\normal.ebn"); var var_Items = ToolBar1.Items; var var_Item = var_Items.Add("",2,null); var_Item.GroupPopup = 3; var var_Items1 = var_Item.Items; var_Items1.BackColor = 16777216; var_Items1.Padding = "4,8,4,8"; var_Items1.Add("Item 1",null,null); var_Items1.Add("Item 2",null,null); var_Items1.Add("Item 3",null,null); var_Items.Add("",null,null).ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"; ToolBar1.Refresh(); } </SCRIPT> </BODY>
VBScript
<BODY onload='Init()'> <OBJECT CLASSID="clsid:DDF58CFA-750F-45E0-8A00-CFBE431702E2" id="ToolBar1"></OBJECT> <SCRIPT LANGUAGE="VBScript"> Function Init() With ToolBar1 .VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn" With .Items With .Add("",2) .GroupPopup = 3 ' GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup With .Items .BackColor = &H1000000 .Padding = "4,8,4,8" .Add "Item 1" .Add "Item 2" .Add "Item 3" End With End With .Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" End With .Refresh End With End Function </SCRIPT> </BODY>
C# for /COM
axToolBar1.VisualAppearance.Add(1,"c:\\exontrol\\images\\normal.ebn"); EXTOOLBARLib.Items var_Items = axToolBar1.Items; EXTOOLBARLib.Item var_Item = var_Items.Add("",2,null); var_Item.GroupPopup = EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame | EXTOOLBARLib.GroupPopupEnum.exGroupPopup; EXTOOLBARLib.Items var_Items1 = var_Item.Items; var_Items1.BackColor = 0x1000000; var_Items1.Padding = "4,8,4,8"; var_Items1.Add("Item 1",null,null); var_Items1.Add("Item 2",null,null); var_Items1.Add("Item 3",null,null); var_Items.Add("",null,null).ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"; axToolBar1.Refresh();
X++ (Dynamics Ax 2009)
public void init() { COM com_Item,com_Item1,com_Items,com_Items1; anytype var_Item,var_Item1,var_Items,var_Items1; ; super(); extoolbar1.VisualAppearance().Add(1,"c:\\exontrol\\images\\normal.ebn"); var_Items = extoolbar1.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; com_Items1.BackColor(0x1000000); com_Items1.Padding("4,8,4,8"); com_Items1.Add("Item 1"); com_Items1.Add("Item 2"); com_Items1.Add("Item 3"); var_Item1 = COM::createFromObject(com_Items.Add("")); com_Item1 = var_Item1; com_Item1.ToString("[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"); extoolbar1.Refresh(); }
Delphi 8 (.NET only)
with AxToolBar1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); with Items do begin with Add('',TObject(2),Nil) do begin GroupPopup := Integer(EXTOOLBARLib.GroupPopupEnum.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib.GroupPopupEnum.exGroupPopup); with Items do begin BackColor := $1000000; Padding := '4,8,4,8'; Add('Item 1',Nil,Nil); Add('Item 2',Nil,Nil); Add('Item 3',Nil,Nil); end; end; Add('',Nil,Nil).ToString := '[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)'; end; Refresh(); end
Delphi (standard)
with ToolBar1 do begin VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn'); with Items do begin with Add('',OleVariant(2),Null) do begin GroupPopup := Integer(EXTOOLBARLib_TLB.exNoGroupPopupFrame) Or Integer(EXTOOLBARLib_TLB.exGroupPopup); with Items do begin BackColor := $1000000; Padding := '4,8,4,8'; Add('Item 1',Null,Null); Add('Item 2',Null,Null); Add('Item 3',Null,Null); end; end; Add('',Null,Null).ToString := '[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)'; end; Refresh(); end
VFP
with thisform.ToolBar1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") with .Items with .Add("",2) .GroupPopup = 3 && GroupPopupEnum.exNoGroupPopupFrame Or GroupPopupEnum.exGroupPopup with .Items .BackColor = 0x1000000 .Padding = "4,8,4,8" .Add("Item 1") .Add("Item 2") .Add("Item 3") endwith endwith .Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" endwith .Refresh endwith
dBASE Plus
local oToolBar,var_Item,var_Item1,var_Items,var_Items1 oToolBar = form.Activex1.nativeObject oToolBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") var_Items = oToolBar.Items var_Item = var_Items.Add("",2) var_Item.GroupPopup = 3 /*exNoGroupPopupFrame | exGroupPopup*/ var_Items1 = var_Item.Items var_Items1.BackColor = 0x1000000 var_Items1.Padding = "4,8,4,8" var_Items1.Add("Item 1") var_Items1.Add("Item 2") var_Items1.Add("Item 3") // var_Items.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" var_Item1 = var_Items.Add("") with (oToolBar) TemplateDef = [Dim var_Item1] TemplateDef = var_Item1 Template = [var_Item1.ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)"] endwith oToolBar.Refresh()
XBasic (Alpha Five)
Dim oToolBar as P Dim var_Item as P Dim var_Item1 as P Dim var_Items as P Dim var_Items1 as P oToolBar = topparent:CONTROL_ACTIVEX1.activex oToolBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") var_Items = oToolBar.Items var_Item = var_Items.Add("",2) var_Item.GroupPopup = 3 'exNoGroupPopupFrame + exGroupPopup var_Items1 = var_Item.Items var_Items1.BackColor = 16777216 var_Items1.Padding = "4,8,4,8" var_Items1.Add("Item 1") var_Items1.Add("Item 2") var_Items1.Add("Item 3") ' var_Items.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" var_Item1 = var_Items.Add("") oToolBar.TemplateDef = "Dim var_Item1" oToolBar.TemplateDef = var_Item1 oToolBar.Template = "var_Item1.ToString = \"[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)\"" oToolBar.Refresh()
Visual Objects
local var_Item as IItem local var_Items,var_Items1 as IItems oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn") var_Items := oDCOCX_Exontrol1:Items var_Item := var_Items:Add("",2,nil) var_Item:GroupPopup := exNoGroupPopupFrame | exGroupPopup var_Items1 := var_Item:Items var_Items1:BackColor := 0x1000000 var_Items1:Padding := "4,8,4,8" var_Items1:Add("Item 1",nil,nil) var_Items1:Add("Item 2",nil,nil) var_Items1:Add("Item 3",nil,nil) var_Items:Add("",nil,nil):ToString := "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" oDCOCX_Exontrol1:Refresh()
PowerBuilder
OleObject oToolBar,var_Item,var_Items,var_Items1 oToolBar = ole_1.Object oToolBar.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") var_Items = oToolBar.Items var_Item = var_Items.Add("",2) var_Item.GroupPopup = 3 /*exNoGroupPopupFrame | exGroupPopup*/ var_Items1 = var_Item.Items var_Items1.BackColor = 16777216 /*0x1000000*/ var_Items1.Padding = "4,8,4,8" var_Items1.Add("Item 1") var_Items1.Add("Item 2") var_Items1.Add("Item 3") var_Items.Add("").ToString = "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" oToolBar.Refresh()
Visual DataFlex
Procedure OnCreate Forward Send OnCreate Variant voAppearance Get ComVisualAppearance to voAppearance Handle hoAppearance Get Create (RefClass(cComAppearance)) to hoAppearance Set pvComObject of hoAppearance to voAppearance Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing Send Destroy to hoAppearance 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 Set ComBackColor of hoItems1 to |CI$1000000 Set ComPadding of hoItems1 to "4,8,4,8" Get ComAdd of hoItems1 "Item 1" Nothing Nothing to Nothing Get ComAdd of hoItems1 "Item 2" Nothing Nothing to Nothing Get ComAdd of hoItems1 "Item 3" Nothing Nothing to Nothing Send Destroy to hoItems1 Send Destroy to hoItem Variant voItem1 Get ComAdd of hoItems "" Nothing Nothing to voItem1 Handle hoItem1 Get Create (RefClass(cComItem)) to hoItem1 Set pvComObject of hoItem1 to voItem1 Set ComToString of hoItem1 to "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" Send Destroy to hoItem1 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 LOCAL oItems,oItems1 LOCAL oToolBar oForm := XbpDialog():new( AppDesktop() ) oForm:drawingArea:clipChildren := .T. oForm:create( ,,{100,100}, {640,480},, .F. ) oForm:close := {|| PostAppEvent( xbeP_Quit )} oToolBar := XbpActiveXControl():new( oForm:drawingArea ) oToolBar:CLSID := "Exontrol.ToolBar.1" /*{DDF58CFA-750F-45E0-8A00-CFBE431702E2}*/ oToolBar:create(,, {10,60},{610,370} ) oToolBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn") oItems := oToolBar:Items() oItem := oItems:Add("",2) oItem:GroupPopup := 3/*exNoGroupPopupFrame+exGroupPopup*/ oItems1 := oItem:Items() oItems1:SetProperty("BackColor",0x1000000) oItems1:Padding := "4,8,4,8" oItems1:Add("Item 1") oItems1:Add("Item 2") oItems1:Add("Item 3") oItems:Add(""):ToString := "[group=0x03][itemspad=4,8,4,8][itemsbg=0x1000000](Item 1,Item 2,Item 3)" oToolBar:Refresh() oForm:Show() DO WHILE nEvent != xbeP_Quit nEvent := AppEvent( @mp1, @mp2, @oXbp ) oXbp:handleEvent( nEvent, mp1, mp2 ) ENDDO RETURN