property Node.ShowLinkDir as Boolean
Shows or hides the direction between the node and its parent.

 TypeDescription 
   Boolean A Boolean expression that indicates whether the direction of the link between the parent and the current node is shown or hidden.  
By default, the ShowLinkDir property is True. This property has effect only if the ShowLinksDir property of the ChartView is True. You can use the ShowLinkDir property to hide specific arrows in the chart.

The following samples shows how to hide directions for specific links:

VBA (MS Access, Excell...)

With ChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = True
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = True
	With .Nodes
		.Add("L1_A",0,"LA").ShowLinkDir = False
		.Add "L1_B",0,"LB"
		.Add "L2_A","LA","LA2"
		.Add "L2_B","LB","LB2"
	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",0,"LA").ShowLinkDir = False
		.Add "L1_B",0,"LB"
		.Add "L2_A","LA","LA2"
		.Add "L2_B","LB","LB2"
	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",0,"LA").ShowLinkDir = False
		.Add("L1_B",0,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	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",0,"LA").ShowLinkDir = False
		.Add("L1_B",0,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	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",long(0),"LA",vtMissing,vtMissing)->PutShowLinkDir(VARIANT_FALSE);
	var_Nodes->Add(L"L1_B",long(0),"LB",vtMissing,vtMissing);
	var_Nodes->Add(L"L2_A","LA","LA2",vtMissing,vtMissing);
	var_Nodes->Add(L"L2_B","LB","LB2",vtMissing,vtMissing);

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",0,"LA",null,null).ShowLinkDir = false;
	var_Nodes.Add("L1_B",0,"LB",null,null);
	var_Nodes.Add("L2_A","LA","LA2",null,null);
	var_Nodes.Add("L2_B","LB","LB2",null,null);

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",0,"LA",null,null).ShowLinkDir = false;
	var_Nodes.Add("L1_B",0,"LB",null,null);
	var_Nodes.Add("L2_A","LA","LA2",null,null);
	var_Nodes.Add("L2_B","LB","LB2",null,null);

X++ (Dynamics Ax 2009)

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

	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",COMVariant::createFromInt(0),"LA")); com_Node = var_Node;
		com_Node.ShowLinkDir(false);
		com_Nodes.Add("L1_B",COMVariant::createFromInt(0),"LB");
		com_Nodes.Add("L2_A","LA","LA2");
		com_Nodes.Add("L2_B","LB","LB2");
}

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',TObject(0),'LA',Nil,Nil).ShowLinkDir := False;
		Add('L1_B',TObject(0),'LB',Nil,Nil);
		Add('L2_A','LA','LA2',Nil,Nil);
		Add('L2_B','LB','LB2',Nil,Nil);
	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',OleVariant(0),'LA',Null,Null).ShowLinkDir := False;
		Add('L1_B',OleVariant(0),'LB',Null,Null);
		Add('L2_A','LA','LA2',Null,Null);
		Add('L2_B','LB','LB2',Null,Null);
	end;
end

VFP

with thisform.ChartView1
	.IndentSiblingY = 30
	.ShowLinksDir = .T.
	.PenWidthLink = 2
	.LinkColor = RGB(0,0,0)
	.AntiAliasing = .T.
	with .Nodes
		.Add("L1_A",0,"LA").ShowLinkDir = .F.
		.Add("L1_B",0,"LB")
		.Add("L2_A","LA","LA2")
		.Add("L2_B","LB","LB2")
	endwith
endwith

 


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