Type | Description | |||
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. |
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