property ChartView.DefaultNodePadding(Edge as PaddingEdgeEnum) as Long
Returns or sets a value that indicates the padding of the nodes in the control.

 TypeDescription 
   Edge as PaddingEdgeEnum A PaddingEdgeEnum expression that specifies the edge to be updated / requested  
   Long A long expression that defines the node's default padding  
By default, the DefaultNodePadding property is 0, which indicates no padding for any node. The DefaultNodePadding property defines the padding for all nodes. Use the Padding property of the Node to define the padding for specified node. The BackColorNode property defines the node's default background color / EBN object. Use the ForeColorNode property to specify the foreground color for all nodes. Use the FixedHeightNode / FixedWidthNode properties to specify fixed size for all nodes in the chart.

The following screen shot defines a node with no padding ( by default ):

The following screen shot defines a node with padding:

The following samples show how you can define padding for all nodes:

VBA (MS Access, Excell...)

With ChartView1
	.BeginUpdate 
	.DefaultNodePadding(-1) = 8
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add "L1 A1",,"LA"
		.Add "L1 B1",,"LB"
		.Add "L2 A1","LA","LA2"
		.Add "L2 B2","LB","LB2"
	End With
	.Nodes.Item("root").Caption = "Ls As"
	.EndUpdate 
End With

VB6

With ChartView1
	.BeginUpdate 
	.DefaultNodePadding(exPaddingAll) = 8
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add "L1 A1",,"LA"
		.Add "L1 B1",,"LB"
		.Add "L2 A1","LA","LA2"
		.Add "L2 B2","LB","LB2"
	End With
	.Nodes.Item("root").Caption = "Ls As"
	.EndUpdate 
End With

VB.NET

With Exchartview1
	.BeginUpdate()
	.set_DefaultNodePadding(exontrol.EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,8)
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = Color.FromArgb(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1 A1",,"LA")
		.Add("L1 B1",,"LB")
		.Add("L2 A1","LA","LA2")
		.Add("L2 B2","LB","LB2")
	End With
	.Nodes.Item("root").Caption = "Ls As"
	.EndUpdate()
End With

VB.NET for /COM

With AxChartView1
	.BeginUpdate()
	.set_DefaultNodePadding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,8)
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1 A1",,"LA")
		.Add("L1 B1",,"LB")
		.Add("L2 A1","LA","LA2")
		.Add("L2 B2","LB","LB2")
	End With
	.Nodes.Item("root").Caption = "Ls As"
	.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();
spChartView1->PutDefaultNodePadding(EXORGCHARTLib::exPaddingAll,8);
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 A1",vtMissing,"LA",vtMissing,vtMissing);
	var_Nodes->Add(L"L1 B1",vtMissing,"LB",vtMissing,vtMissing);
	var_Nodes->Add(L"L2 A1","LA","LA2",vtMissing,vtMissing);
	var_Nodes->Add(L"L2 B2","LB","LB2",vtMissing,vtMissing);
spChartView1->GetNodes()->GetItem("root")->PutCaption(L"Ls As");
spChartView1->EndUpdate();

C++ Builder

ChartView1->BeginUpdate();
ChartView1->DefaultNodePadding[Exorgchartlib_tlb::PaddingEdgeEnum::exPaddingAll] = 8;
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 A1",TNoParam(),TVariant("LA"),TNoParam(),TNoParam());
	var_Nodes->Add(L"L1 B1",TNoParam(),TVariant("LB"),TNoParam(),TNoParam());
	var_Nodes->Add(L"L2 A1",TVariant("LA"),TVariant("LA2"),TNoParam(),TNoParam());
	var_Nodes->Add(L"L2 B2",TVariant("LB"),TVariant("LB2"),TNoParam(),TNoParam());
ChartView1->Nodes->get_Item(TVariant("root"))->Caption = L"Ls As";
ChartView1->EndUpdate();

C#

exchartview1.BeginUpdate();
exchartview1.set_DefaultNodePadding(exontrol.EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,8);
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 A1",null,"LA",null,null);
	var_Nodes.Add("L1 B1",null,"LB",null,null);
	var_Nodes.Add("L2 A1","LA","LA2",null,null);
	var_Nodes.Add("L2 B2","LB","LB2",null,null);
exchartview1.Nodes["root"].Caption = "Ls As";
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();
	ChartView1.DefaultNodePadding(-1) = 8;
	ChartView1.IndentSiblingY = 30;
	ChartView1.ShowLinksDir = true;
	ChartView1.PenWidthLink = 2;
	ChartView1.LinkColor = 0;
	ChartView1.AntiAliasing = true;
	var var_Nodes = ChartView1.Nodes;
		var_Nodes.Add("L1 A1",null,"LA",null,null);
		var_Nodes.Add("L1 B1",null,"LB",null,null);
		var_Nodes.Add("L2 A1","LA","LA2",null,null);
		var_Nodes.Add("L2 B2","LB","LB2",null,null);
	ChartView1.Nodes.Item("root").Caption = "Ls As";
	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 
		.DefaultNodePadding(-1) = 8
		.IndentSiblingY = 30
		.ShowLinksDir = True
		.PenWidthLink = 2
		.LinkColor = RGB(0,0,0)
		.AntiAliasing = True
		With .Nodes
			.Add "L1 A1",,"LA"
			.Add "L1 B1",,"LB"
			.Add "L2 A1","LA","LA2"
			.Add "L2 B2","LB","LB2"
		End With
		.Nodes.Item("root").Caption = "Ls As"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axChartView1.BeginUpdate();
axChartView1.set_DefaultNodePadding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,8);
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 A1",null,"LA",null,null);
	var_Nodes.Add("L1 B1",null,"LB",null,null);
	var_Nodes.Add("L2 A1","LA","LA2",null,null);
	var_Nodes.Add("L2 B2","LB","LB2",null,null);
axChartView1.Nodes["root"].Caption = "Ls As";
axChartView1.EndUpdate();

X++ (Dynamics Ax 2009)

public void init()
{
	COM com_Node,com_Nodes;
	anytype var_Node,var_Nodes;
	;

	super();

	exchartview1.BeginUpdate();
	exchartview1.DefaultNodePadding(-1/*exPaddingAll*/,8);
	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;
		com_Nodes.Add("L1 A1",,"LA");
		com_Nodes.Add("L1 B1",,"LB");
		com_Nodes.Add("L2 A1","LA","LA2");
		com_Nodes.Add("L2 B2","LB","LB2");
	var_Node = COM::createFromObject(exchartview1.Nodes()).Item("root"); com_Node = var_Node;
	com_Node.Caption("Ls As");
	exchartview1.EndUpdate();
}

Delphi 8 (.NET only)

with AxChartView1 do
begin
	BeginUpdate();
	set_DefaultNodePadding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,8);
	IndentSiblingY := 30;
	ShowLinksDir := True;
	PenWidthLink := 2;
	LinkColor := Color.FromArgb(0,0,0);
	AntiAliasing := True;
	with Nodes do
	begin
		Add('L1 A1',Nil,'LA',Nil,Nil);
		Add('L1 B1',Nil,'LB',Nil,Nil);
		Add('L2 A1','LA','LA2',Nil,Nil);
		Add('L2 B2','LB','LB2',Nil,Nil);
	end;
	Nodes.Item['root'].Caption := 'Ls As';
	EndUpdate();
end

Delphi (standard)

with ChartView1 do
begin
	BeginUpdate();
	DefaultNodePadding[EXORGCHARTLib_TLB.exPaddingAll] := 8;
	IndentSiblingY := 30;
	ShowLinksDir := True;
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	AntiAliasing := True;
	with Nodes do
	begin
		Add('L1 A1',Null,'LA',Null,Null);
		Add('L1 B1',Null,'LB',Null,Null);
		Add('L2 A1','LA','LA2',Null,Null);
		Add('L2 B2','LB','LB2',Null,Null);
	end;
	Nodes.Item['root'].Caption := 'Ls As';
	EndUpdate();
end

VFP

with thisform.ChartView1
	.BeginUpdate
	.Object.DefaultNodePadding(-1) = 8
	.IndentSiblingY = 30
	.ShowLinksDir = .T.
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = .T.
	with .Nodes
		.Add("L1 A1",Null,"LA")
		.Add("L1 B1",Null,"LB")
		.Add("L2 A1","LA","LA2")
		.Add("L2 B2","LB","LB2")
	endwith
	.Nodes.Item("root").Caption = "Ls As"
	.EndUpdate
endwith

dBASE Plus

local oChartView,var_Nodes

oChartView = form.EXORGCHARTACTIVEXCONTROL1.nativeObject
oChartView.BeginUpdate()
oChartView.Template = [DefaultNodePadding(-1) = 8] // oChartView.DefaultNodePadding(-1) = 8
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = 0x0
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1 A1",null,"LA")
	var_Nodes.Add("L1 B1",null,"LB")
	var_Nodes.Add("L2 A1","LA","LA2")
	var_Nodes.Add("L2 B2","LB","LB2")
oChartView.Nodes.Item("root").Caption = "Ls As"
oChartView.EndUpdate()

XBasic (Alpha Five)

Dim oChartView as P
Dim var_Nodes as P

oChartView = topparent:CONTROL_ACTIVEX1.activex
oChartView.BeginUpdate()
oChartView.Template = "DefaultNodePadding(-1) = 8" // oChartView.DefaultNodePadding(-1) = 8
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = .t.
oChartView.PenWidthLink = 2
oChartView.LinkColor = 0
oChartView.AntiAliasing = .t.
var_Nodes = oChartView.Nodes
	var_Nodes.Add("L1 A1",,"LA")
	var_Nodes.Add("L1 B1",,"LB")
	var_Nodes.Add("L2 A1","LA","LA2")
	var_Nodes.Add("L2 B2","LB","LB2")
oChartView.Nodes.Item("root").Caption = "Ls As"
oChartView.EndUpdate()

Visual Objects

local var_Nodes as INodes

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[DefaultNodePadding,exPaddingAll] := 8
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 A1",nil,"LA",nil,nil)
	var_Nodes:Add("L1 B1",nil,"LB",nil,nil)
	var_Nodes:Add("L2 A1","LA","LA2",nil,nil)
	var_Nodes:Add("L2 B2","LB","LB2",nil,nil)
oDCOCX_Exontrol1:Nodes:[Item,"root"]:Caption := "Ls As"
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

OleObject oChartView,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.DefaultNodePadding(-1,8)
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 A1",,"LA")
	var_Nodes.Add("L1 B1",,"LB")
	var_Nodes.Add("L2 A1","LA","LA2")
	var_Nodes.Add("L2 B2","LB","LB2")
oChartView.Nodes.Item("root").Caption = "Ls As"
oChartView.EndUpdate()

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComDefaultNodePadding OLEexPaddingAll to 8
	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
		Get ComAdd of hoNodes "L1 A1" "LA" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L1 B1" "LB" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2 A1" "LA" "LA2" Nothing Nothing to Nothing
		Get ComAdd of hoNodes "L2 B2" "LB" "LB2" Nothing Nothing to Nothing
	Send Destroy to hoNodes
	Variant voNodes1
	Get ComNodes to voNodes1
	Handle hoNodes1
	Get Create (RefClass(cComNodes)) to hoNodes1
	Set pvComObject of hoNodes1 to voNodes1
		Variant voNode
		Get ComItem of hoNodes1 "root" to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComCaption of hoNode to "Ls As"
		Send Destroy to hoNode
	Send Destroy to hoNodes1
	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 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()
		oChartView:SetProperty("DefaultNodePadding",-1/*exPaddingAll*/,8)
		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 A1",,"LA")
			oNodes:Add("L1 B1",,"LB")
			oNodes:Add("L2 A1","LA","LA2")
			oNodes:Add("L2 B2","LB","LB2")
		oChartView:Nodes:Item("root"):Caption := "Ls As"
		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-2017 Exontrol.COM, Software. All rights reserved.