property Node.Padding(Edge as PaddingEdgeEnum) as Long
Returns or sets a value that indicates the padding of the node.

 TypeDescription 
   Edge as PaddingEdgeEnum A PaddingEdgeEnum expression that specifies the edge to be updated / requested  
   Long A long expression that defines the node's padding  
Use the Padding property of the Node to define the padding for specified node. The DefaultNodePadding property defines the padding for all nodes. The BackColor property defines the node's background color / EBN object. Use the FixedHeight and FixedWidth properties to define the size of a specified node. The BackgroundExt property provides unlimited options to add more colors, patterns, text, icons, pictures, frames to any node.

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 the node's padding:

VBA (MS Access, Excell...)

With ChartView1
	.BeginUpdate 
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		With .Add("L1 A1",,"LA")
			.BackColor = RGB(255,0,0)
			.Padding(-1) = 16
		End With
		.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 
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		With .Add("L1 A1",,"LA")
			.BackColor = RGB(255,0,0)
			.Padding(exPaddingAll) = 16
		End With
		.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()
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = Color.FromArgb(0,0,0)
	.AntiAliasing = True
	With .Nodes
		With .Add("L1 A1",,"LA")
			.BackColor = Color.FromArgb(255,0,0)
			.set_Padding(exontrol.EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,16)
		End With
		.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()
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		With .Add("L1 A1",,"LA")
			.BackColor = RGB(255,0,0)
			.Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll) = 16
		End With
		.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->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();
	EXORGCHARTLib::INodePtr var_Node = var_Nodes->Add(L"L1 A1",vtMissing,"LA",vtMissing,vtMissing);
		var_Node->PutBackColor(RGB(255,0,0));
		var_Node->PutPadding(EXORGCHARTLib::exPaddingAll,16);
	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->IndentSiblingY = 30;
ChartView1->ShowLinksDir = true;
ChartView1->PenWidthLink = 2;
ChartView1->LinkColor = RGB(0,0,0);
ChartView1->AntiAliasing = true;
Exorgchartlib_tlb::INodesPtr var_Nodes = ChartView1->Nodes;
	Exorgchartlib_tlb::INodePtr var_Node = var_Nodes->Add(L"L1 A1",TNoParam(),TVariant("LA"),TNoParam(),TNoParam());
		var_Node->BackColor = RGB(255,0,0);
		var_Node->set_Padding(Exorgchartlib_tlb::PaddingEdgeEnum::exPaddingAll,16);
	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.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;
	exontrol.EXORGCHARTLib.Node var_Node = var_Nodes.Add("L1 A1",null,"LA",null,null);
		var_Node.BackColor = Color.FromArgb(255,0,0);
		var_Node.set_Padding(exontrol.EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,16);
	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.IndentSiblingY = 30;
	ChartView1.ShowLinksDir = true;
	ChartView1.PenWidthLink = 2;
	ChartView1.LinkColor = 0;
	ChartView1.AntiAliasing = true;
	var var_Nodes = ChartView1.Nodes;
		var var_Node = var_Nodes.Add("L1 A1",null,"LA",null,null);
			var_Node.BackColor = 255;
			var_Node.Padding(-1) = 16;
		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 
		.IndentSiblingY = 30
		.ShowLinksDir = True
		.PenWidthLink = 2
		.LinkColor = RGB(0,0,0)
		.AntiAliasing = True
		With .Nodes
			With .Add("L1 A1",,"LA")
				.BackColor = RGB(255,0,0)
				.Padding(-1) = 16
			End With
			.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.IndentSiblingY = 30;
axChartView1.ShowLinksDir = true;
axChartView1.PenWidthLink = 2;
axChartView1.LinkColor = Color.FromArgb(0,0,0);
axChartView1.AntiAliasing = true;
EXORGCHARTLib.Nodes var_Nodes = axChartView1.Nodes;
	EXORGCHARTLib.Node var_Node = var_Nodes.Add("L1 A1",null,"LA",null,null);
		var_Node.BackColor = (uint)ColorTranslator.ToWin32(Color.FromArgb(255,0,0));
		var_Node.set_Padding(EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll,16);
	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_Node1,com_Nodes;
	anytype var_Node,var_Node1,var_Nodes;
	;

	super();

	exchartview1.BeginUpdate();
	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_Nodes.Add("L1 A1",,"LA"); com_Node = var_Node;
			com_Node.BackColor(WinApi::RGB2int(255,0,0));
			com_Node.Padding(-1/*exPaddingAll*/,16);
		com_Nodes.Add("L1 B1",,"LB");
		com_Nodes.Add("L2 A1","LA","LA2");
		com_Nodes.Add("L2 B2","LB","LB2");
	var_Node1 = COM::createFromObject(exchartview1.Nodes()).Item("root"); com_Node1 = var_Node1;
	com_Node1.Caption("Ls As");
	exchartview1.EndUpdate();
}

Delphi 8 (.NET only)

with AxChartView1 do
begin
	BeginUpdate();
	IndentSiblingY := 30;
	ShowLinksDir := True;
	PenWidthLink := 2;
	LinkColor := Color.FromArgb(0,0,0);
	AntiAliasing := True;
	with Nodes do
	begin
		with Add('L1 A1',Nil,'LA',Nil,Nil) do
		begin
			BackColor := $ff;
			Padding[EXORGCHARTLib.PaddingEdgeEnum.exPaddingAll] := 16;
		end;
		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();
	IndentSiblingY := 30;
	ShowLinksDir := True;
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	AntiAliasing := True;
	with Nodes do
	begin
		with Add('L1 A1',Null,'LA',Null,Null) do
		begin
			BackColor := $ff;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 16;
		end;
		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
	.IndentSiblingY = 30
	.ShowLinksDir = .T.
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = .T.
	with .Nodes
		with .Add("L1 A1",Null,"LA")
			.BackColor = RGB(255,0,0)
			.Padding(-1) = 16
		endwith
		.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_Node,var_Nodes

oChartView = form.EXORGCHARTACTIVEXCONTROL1.nativeObject
oChartView.BeginUpdate()
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = 0x0
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Node = var_Nodes.Add("L1 A1",null,"LA")
		var_Node.BackColor = 0xff
		// var_Node.Padding(-1) = 16
		with (oChartView)
			TemplateDef = [dim var_Node]
			TemplateDef = var_Node
			Template = [var_Node.Padding(-1) = 16]
		endwith
	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_Node as P
Dim var_Nodes as P

oChartView = topparent:CONTROL_ACTIVEX1.activex
oChartView.BeginUpdate()
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = .t.
oChartView.PenWidthLink = 2
oChartView.LinkColor = 0
oChartView.AntiAliasing = .t.
var_Nodes = oChartView.Nodes
	var_Node = var_Nodes.Add("L1 A1",,"LA")
		var_Node.BackColor = 255
		' var_Node.Padding(-1) = 16
		oChartView.TemplateDef = "dim var_Node"
		oChartView.TemplateDef = var_Node
		oChartView.Template = "var_Node.Padding(-1) = 16"

	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_Node as INode
local var_Nodes as INodes

oDCOCX_Exontrol1:BeginUpdate()
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_Node := var_Nodes:Add("L1 A1",nil,"LA",nil,nil)
		var_Node:BackColor := RGB(255,0,0)
		var_Node:[Padding,exPaddingAll] := 16
	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_Node,var_Nodes

oChartView = ole_1.Object
oChartView.BeginUpdate()
oChartView.IndentSiblingY = 30
oChartView.ShowLinksDir = true
oChartView.PenWidthLink = 2
oChartView.LinkColor = RGB(0,0,0)
oChartView.AntiAliasing = true
var_Nodes = oChartView.Nodes
	var_Node = var_Nodes.Add("L1 A1",,"LA")
		var_Node.BackColor = RGB(255,0,0)
		var_Node.Padding(-1,16)
	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 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 A1" "LA" Nothing Nothing to voNode
		Handle hoNode
		Get Create (RefClass(cComNode)) to hoNode
		Set pvComObject of hoNode to voNode
			Set ComBackColor of hoNode to (RGB(255,0,0))
			Set ComPadding of hoNode OLEexPaddingAll to 16
		Send Destroy to hoNode
		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 voNode1
		Get ComItem of hoNodes1 "root" to voNode1
		Handle hoNode1
		Get Create (RefClass(cComNode)) to hoNode1
		Set pvComObject of hoNode1 to voNode1
			Set ComCaption of hoNode1 to "Ls As"
		Send Destroy to hoNode1
	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 oNode
	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:IndentSiblingY := 30
		oChartView:ShowLinksDir := .T.
		oChartView:PenWidthLink := 2
		oChartView:SetProperty("LinkColor",AutomationTranslateColor( GraMakeRGBColor  ( { 0,0,0 } )  , .F. ))
		oChartView:AntiAliasing := .T.
		oNodes := oChartView:Nodes()
			oNode := oNodes:Add("L1 A1",,"LA")
				oNode:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor  ( { 255,0,0 } )  , .F. ))
				oNode:SetProperty("Padding",-1/*exPaddingAll*/,16)
			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-2016 Exontrol.COM, Software. All rights reserved.