property Frame.ShowOnBackground as Boolean
Shows the frame on the control's background.

 TypeDescription 
   Boolean A Boolean expression that specifies whether the frame is shown on the back or front of the chart.  
By default, the ShowOnBackground property is True, which indicates that the frame is shown on the back of the chart. The ShowOnBackground property specifies whether the frame is shown on the back or front of the chart. The Visible property shows or hides a specified frame. The Remove method removes a specified frame. The Clear method removes all Frame objects.

The following sample shows how you can can draw a pattern on a node:

VBA (MS Access, Excell...)

With ChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").ShowLinkDir = False
		.Add "L1_B",,"LB"
		.Add "L2_A","LA","LA2"
		.Add "L2_B","LB","LB2"
	End With
	With .Frames.Add("LB")
		.Padding(-1) = -2
		With .Pattern
			.Type = 6
			.Color = RGB(128,128,128)
		End With
		.ShowOnBackground = False
	End With
End With

VB6

With ChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").ShowLinkDir = False
		.Add "L1_B",,"LB"
		.Add "L2_A","LA","LA2"
		.Add "L2_B","LB","LB2"
	End With
	With .Frames.Add("LB")
		.Padding(exPaddingAll) = -2
		With .Pattern
			.Type = exPatternBDiagonal
			.Color = RGB(128,128,128)
		End With
		.ShowOnBackground = False
	End With
End With

VB.NET

With Exchartview1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = Color.FromArgb(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").ShowLinkDir = False
		.Add("L1_B",,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
	With .Frames.Add("LB")
		.set_Padding(exontrol.EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,-2)
		With .Pattern
			.Type = exontrol.EXORGCHARTLib.PatternEnum.exPatternBDiagonal
			.Color = Color.FromArgb(128,128,128)
		End With
		.ShowOnBackground = False
	End With
End With

VB.NET for /COM

With AxChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",,"LA").ShowLinkDir = False
		.Add("L1_B",,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	End With
	With .Frames.Add("LB")
		.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = -2
		With .Pattern
			.Type = EXORGCHARTLib.PatternEnum.exPatternBDiagonal
			.Color = RGB(128,128,128)
		End With
		.ShowOnBackground = False
	End With
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->PutIndentSiblingY(30);
spChartView1->PutShowLinksDir(VARIANT_TRUE);
spChartView1->PutPenWidthLink(2);
spChartView1->PutLinkColor(RGB(0,0,0));
spChartView1->PutAntiAliasing(VARIANT_TRUE);
EXORGCHARTLib::INodesPtr var_Nodes = spChartView1->GetNodes();
	var_Nodes->Add(L"L1_A",vtMissing,"LA",vtMissing,vtMissing)->PutShowLinkDir(VARIANT_FALSE);
	var_Nodes->Add(L"L1_B",vtMissing,"LB",vtMissing,vtMissing);
	var_Nodes->Add(L"L2_A","LA","LA2",vtMissing,vtMissing);
	var_Nodes->Add(L"L2_B","LB","LB2",vtMissing,vtMissing);
EXORGCHARTLib::IFramePtr var_Frame = spChartView1->GetFrames()->Add("LB");
	var_Frame->PutPadding(EXORGCHARTLib::exPaddingAll,-2);
	EXORGCHARTLib::IPatternPtr var_Pattern = var_Frame->GetPattern();
		var_Pattern->PutType(EXORGCHARTLib::exPatternBDiagonal);
		var_Pattern->PutColor(RGB(128,128,128));
	var_Frame->PutShowOnBackground(VARIANT_FALSE);

C++ Builder

ChartView1->IndentSiblingY = 30;
ChartView1->ShowLinksDir = true;
ChartView1->PenWidthLink = 2;
ChartView1->LinkColor = RGB(0,0,0);
ChartView1->AntiAliasing = true;
Exorgchartlib_tlb::INodesPtr var_Nodes = ChartView1->Nodes;
	var_Nodes->Add(L"L1_A",TNoParam(),TVariant("LA"),TNoParam(),TNoParam())->ShowLinkDir = false;
	var_Nodes->Add(L"L1_B",TNoParam(),TVariant("LB"),TNoParam(),TNoParam());
	var_Nodes->Add(L"L2_A",TVariant("LA"),TVariant("LA2"),TNoParam(),TNoParam());
	var_Nodes->Add(L"L2_B",TVariant("LB"),TVariant("LB2"),TNoParam(),TNoParam());
Exorgchartlib_tlb::IFramePtr var_Frame = ChartView1->Frames->Add(TVariant("LB"));
	var_Frame->set_Padding(Exorgchartlib_tlb::PaddingEdgeEnum::exPaddingAll,-2);
	Exorgchartlib_tlb::IPatternPtr var_Pattern = var_Frame->Pattern;
		var_Pattern->Type = Exorgchartlib_tlb::PatternEnum::exPatternBDiagonal;
		var_Pattern->Color = RGB(128,128,128);
	var_Frame->ShowOnBackground = false;

C#

exchartview1.IndentSiblingY = 30;
exchartview1.ShowLinksDir = true;
exchartview1.PenWidthLink = 2;
exchartview1.LinkColor = Color.FromArgb(0,0,0);
exchartview1.AntiAliasing = true;
exontrol.EXORGCHARTLib.Nodes var_Nodes = exchartview1.Nodes;
	var_Nodes.Add("L1_A",null,"LA",null,null).ShowLinkDir = false;
	var_Nodes.Add("L1_B",null,"LB",null,null);
	var_Nodes.Add("L2_A","LA","LA2",null,null);
	var_Nodes.Add("L2_B","LB","LB2",null,null);
exontrol.EXORGCHARTLib.Frame var_Frame = exchartview1.Frames.Add("LB");
	var_Frame.set_Padding(exontrol.EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,-2);
	exontrol.EXORGCHARTLib.Pattern var_Pattern = var_Frame.Pattern;
		var_Pattern.Type = exontrol.EXORGCHARTLib.PatternEnum.exPatternBDiagonal;
		var_Pattern.Color = Color.FromArgb(128,128,128);
	var_Frame.ShowOnBackground = false;

JScript/JavaScript

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

<SCRIPT LANGUAGE="JScript">
function Init()
{
	ChartView1.IndentSiblingY = 30;
	ChartView1.ShowLinksDir = true;
	ChartView1.PenWidthLink = 2;
	ChartView1.LinkColor = 0;
	ChartView1.AntiAliasing = true;
	var var_Nodes = ChartView1.Nodes;
		var_Nodes.Add("L1_A",null,"LA",null,null).ShowLinkDir = false;
		var_Nodes.Add("L1_B",null,"LB",null,null);
		var_Nodes.Add("L2_A","LA","LA2",null,null);
		var_Nodes.Add("L2_B","LB","LB2",null,null);
	var var_Frame = ChartView1.Frames.Add("LB");
		var_Frame.Padding(-1) = -2;
		var var_Pattern = var_Frame.Pattern;
			var_Pattern.Type = 6;
			var_Pattern.Color = 8421504;
		var_Frame.ShowOnBackground = false;
}
</SCRIPT>
</BODY>

VBScript

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

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With ChartView1
		.IndentSiblingY = 30
		.ShowLinksDir = True
		.PenWidthLink = 2
		.LinkColor = RGB(0,0,0)
		.AntiAliasing = True
		With .Nodes
			.Add("L1_A",,"LA").ShowLinkDir = False
			.Add "L1_B",,"LB"
			.Add "L2_A","LA","LA2"
			.Add "L2_B","LB","LB2"
		End With
		With .Frames.Add("LB")
			.Padding(-1) = -2
			With .Pattern
				.Type = 6
				.Color = RGB(128,128,128)
			End With
			.ShowOnBackground = False
		End With
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axChartView1.IndentSiblingY = 30;
axChartView1.ShowLinksDir = true;
axChartView1.PenWidthLink = 2;
axChartView1.LinkColor = Color.FromArgb(0,0,0);
axChartView1.AntiAliasing = true;
EXORGCHARTLib.Nodes var_Nodes = axChartView1.Nodes;
	var_Nodes.Add("L1_A",null,"LA",null,null).ShowLinkDir = false;
	var_Nodes.Add("L1_B",null,"LB",null,null);
	var_Nodes.Add("L2_A","LA","LA2",null,null);
	var_Nodes.Add("L2_B","LB","LB2",null,null);
EXORGCHARTLib.Frame var_Frame = axChartView1.Frames.Add("LB");
	var_Frame.set_Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,-2);
	EXORGCHARTLib.Pattern var_Pattern = var_Frame.Pattern;
		var_Pattern.Type = EXORGCHARTLib.PatternEnum.exPatternBDiagonal;
		var_Pattern.Color = (uint)ColorTranslator.ToWin32(Color.FromArgb(128,128,128));
	var_Frame.ShowOnBackground = false;

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.IndentSiblingY(30);
	exchartview1.ShowLinksDir(true);
	exchartview1.PenWidthLink(2);
	exchartview1.LinkColor(WinApi::RGB2int(0,0,0));
	exchartview1.AntiAliasing(true);
	var_Nodes = exchartview1.Nodes(); com_Nodes = var_Nodes;
		var_Node = COM::createFromObject(com_Nodes.Add("L1_A",,"LA")); com_Node = var_Node;
		com_Node.ShowLinkDir(false);
		com_Nodes.Add("L1_B",,"LB");
		com_Nodes.Add("L2_A","LA","LA2");
		com_Nodes.Add("L2_B","LB","LB2");
	var_Frame = COM::createFromObject(exchartview1.Frames()).Add("LB"); com_Frame = var_Frame;
		com_Frame.Padding(-1/*exPaddingAll*/,-2);
		var_Pattern = com_Frame.Pattern(); com_Pattern = var_Pattern;
			com_Pattern.Type(6/*exPatternBDiagonal*/);
			com_Pattern.Color(WinApi::RGB2int(128,128,128));
		com_Frame.ShowOnBackground(false);
}

Delphi 8 (.NET only)

with AxChartView1 do
begin
	IndentSiblingY := 30;
	ShowLinksDir := True;
	PenWidthLink := 2;
	LinkColor := Color.FromArgb(0,0,0);
	AntiAliasing := True;
	with Nodes do
	begin
		Add('L1_A',Nil,'LA',Nil,Nil).ShowLinkDir := False;
		Add('L1_B',Nil,'LB',Nil,Nil);
		Add('L2_A','LA','LA2',Nil,Nil);
		Add('L2_B','LB','LB2',Nil,Nil);
	end;
	with Frames.Add('LB') do
	begin
		Padding[EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll] := -2;
		with Pattern do
		begin
			Type := EXORGCHARTLib.PatternEnum.exPatternBDiagonal;
			Color := $808080;
		end;
		ShowOnBackground := False;
	end;
end

Delphi (standard)

with ChartView1 do
begin
	IndentSiblingY := 30;
	ShowLinksDir := True;
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	AntiAliasing := True;
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null).ShowLinkDir := False;
		Add('L1_B',Null,'LB',Null,Null);
		Add('L2_A','LA','LA2',Null,Null);
		Add('L2_B','LB','LB2',Null,Null);
	end;
	with Frames.Add('LB') do
	begin
		Padding[EXORGCHARTLib_TLB.exPaddingAll] := -2;
		with Pattern do
		begin
			Type := EXORGCHARTLib_TLB.exPatternBDiagonal;
			Color := $808080;
		end;
		ShowOnBackground := False;
	end;
end

VFP

with thisform.ChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = .T.
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = .T.
	with .Nodes
		.Add("L1_A",Null,"LA").ShowLinkDir = .F.
		.Add("L1_B",Null,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	endwith
	with .Frames.Add("LB")
		.Padding(-1) = -2
		with .Pattern
			.Type = 6
			.Color = RGB(128,128,128)
		endwith
		.ShowOnBackground = .F.
	endwith
endwith

dBASE Plus

local oChartView,var_Frame,var_Node,var_Nodes,var_Pattern

oChartView = form.EXORGCHARTACTIVEXCONTROL1.nativeObject
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = 0x0
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	// var_Nodes.Add("L1_A",null,"LA").ShowLinkDir = false
	var_Node = var_Nodes.Add("L1_A",null,"LA")
	with (oChartView)
		TemplateDef = [dim var_Node]
		TemplateDef = var_Node
		Template = [var_Node.ShowLinkDir = False]
	endwith
	var_Nodes.Add("L1_B",null,"LB")
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B","LB","LB2")
var_Frame = oChartView.Frames.Add("LB")
	// var_Frame.Padding(-1) = -2
	with (oChartView)
		TemplateDef = [dim var_Frame]
		TemplateDef = var_Frame
		Template = [var_Frame.Padding(-1) = -2]
	endwith
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 6
		var_Pattern.Color = 0x808080
	var_Frame.ShowOnBackground = false

XBasic (Alpha Five)

Dim oChartView as P
Dim var_Frame as P
Dim var_Node as local
Dim var_Nodes as P
Dim var_Pattern as P

oChartView = topparent:CONTROL_ACTIVEX1.activex
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = .t.
oChartView.PenWidthLink = 2
oChartView.LinkColor = 0
oChartView.AntiAliasing = .t.
var_Nodes = oChartView.Nodes
	' var_Nodes.Add("L1_A",,"LA").ShowLinkDir = .f.
	var_Node = var_Nodes.Add("L1_A",,"LA")
	oChartView.TemplateDef = "dim var_Node"
	oChartView.TemplateDef = var_Node
	oChartView.Template = "var_Node.ShowLinkDir = False"

	var_Nodes.Add("L1_B",,"LB")
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B","LB","LB2")
var_Frame = oChartView.Frames.Add("LB")
	' var_Frame.Padding(-1) = -2
	oChartView.TemplateDef = "dim var_Frame"
	oChartView.TemplateDef = var_Frame
	oChartView.Template = "var_Frame.Padding(-1) = -2"

	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 6
		var_Pattern.Color = 8421504
	var_Frame.ShowOnBackground = .f.

Visual Objects

local var_Frame as IFrame
local var_Nodes as INodes
local var_Pattern as IPattern

oDCOCX_Exontrol1:IndentSiblingY := 30
oDCOCX_Exontrol1:ShowLinksDir := true
oDCOCX_Exontrol1:PenWidthLink := 2
oDCOCX_Exontrol1:LinkColor := RGB(0,0,0)
oDCOCX_Exontrol1:AntiAliasing := true
var_Nodes := oDCOCX_Exontrol1:Nodes
	var_Nodes:Add("L1_A",nil,"LA",nil,nil):ShowLinkDir := false
	var_Nodes:Add("L1_B",nil,"LB",nil,nil)
	var_Nodes:Add("L2_A","LA","LA2",nil,nil)
	var_Nodes:Add("L2_B","LB","LB2",nil,nil)
var_Frame := oDCOCX_Exontrol1:Frames:Add("LB")
	var_Frame:[Padding,exPaddingAll] := -2
	var_Pattern := var_Frame:Pattern
		var_Pattern:Type := exPatternBDiagonal
		var_Pattern:Color := RGB(128,128,128)
	var_Frame:ShowOnBackground := false

PowerBuilder

OleObject oChartView,var_Frame,var_Nodes,var_Pattern

oChartView = ole_1.Object
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1_A",,"LA").ShowLinkDir = false
	var_Nodes.Add("L1_B",,"LB")
	var_Nodes.Add("L2_A","LA","LA2")
	var_Nodes.Add("L2_B","LB","LB2")
var_Frame = oChartView.Frames.Add("LB")
	var_Frame.Padding(-1,-2)
	var_Pattern = var_Frame.Pattern
		var_Pattern.Type = 6
		var_Pattern.Color = RGB(128,128,128)
	var_Frame.ShowOnBackground = false

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Set ComIndentSiblingY to 30
	Set ComShowLinksDir to True
	Set ComPenWidthLink to 2
	Set ComLinkColor to (RGB(0,0,0))
	Set ComAntiAliasing to True
	Variant voNodes
	Get ComNodes to voNodes
	Handle hoNodes
	Get Create (RefClass(cComNodes)) to hoNodes
	Set pvComObject of hoNodes to voNodes
		Variant voNode
		Get ComAdd of hoNodes "L1_A" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComShowLinkDir of hoNode to False
		Send Destroy to hoNode
		Get ComAdd of hoNodes "L1_B" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_A" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2_B" "LB" "LB2" Nothing Nothing to Nothing
	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 "LB" to voFrame
		Handle hoFrame
		Get Create (RefClass(cComFrame)) to hoFrame
		Set pvComObject of hoFrame to voFrame
			Set ComPadding of hoFrame OLEexPaddingAll to -2
			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 OLEexPatternBDiagonal
				Set ComColor of hoPattern to (RGB(128,128,128))
			Send Destroy to hoPattern
			Set ComShowOnBackground of hoFrame to False
		Send Destroy to hoFrame
	Send Destroy to hoFrames
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
	LOCAL oPattern

	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:IndentSiblingY := 30
		oChartView:ShowLinksDir := .T.
		oChartView:PenWidthLink := 2
		oChartView:SetProperty("LinkColor",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
		oChartView:AntiAliasing := .T.
		oNodes := oChartView:Nodes()
			oNodes:Add("L1_A",,"LA"):ShowLinkDir := .F.
			oNodes:Add("L1_B",,"LB")
			oNodes:Add("L2_A","LA","LA2")
			oNodes:Add("L2_B","LB","LB2")
		oFrame := oChartView:Frames():Add("LB")
			oFrame:SetProperty("Padding",-1/*exPaddingAll*/,-2)
			oPattern := oFrame:Pattern()
				oPattern:Type := 6/*exPatternBDiagonal*/
				oPattern:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor  ( { 128,128,128 } )  , .F. ))
			oFrame:ShowOnBackground := .F.

	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.