property Frame.BackColor as Color
Gets or sets a value that indicates the frame's background color.

 TypeDescription 
   Color A color expression that defines the frame's background color. 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.  
By default, the BackColor property is -1, which indicates that no background color is applied. The BackColor property defines the frame's background color. The BackgroundExt property of the Frame object, defines unlimited options to show any HTML text, images, colors, EBNs, patterns, borders anywhere on the frame's background. The Pattern property defines a different border or pattern to be shown. The Padding property returns or sets a value that indicates the padding of the frame.

The following screen shot shows the frame with a solid background color:

The following screen shot shows the frame with an EBN background color:

The following screen shot shows how you can define a solid background color for the frame ( with no border ).

VBA (MS Access, Excell...)

With ChartView1
	.BeginUpdate 
	With .Nodes
		.Add "Child <b>1</b>",,"1234"
		.Add "Sub 1","1234","AK1"
		.Add "Sub 2","1234","AK2"
		.Add "Sub 3","1234"
		.Add("Child <b>2.1</b>").AddGroup "Child <b>2.2</b>"
	End With
	With .Frames.Add("AK1,AK2")
		.BackColor = RGB(255,0,0)
		.Pattern.Type = 0
	End With
	.EndUpdate 
End With

VB6

With ChartView1
	.BeginUpdate 
	With .Nodes
		.Add "Child <b>1</b>",,"1234"
		.Add "Sub 1","1234","AK1"
		.Add "Sub 2","1234","AK2"
		.Add "Sub 3","1234"
		.Add("Child <b>2.1</b>").AddGroup "Child <b>2.2</b>"
	End With
	With .Frames.Add("AK1,AK2")
		.BackColor = RGB(255,0,0)
		.Pattern.Type = exPatternEmpty
	End With
	.EndUpdate 
End With

VB.NET

With Exchartview1
	.BeginUpdate()
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("AK1,AK2")
		.BackColor = Color.FromArgb(255,0,0)
		.Pattern.Type = exontrol.EXORGCHARTLib.PatternEnum.exPatternEmpty
	End With
	.EndUpdate()
End With

VB.NET for /COM

With AxChartView1
	.BeginUpdate()
	With .Nodes
		.Add("Child <b>1</b>",,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	End With
	With .Frames.Add("AK1,AK2")
		.BackColor = RGB(255,0,0)
		.Pattern.Type = EXORGCHARTLib.PatternEnum.exPatternEmpty
	End With
	.EndUpdate()
End With

C++

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

	#import <ExOrgChart.dll>
	using namespace EXORGCHARTLib;
*/
EXORGCHARTLib::IChartViewPtr spChartView1 = GetDlgItem(IDC_CHARTVIEW1)->GetControlUnknown();
spChartView1->BeginUpdate();
EXORGCHARTLib::INodesPtr var_Nodes = spChartView1->GetNodes();
	var_Nodes->Add(L"Child <b>1</b>",vtMissing,"1234",vtMissing,vtMissing);
	var_Nodes->Add(L"Sub 1","1234","AK1",vtMissing,vtMissing);
	var_Nodes->Add(L"Sub 2","1234","AK2",vtMissing,vtMissing);
	var_Nodes->Add(L"Sub 3","1234",vtMissing,vtMissing,vtMissing);
	var_Nodes->Add(L"Child <b>2.1</b>",vtMissing,vtMissing,vtMissing,vtMissing)->AddGroup(L"Child <b>2.2</b>",vtMissing,vtMissing);
EXORGCHARTLib::IFramePtr var_Frame = spChartView1->GetFrames()->Add("AK1,AK2");
	var_Frame->PutBackColor(RGB(255,0,0));
	var_Frame->GetPattern()->PutType(EXORGCHARTLib::exPatternEmpty);
spChartView1->EndUpdate();

C++ Builder

ChartView1->BeginUpdate();
Exorgchartlib_tlb::INodesPtr var_Nodes = ChartView1->Nodes;
	var_Nodes->Add(L"Child <b>1</b>",TNoParam(),TVariant("1234"),TNoParam(),TNoParam());
	var_Nodes->Add(L"Sub 1",TVariant("1234"),TVariant("AK1"),TNoParam(),TNoParam());
	var_Nodes->Add(L"Sub 2",TVariant("1234"),TVariant("AK2"),TNoParam(),TNoParam());
	var_Nodes->Add(L"Sub 3",TVariant("1234"),TNoParam(),TNoParam(),TNoParam());
	var_Nodes->Add(L"Child <b>2.1</b>",TNoParam(),TNoParam(),TNoParam(),TNoParam())->AddGroup(L"Child <b>2.2</b>",TNoParam(),TNoParam());
Exorgchartlib_tlb::IFramePtr var_Frame = ChartView1->Frames->Add(TVariant("AK1,AK2"));
	var_Frame->BackColor = RGB(255,0,0);
	var_Frame->Pattern->Type = Exorgchartlib_tlb::PatternEnum::exPatternEmpty;
ChartView1->EndUpdate();

C#

exchartview1.BeginUpdate();
exontrol.EXORGCHARTLib.Nodes var_Nodes = exchartview1.Nodes;
	var_Nodes.Add("Child <b>1</b>",null,"1234",null,null);
	var_Nodes.Add("Sub 1","1234","AK1",null,null);
	var_Nodes.Add("Sub 2","1234","AK2",null,null);
	var_Nodes.Add("Sub 3","1234",null,null,null);
	var_Nodes.Add("Child <b>2.1</b>",null,null,null,null).AddGroup("Child <b>2.2</b>",null,null);
exontrol.EXORGCHARTLib.Frame var_Frame = exchartview1.Frames.Add("AK1,AK2");
	var_Frame.BackColor = Color.FromArgb(255,0,0);
	var_Frame.Pattern.Type = exontrol.EXORGCHARTLib.PatternEnum.exPatternEmpty;
exchartview1.EndUpdate();

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	ChartView1.BeginUpdate();
	var var_Nodes = ChartView1.Nodes;
		var_Nodes.Add("Child <b>1</b>",null,"1234",null,null);
		var_Nodes.Add("Sub 1","1234","AK1",null,null);
		var_Nodes.Add("Sub 2","1234","AK2",null,null);
		var_Nodes.Add("Sub 3","1234",null,null,null);
		var_Nodes.Add("Child <b>2.1</b>",null,null,null,null).AddGroup("Child <b>2.2</b>",null,null);
	var var_Frame = ChartView1.Frames.Add("AK1,AK2");
		var_Frame.BackColor = 255;
		var_Frame.Pattern.Type = 0;
	ChartView1.EndUpdate();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:F4DFE455-01FE-420E-A088-64346DCC3791" id="ChartView1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.BeginUpdate 
		With .Nodes
			.Add "Child <b>1</b>",,"1234"
			.Add "Sub 1","1234","AK1"
			.Add "Sub 2","1234","AK2"
			.Add "Sub 3","1234"
			.Add("Child <b>2.1</b>").AddGroup "Child <b>2.2</b>"
		End With
		With .Frames.Add("AK1,AK2")
			.BackColor = RGB(255,0,0)
			.Pattern.Type = 0
		End With
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axChartView1.BeginUpdate();
EXORGCHARTLib.Nodes var_Nodes = axChartView1.Nodes;
	var_Nodes.Add("Child <b>1</b>",null,"1234",null,null);
	var_Nodes.Add("Sub 1","1234","AK1",null,null);
	var_Nodes.Add("Sub 2","1234","AK2",null,null);
	var_Nodes.Add("Sub 3","1234",null,null,null);
	var_Nodes.Add("Child <b>2.1</b>",null,null,null,null).AddGroup("Child <b>2.2</b>",null,null);
EXORGCHARTLib.Frame var_Frame = axChartView1.Frames.Add("AK1,AK2");
	var_Frame.BackColor = (uint)ColorTranslator.ToWin32(Color.FromArgb(255,0,0));
	var_Frame.Pattern.Type = EXORGCHARTLib.PatternEnum.exPatternEmpty;
axChartView1.EndUpdate();

X++ (Dynamics Ax 2009)

public void init()
{
	COM com_Frame,com_Node,com_Nodes,com_Pattern;
	anytype var_Frame,var_Node,var_Nodes,var_Pattern;
	;

	super();

	exchartview1.BeginUpdate();
	var_Nodes = exchartview1.Nodes(); com_Nodes = var_Nodes;
		com_Nodes.Add("Child <b>1</b>",,"1234");
		com_Nodes.Add("Sub 1","1234","AK1");
		com_Nodes.Add("Sub 2","1234","AK2");
		com_Nodes.Add("Sub 3","1234");
		var_Node = COM::createFromObject(com_Nodes.Add("Child <b>2.1</b>")); com_Node = var_Node;
		com_Node.AddGroup("Child <b>2.2</b>");
	var_Frame = COM::createFromObject(exchartview1.Frames()).Add("AK1,AK2"); com_Frame = var_Frame;
		com_Frame.BackColor(WinApi::RGB2int(255,0,0));
		var_Pattern = COM::createFromObject(com_Frame.Pattern()); com_Pattern = var_Pattern;
		com_Pattern.Type(0/*exPatternEmpty*/);
	exchartview1.EndUpdate();
}

Delphi 8 (.NET only)

with AxChartView1 do
begin
	BeginUpdate();
	with Nodes do
	begin
		Add('Child <b>1</b>',Nil,'1234',Nil,Nil);
		Add('Sub 1','1234','AK1',Nil,Nil);
		Add('Sub 2','1234','AK2',Nil,Nil);
		Add('Sub 3','1234',Nil,Nil,Nil);
		Add('Child <b>2.1</b>',Nil,Nil,Nil,Nil).AddGroup('Child <b>2.2</b>',Nil,Nil);
	end;
	with Frames.Add('AK1,AK2') do
	begin
		BackColor := $ff;
		Pattern.Type := EXORGCHARTLib.PatternEnum.exPatternEmpty;
	end;
	EndUpdate();
end

Delphi (standard)

with ChartView1 do
begin
	BeginUpdate();
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234','AK1',Null,Null);
		Add('Sub 2','1234','AK2',Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2.1</b>',Null,Null,Null,Null).AddGroup('Child <b>2.2</b>',Null,Null);
	end;
	with Frames.Add('AK1,AK2') do
	begin
		BackColor := $ff;
		Pattern.Type := EXORGCHARTLib_TLB.exPatternEmpty;
	end;
	EndUpdate();
end

VFP

with thisform.ChartView1
	.BeginUpdate
	with .Nodes
		.Add("Child <b>1</b>",Null,"1234")
		.Add("Sub 1","1234","AK1")
		.Add("Sub 2","1234","AK2")
		.Add("Sub 3","1234")
		.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
	endwith
	with .Frames.Add("AK1,AK2")
		.BackColor = RGB(255,0,0)
		.Pattern.Type = 0
	endwith
	.EndUpdate
endwith

dBASE Plus

local oChartView,var_Frame,var_Nodes

oChartView = form.EXORGCHARTACTIVEXCONTROL1.nativeObject
oChartView.BeginUpdate()
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",null,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1,AK2")
	var_Frame.BackColor = 0xff
	var_Frame.Pattern.Type = 0
oChartView.EndUpdate()

XBasic (Alpha Five)

Dim oChartView as P
Dim var_Frame as P
Dim var_Nodes as P

oChartView = topparent:CONTROL_ACTIVEX1.activex
oChartView.BeginUpdate()
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1,AK2")
	var_Frame.BackColor = 255
	var_Frame.Pattern.Type = 0
oChartView.EndUpdate()

Visual Objects

local var_Frame as IFrame
local var_Nodes as INodes

oDCOCX_Exontrol1:BeginUpdate()
var_Nodes := oDCOCX_Exontrol1:Nodes
	var_Nodes:Add("Child <b>1</b>",nil,"1234",nil,nil)
	var_Nodes:Add("Sub 1","1234","AK1",nil,nil)
	var_Nodes:Add("Sub 2","1234","AK2",nil,nil)
	var_Nodes:Add("Sub 3","1234",nil,nil,nil)
	var_Nodes:Add("Child <b>2.1</b>",nil,nil,nil,nil):AddGroup("Child <b>2.2</b>",nil,nil)
var_Frame := oDCOCX_Exontrol1:Frames:Add("AK1,AK2")
	var_Frame:BackColor := RGB(255,0,0)
	var_Frame:Pattern:Type := exPatternEmpty
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

OleObject oChartView,var_Frame,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
var_Nodes = oChartView.Nodes
	var_Nodes.Add("Child <b>1</b>",,"1234")
	var_Nodes.Add("Sub 1","1234","AK1")
	var_Nodes.Add("Sub 2","1234","AK2")
	var_Nodes.Add("Sub 3","1234")
	var_Nodes.Add("Child <b>2.1</b>").AddGroup("Child <b>2.2</b>")
var_Frame = oChartView.Frames.Add("AK1,AK2")
	var_Frame.BackColor = RGB(255,0,0)
	var_Frame.Pattern.Type = 0
oChartView.EndUpdate()

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Get ComAdd of hoNodes "Child <b>1</b>" "1234" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 1" "1234" "AK1" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 2" "1234" "AK2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "Sub 3" "1234" Nothing Nothing Nothing to Nothing
		Variant voNode
		Get ComAdd of hoNodes "Child <b>2.1</b>" Nothing Nothing Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Get ComAddGroup of hoNode "Child <b>2.2</b>" Nothing Nothing to Nothing
		Send Destroy to hoNode
	Send Destroy to hoNodes
	Variant voFrames
	Get ComFrames to voFrames
	Handle hoFrames
	Get Create (RefClass(cComFrames)) to hoFrames
	Set pvComObject of hoFrames to voFrames
		Variant voFrame
		Get ComAdd of hoFrames "AK1,AK2" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComBackColor of hoFrame to (RGB(255,0,0))
			Variant voPattern
			Get ComPattern of hoFrame to voPattern
			Handle hoPattern
			Get Create (RefClass(cComPattern)) to hoPattern
			Set pvComObject of hoPattern to voPattern
				Set ComType of hoPattern to OLEexPatternEmpty
			Send Destroy to hoPattern
		Send Destroy to hoFrame
	Send Destroy to hoFrames
	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 oChartView
	LOCAL oFrame
	LOCAL oNodes

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

	oChartView := XbpActiveXControl():new( oForm:drawingArea )
	oChartView:CLSID  := "Exontrol.ChartView.1" /*{F4DFE455-01FE-420E-A088-64346DCC3791}*/
	oChartView:create(,, {10,60},{610,370} )

		oChartView:BeginUpdate()
		oNodes := oChartView:Nodes()
			oNodes:Add("Child <b>1</b>",,"1234")
			oNodes:Add("Sub 1","1234","AK1")
			oNodes:Add("Sub 2","1234","AK2")
			oNodes:Add("Sub 3","1234")
			oNodes:Add("Child <b>2.1</b>"):AddGroup("Child <b>2.2</b>")
		oFrame := oChartView:Frames():Add("AK1,AK2")
			oFrame:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
			oFrame:Pattern():Type := 0/*exPatternEmpty*/
		oChartView:EndUpdate()

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

 


Send comments on this topic.
1999-2016 Exontrol.COM, Software. All rights reserved.