ToolBarCRD.Background Property (ExToolBar.CRD)

The Background property specifies a background color or a visual appearance for specific parts in the control. If the Background property is 0, the control draws the part as default. Use the Add method to add new skins to the control. Use the Remove method to remove a specific skin from the control. Use the Clear method to remove all skins in the control.

How can I change the background of the hovering item?

VBA (MS Access, Excell...)

With ToolBarCRD1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(155) = &H1000000
	.Format = "1,2,3,4"
End With

VB6

With ToolBarCRD1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Background(exToolBarButtonHotBackColor) = &H1000000
	.Format = "1,2,3,4"
End With

VB.NET

With Extoolbarcrd1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background32(exontrol.EXTOOLBARCRDLib.BackgroundPartEnum.exToolBarButtonHotBackColor,&H1000000)
	.Format = "1,2,3,4"
End With

VB.NET for /COM

With AxToolBarCRD1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.set_Background(EXTOOLBARCRDLib.BackgroundPartEnum.exToolBarButtonHotBackColor,16777216)
	.Format = "1,2,3,4"
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXTOOLBARCRDLib' for the library: 'ExToolBar.CRD 1.0 Control Library'

	#import <ExToolBar.CRD.dll>
	using namespace EXTOOLBARCRDLib;
*/
EXTOOLBARCRDLib::IToolBarCRDPtr spToolBarCRD1 = GetDlgItem(IDC_TOOLBARCRD1)->GetControlUnknown();
spToolBarCRD1->GetVisualAppearance()->Add(1,"c:\\exontrol\\images\\normal.ebn");
spToolBarCRD1->PutBackground(EXTOOLBARCRDLib::exToolBarButtonHotBackColor,0x1000000);
spToolBarCRD1->PutFormat(L"1,2,3,4");

C++ Builder

ToolBarCRD1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
ToolBarCRD1->Background[Extoolbarcrdlib_tlb::BackgroundPartEnum::exToolBarButtonHotBackColor] = 0x1000000;
ToolBarCRD1->Format = L"1,2,3,4";

extoolbarcrd1.VisualAppearance.Add(1,"c:\\exontrol\\images\\normal.ebn");
extoolbarcrd1.set_Background32(exontrol.EXTOOLBARCRDLib.BackgroundPartEnum.exToolBarButtonHotBackColor,0x1000000);
extoolbarcrd1.Format = "1,2,3,4";

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	ToolBarCRD1.VisualAppearance.Add(1,"c:\\exontrol\\images\\normal.ebn");
	ToolBarCRD1.Background(155) = 16777216;
	ToolBarCRD1.Format = "1,2,3,4";
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:DD586AE6-F2A0-4308-8F34-8016B16F000E" id="ToolBarCRD1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ToolBarCRD1
		.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
		.Background(155) = &H1000000
		.Format = "1,2,3,4"
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axToolBarCRD1.VisualAppearance.Add(1,"c:\\exontrol\\images\\normal.ebn");
axToolBarCRD1.set_Background(EXTOOLBARCRDLib.BackgroundPartEnum.exToolBarButtonHotBackColor,0x1000000);
axToolBarCRD1.Format = "1,2,3,4";

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	extoolbarcrd1.VisualAppearance().Add(1,"c:\\exontrol\\images\\normal.ebn");
	extoolbarcrd1.Background(155/*exToolBarButtonHotBackColor*/,0x1000000);
	extoolbarcrd1.Format("1,2,3,4");
}

Delphi 8 (.NET only)

with AxToolBarCRD1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	set_Background(EXTOOLBARCRDLib.BackgroundPartEnum.exToolBarButtonHotBackColor,$1000000);
	Format := '1,2,3,4';
end

Delphi (standard)

with ToolBarCRD1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXTOOLBARCRDLib_TLB.exToolBarButtonHotBackColor] := $1000000;
	Format := '1,2,3,4';
end

VFP

with thisform.ToolBarCRD1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Object.Background(155) = 0x1000000
	.Format = "1,2,3,4"
endwith

dBASE Plus

local oToolBarCRD

oToolBarCRD = form.EXTOOLBAR_CRDACTIVEXCONTROL1.nativeObject
oToolBarCRD.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oToolBarCRD.Template = [Background(155) = 16777216] // oToolBarCRD.Background(155) = 0x1000000
oToolBarCRD.Format = "1,2,3,4"

XBasic (Alpha Five)

Dim oToolBarCRD as P

oToolBarCRD = topparent:CONTROL_ACTIVEX1.activex
oToolBarCRD.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oToolBarCRD.Template = "Background(155) = 16777216" // oToolBarCRD.Background(155) = 16777216
oToolBarCRD.Format = "1,2,3,4"

Visual Objects


oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exToolBarButtonHotBackColor] := 0x1000000
oDCOCX_Exontrol1:Format := "1,2,3,4"

PowerBuilder

OleObject oToolBarCRD

oToolBarCRD = ole_1.Object
oToolBarCRD.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oToolBarCRD.Background(155,16777216 /*0x1000000*/)
oToolBarCRD.Format = "1,2,3,4"

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
	Set ComBackground OLEexToolBarButtonHotBackColor to |CI$1000000
	Set ComFormat to "1,2,3,4"
End_Procedure

XBase++

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

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

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

	oToolBarCRD := XbpActiveXControl():new( oForm:drawingArea )
	oToolBarCRD:CLSID  := "Exontrol.ToolBar.CRD.1" /*{DD586AE6-F2A0-4308-8F34-8016B16F000E}*/
	oToolBarCRD:create(,, {10,60},{610,370} )

		oToolBarCRD:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oToolBarCRD:SetProperty("Background",155/*exToolBarButtonHotBackColor*/,0x1000000)
		oToolBarCRD:Format := "1,2,3,4"

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

		Type	Description
		Part as BackgroundPartEnum	A BackgroundPartEnum expression that indicates a part in the control.
		Color	A Color expression that indicates the background color for a specified part. The last 7 bits in the high significant byte of the color to 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.