212:
Is it possible to show some text/caption on the frame's background

with ChartView1 do
begin
	BeginUpdate();
	IndentSiblingY := 32;
	VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAADhABWMMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENAxAJCI4DBCAZBwGKPRiASQZUhmHIDTbIEBxfI' + 
	'MIRLE6PZgjOYZchqRYZSjAdIzUAFFr1J4AKbfKJpfoKBJERrScgxeBUNAZBKlY7paoKSpSGw1CTLNoRAKoYTTBK2bbmWwoap2So1XhAdS0XJcWxfGKRbxmWaZZh+R5mX' + 
	'pCMjVMAGGQPIa8MLCSwIJBaHqUQLZNixLStAyxHCtKKhG+vJwHL6BcqnPKKRqSUKcWbcQADFZdYTdNjbch1TWvSZVQSecSke7BQjGJQ2YxWcZUXReeaBDK9ZS4WK+HhR' + 
	'jqAZpCkeoNC8P4DDiWp3nYVwdkaSgrGGVhSnSHJum6CgGAiBIUA0JgziGVJkGWRgTiGBAiG+ZgyDYQhCgQJZbG+UIAGEFgGBEBw9FILJNAMXgMgOIJYD4EoEGESBCBYV' + 
	'IKGMIJTCiDpDliNQ+A+eB+CGCAiCiFgkgmT54HCdoGE0MhgkAM4LhOWJ/CQThIk4NQik4I5+DgP5IDOBJ/B2TgDnwaQ3k+cR0l4P5jBOfguDOCIimCSgwCMKJuDsIRjm' + 
	'kUJ/B8JBBkIRAYmQcRglwP5lAOfhNDKCAikSRgxE8WJyEQIJkEGdhHhuD5xlSXYQicMR0lsP5FBmXhoD+ZhTBgfQrgwMwUnQP5HikfoFhwZxxlYdwbW0CJaWKag8EuI5' + 
	'oTufwwkeIoskIMYPDOfB0iOaZznwbw2GoKoQGaKQFjqEBQikBBjGCf4nCgShoLyTCZnIP5GlqOo5YgAxejyL4GAqeBWi+BI6ngQYvisY5+jMMBHHKHJAjIRoDFqPI0gY' + 
	'OxSlIFptCERpSBGbQgn6SItmyUwAHaM4MgqXBljSLl7GANRuiuMBajsBQLEgRY0gOSxKmUP5uDuCpODIaxxgqbI/g+cR8lSQBwDEYpsBObpBBabAPG6S5yniM4HHKIJB' + 
	'DiT4TnyKQ6nEbBjBeRhPnKGwYCkMYCgcGAnnGDBSD+RIHhKKJDDmMRSkSbg/nKY58jAOxzCyUIuk0CpMlCKfXAyUwsdIEwMHxZ5TiieoSA6fQjEoLh0hKWxJC0NISksS' + 
	'QsDSHQaFeUQIAKRJIDuT5DnyQ4tnWfR7GCLZMBqXI+i2S5KlyOvukOfxZDICAylSSg8jWUwyGmXYPnMNhpl6/sLg0gxjNBmNkRIQR3CRHMOQIYlwjBxHQH4T45hSBBGO' + 
	'/sVgQRkv7EyO4P4mgeC5E+MsTIvBfgWD+PFBIFgvgaTaPwP4mxdA/CmNQOoWgci5FGJsLAqRYiKE0PgV4TQOh0EIHkQ4xw6DnBMLsb4Hx/AHEAHEdYpwIj2D+JwDwORf' + 
	'jjE+B0H4dA1ASKcK8UYnxzhXAyOsPQvhfgYDoPEQ4RwMBziqDYXY6g9AmFyCwMomwThxHkH0fA5x/jbHuJ8f4dxxj4D8Ecf41A+j8HMMoUgTBMjGG+Pgf4nx1j/EAFAA' + 
	'wAggAIAYFQQ4WgEggDIAQgI=');
	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
		Padding[EXORGCHARTLib_TLB.exPaddingAll] := 8;
		Padding[EXORGCHARTLib_TLB.exPaddingBottom] := 22;
		BackColor := $1000000;
		Pattern.Type := EXORGCHARTLib_TLB.exPatternEmpty;
		BackgroundExt := 'top[4],left[4],right[4],client,bottom[4],bottom[16,back=0x01000000,text=`<sha ;;0>attention`,align=0x11]';
	end;
	EndUpdate();
end
211:
How can I draw the pattern with no frame

with ChartView1 do
begin
	BeginUpdate();
	IndentSiblingY := 32;
	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
		Padding[EXORGCHARTLib_TLB.exPaddingAll] := 8;
		with Pattern do
		begin
			Type := EXORGCHARTLib_TLB.exPatternCross;
			Color := $bebebe;
		end;
	end;
	EndUpdate();
end
210:
How can I show the frame with an EBN color

with ChartView1 do
begin
	BeginUpdate();
	IndentSiblingY := 32;
	VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAADhABWMMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENAxAJCI4DBCAZBwGKPRiASQZUhmHIDTbIEBxfI' + 
	'MIRLE6PZgjOYZchqRYZSjAdIzUAFFr1J4AKbfKJpfoKBJERrScgxeBUNAZBKlY7paoKSpSGw1CTLNoRAKoYTTBK2bbmWwoap2So1XhAdS0XJcWxfGKRbxmWaZZh+R5mX' + 
	'pCMjVMAGGQPIa8MLCSwIJBaHqUQLZNixLStAyxHCtKKhG+vJwHL6BcqnPKKRqSUKcWbcQADFZdYTdNjbch1TWvSZVQSecSke7BQjGJQ2YxWcZUXReeaBDK9ZS4WK+HhR' + 
	'jqAZpCkeoNC8P4DDiWp3nYVwdkaSgrGGVhSnSHJum6CgGAiBIUA0JgziGVJkGWRgTiGBAiG+ZgyDYQhCgQJZbG+UIAGEFgGBEBw9FILJNAMXgMgOIJYD4EoEGESBCBYV' + 
	'IKGMIJTCiDpDliNQ+A+eB+CGCAiCiFgkgmT54HCdoGE0MhgkAM4LhOWJ/CQThIk4NQik4I5+DgP5IDOBJ/B2TgDnwaQ3k+cR0l4P5jBOfguDOCIimCSgwCMKJuDsIRjm' + 
	'kUJ/B8JBBkIRAYmQcRglwP5lAOfhNDKCAikSRgxE8WJyEQIJkEGdhHhuD5xlSXYQicMR0lsP5FBmXhoD+ZhTBgfQrgwMwUnQP5HikfoFhwZxxlYdwbW0CJaWKag8EuI5' + 
	'oTufwwkeIoskIMYPDOfB0iOaZznwbw2GoKoQGaKQFjqEBQikBBjGCf4nCgShoLyTCZnIP5GlqOo5YgAxejyL4GAqeBWi+BI6ngQYvisY5+jMMBHHKHJAjIRoDFqPI0gY' + 
	'OxSlIFptCERpSBGbQgn6SItmyUwAHaM4MgqXBljSLl7GANRuiuMBajsBQLEgRY0gOSxKmUP5uDuCpODIaxxgqbI/g+cR8lSQBwDEYpsBObpBBabAPG6S5yniM4HHKIJB' + 
	'DiT4TnyKQ6nEbBjBeRhPnKGwYCkMYCgcGAnnGDBSD+RIHhKKJDDmMRSkSbg/nKY58jAOxzCyUIuk0CpMlCKfXAyUwsdIEwMHxZ5TiieoSA6fQjEoLh0hKWxJC0NISksS' + 
	'QsDSHQaFeUQIAKRJIDuT5DnyQ4tnWfR7GCLZMBqXI+i2S5KlyOvukOfxZDICAylSSg8jWUwyGmXYPnMNhpl6/sLg0gxjNBmNkRIQR3CRHMOQIYlwjBxHQH4T45hSBBGO' + 
	'/sVgQRkv7EyO4P4mgeC5E+MsTIvBfgWD+PFBIFgvgaTaPwP4mxdA/CmNQOoWgci5FGJsLAqRYiKE0PgV4TQOh0EIHkQ4xw6DnBMLsb4Hx/AHEAHEdYpwIj2D+JwDwORf' + 
	'jjE+B0H4dA1ASKcK8UYnxzhXAyOsPQvhfgYDoPEQ4RwMBziqDYXY6g9AmFyCwMomwThxHkH0fA5x/jbHuJ8f4dxxj4D8Ecf41A+j8HMMoUgTBMjGG+Pgf4nx1j/EAFAA' + 
	'wAggAIAYFQQ4WgEggDIAQgI=');
	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
		Padding[EXORGCHARTLib_TLB.exPaddingAll] := 8;
		BackColor := $1000000;
		Pattern.Type := EXORGCHARTLib_TLB.exPatternEmpty;
	end;
	EndUpdate();
end
209:
How can I show the frame with an EBN color

with ChartView1 do
begin
	BeginUpdate();
	IndentSiblingY := 32;
	VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAADhABDYGg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDEMw0AJCIyDFCAZBsHKPRoASQZUhmHIDTbIEBxfI' + 
	'MIRLE6PRhmGL4HjWOo0TLAdI0PJMBr3J4AKbfOJpfDSQZDRrTMyReDkNBBBKlY7rKoqRpCFYtDSJNoWVBIahhNiGbbiCQYfouFZdUpRV5VLTUVxbF6YZDvKZZZjmH48R' + 
	'pPUIyNS2FyxHDEIxyEALYACS5fTrCNZPVjgAY4fSqMToDDpKoSWp0QjlOS5jiyYoJZ7nWa2PDdUzXCC3LgADabThqdapcBAeqYHhORRRFSiYD4eAxYw2NaTUrSeS8JBm' + 
	'nmSIYlaOY6H2dwHC0CZWHSeobEmRpbGuOpeFsbhRmgS5/loAJtl4fg5E6b4LFEAwEEISgGhMGZQmocgZMWJA2AMEAxAgTYAlGEJZAkCgdngNYZAYEYYBGdRnk8CBUmqB' + 
	'ZOhgZgagaYZIHYHoHmICIGCKCJhiOPgmgUIRTEYKgviKQpyC6C5jAiRgygyYxIlYNoNmOAp2DoM5jwEb8miIUhCCGJBCBIRoRmSCQmEqEpkkkNhOhOZQJBCBgjmUSB0z' + 
	'CSBnjYWoWmWSR2F6F5mAmBhihiZZpFyBoHGQc54n4PxPCOSJxDwZppkIb4cGcSZOHaHInwWeYdmeKZ2HyH5nCmNJxhqD5ZB4aIRg+E5kngOpOiOJoMiOKJaD6EokGkSh' + 
	'ChaJJpHoVoYiaaYqHaGQ6GiE5i1aJRyBSdA9A8M4QmQOJqiqMorisawKj7ggrEqRo1iyaxqmaOIumsc4OicPJqFkWhXDwIhjHiXQ3GwawikeMhsksLpOjKLQLDaUYzm0' + 
	'KxWlSNZtDMdpEDubAahIVw7A6Q4slYNYNFMXJXDWLhriKZ46G6S4um6OovAuNpxjubwrladI9m4O4SmAOptlgbhSDoMADECUAzmKIxDAWQZNBwGwJkIMIsDcDJDnCPBH' + 
	'A6RIxAwTwCkCcADiIUoHGUI4WioMhMhMIJKTeHIPCWSWUCcKJKnIfI3CqS4ykyPwykwcxMgMIZHg4TBuByFIOCOBJhDCDAjASRHB34RZRDQbQnEiUp0H0NxKlONJND8U' + 
	'pUHUQwPEAMBzlOBw6gaSB9HSXpXkuQpsjoL4LlKcxklmNhdh8apaHaTYjG6Wp2n2NxwlydwtlYLpYjWcx7F0EMYYuxsi4DaJsMoqQ1MuHKLkNowh4D8BuBEYo8QuBvAm' + 
	'MceInBDgdGQPITgnwWBbDgEUUw/g2jvD2O4XSdATDBC4wsUoiQwBYagEcJ41B6idC+F0arQQ3hjGuPYLorw0jbEsB0DIWxoAbA4OwHIvRuDmFiFAKYlBihZCoFQfA3gj' + 
	'iPc+J43g5V+BvFGOcfQXhXipHWJUHwGQmjgHuNocIEAiNHFCKgKAlACgBCQFESgfwfjTHoH0L4bxsj3H6H8R43R8h+A+J8do+h/gFA+MgKAfATChAcPcaA6xvgRAGEwN' + 
	'IDQQg0BMEQZAngJiiDsAUIAyALgDDAIQB4ggoA6AUEEDAKwCDgFoBkQYEA2BOGAHEGYAQDCUAEIAF4fgBANACCgEgxBICYAkOILQFQhDICuAsMIhAXiGCgLoDQQwMBrA' + 
	'YOEWgORDgQHYEsIQcQSgJDCBIDggAmAkDQAgYIFgRDEEQJACQEQTAlGIKgTIExxB0CiIkWITgUBFCQKUCoYhiBXEWEIIQIwEC4ESBAKA3AhgZHGEAIYCAogIn+FARIjQ' + 
	'IiqBoMYXA3QNhjEIGwRwURfA5GOckDo4xaB5AiDESgQgGgYp6BAagAgwBjB4D8Q40B9AhCIBgQYkQJAqlQLkDoIwyCEEYJIKQPgkjJAyCkEo5BaCZAgHICgPhkA5AAIY' + 
	'MAEBngZGGDgHgBw4DsA+IMdAfBKgSFUFQZQuQugrDKIQVglgpC+CyMsDIaQWjlFoLkB4khKA7CUCFSAxwmChEoGEZAOADgAHgB0QYtBjiZBmCIMoTBs2uHMFwaImRphK' + 
	'DQE0HIrQahmGAHYTAgRhBfCYAkQgMxBhQlGCEYwYhnBAHCDkU4RByidCmJ4OozhMjZB2OcOg8ROizGcSgLIwgNBmHYAARATw/BBEMDAYQGAhhcHEKAEIphAjQC0AUII6' + 
	'ASgIFANQE04hdAdCEKgQoDROBTHwDAZKDQMBnHEDwBYoQ2AtnEMYDA6B6ggFGPQQ1YgdBNCQKkIoJRSg0E8JUKQ2gshLGGB0DYCw6BYCIEIGIEhg4JCoAoQIeAXCFG0H' + 
	'kJ4qR2g/FQFUAwosfiNCgOoHoRRUgVBcKUKg0BdhOCEKMAoexxAmAiMAGIogaCCDhccQIXAVCFCgLEK4ah+heFYBURwsQrBaGGFkdYJQ0CsGqKYWwVhdDLCuAIVoWQEi' + 
	'DCcKsYwBBA1zEmAkA4wB6AeEIGARQEQ1j1EAK8ewBhhBYB2A0MArEzixBsB4YoWBtgZDGMIFoewDi1L0EAEggBNhHEgIkWYQwkiBCEAUZANQ2D9FCBoWwghojaBWEkNI' + 
	'7QaipFoLYVw1AtDLCqGsIwrAQCzEGEIZoCBNgwCoJ0EArRbCwAUN4LY2w+hvHcAUYIuArgOHEEAFYaw3BKEgOsG4oAACAEAQEA==');
	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
		Padding[EXORGCHARTLib_TLB.exPaddingAll] := 8;
		BackColor := $1000000;
		Pattern.Type := EXORGCHARTLib_TLB.exPatternEmpty;
	end;
	EndUpdate();
end
208:
How can I show the frame with a solid color

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
207:
Is it possible to enlarge/shrink the frame

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
		ShowOnBackground := False;
		Padding[EXORGCHARTLib_TLB.exPaddingAll] := -4;
		with Pattern do
		begin
			Type := Integer(EXORGCHARTLib_TLB.exPatternFrame) Or Integer(EXORGCHARTLib_TLB.exPatternFDiagonal);
			Color := $bebebe;
			FrameColor := $808080;
		end;
	end;
	EndUpdate();
end
206:
Is it possible to draw the frame in front, rather than showing it on the control's background

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
		ShowOnBackground := False;
		with Pattern do
		begin
			Type := Integer(EXORGCHARTLib_TLB.exPatternFrame) Or Integer(EXORGCHARTLib_TLB.exPatternFDiagonal);
			Color := $bebebe;
			FrameColor := $808080;
		end;
	end;
	EndUpdate();
end
205:
How do I show or hide a frame

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
		Visible := True;
		with Pattern do
		begin
			Type := Integer(EXORGCHARTLib_TLB.exPatternFrame) Or Integer(EXORGCHARTLib_TLB.exPatternFDiagonal);
			Color := $bebebe;
			FrameColor := $808080;
		end;
	end;
	EndUpdate();
end
204:
How can I display the frame arround the node itself

with ChartView1 do
begin
	BeginUpdate();
	with Root do
	begin
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	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,'GR1',Null,Null).AddGroup('Child <b>2.2</b>',Null,Null).Key := 'GR2';
	end;
	with Frames.Add('1234') do
	begin
		with Pattern do
		begin
			Type := Integer(EXORGCHARTLib_TLB.exPatternFrame) Or Integer(EXORGCHARTLib_TLB.exPatternFDiagonal);
			Color := $bebebe;
			FrameColor := $808080;
		end;
	end;
	with Frames.Add('GR2') do
	begin
		with Pattern do
		begin
			Type := Integer(EXORGCHARTLib_TLB.exPatternFrame) Or Integer(EXORGCHARTLib_TLB.exPatternFDiagonal);
			Color := $bebebe;
			FrameColor := $808080;
		end;
	end;
	EndUpdate();
end
203:
How can I display the frame arround group nodes only

with ChartView1 do
begin
	BeginUpdate();
	with Root do
	begin
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	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,'GR1',Null,Null).AddGroup('Child <b>2.2</b>',Null,Null).Key := 'GR2';
	end;
	with Frames.Add('root') do
	begin
		Nodes := 'GR1(group)';
		with Pattern do
		begin
			Type := Integer(EXORGCHARTLib_TLB.exPatternFrame) Or Integer(EXORGCHARTLib_TLB.exPatternFDiagonal);
			Color := $bebebe;
			FrameColor := $808080;
		end;
	end;
	EndUpdate();
end
202:
How can I display the frame arround assistant nodes only

with ChartView1 do
begin
	BeginUpdate();
	with Root do
	begin
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	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('root') do
	begin
		Nodes := 'root(assistant)';
		with Pattern do
		begin
			Type := Integer(EXORGCHARTLib_TLB.exPatternFrame) Or Integer(EXORGCHARTLib_TLB.exPatternFDiagonal);
			Color := $bebebe;
			FrameColor := $808080;
		end;
	end;
	EndUpdate();
end
201:
How can I display the frame arround child nodes only

with ChartView1 do
begin
	BeginUpdate();
	with Root do
	begin
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	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('root') do
	begin
		Nodes := 'root(child)';
		with Pattern do
		begin
			Type := Integer(EXORGCHARTLib_TLB.exPatternFrame) Or Integer(EXORGCHARTLib_TLB.exPatternFDiagonal);
			Color := $bebebe;
			FrameColor := $808080;
		end;
	end;
	EndUpdate();
end
200:
How can I show the frame arround all child, assistant, group nodes

with ChartView1 do
begin
	BeginUpdate();
	with Root do
	begin
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	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('root') do
	begin
		Nodes := 'root(all)';
		with Pattern do
		begin
			Type := Integer(EXORGCHARTLib_TLB.exPatternFrame) Or Integer(EXORGCHARTLib_TLB.exPatternFDiagonal);
			Color := $bebebe;
			FrameColor := $808080;
		end;
	end;
	EndUpdate();
end
199:
We need to visualy group nodes that have the same parent but also have other siblings. Is it anyway possible to draw an additional border around a group of nodes in this control

with ChartView1 do
begin
	BeginUpdate();
	with Root do
	begin
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	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').Pattern do
	begin
		Type := Integer(EXORGCHARTLib_TLB.exPatternFrame) Or Integer(EXORGCHARTLib_TLB.exPatternFDiagonal);
		Color := $bebebe;
		FrameColor := $808080;
	end;
	EndUpdate();
end
198:
How can I draw a pattern on a node

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
197:
How do I use as a WBS control (WBS is a hierarchical and incremental decomposition of the project into phases, deliverables and work packages )

with ChartView1 do
begin
	BeginUpdate();
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENQwSSMMJwSKYYBiASEYJASQZUhmHIDTbIEBxfI' + 
	'MIRLE6PZbmEYYfgeNY6TQCcIgVD0ExhAZ2Q4EQAKRpOFY/DBQNLgAKNCQ3LaQY7BaKgZouTYDVrVNSVFC0IBkGoSbauCIJHrGCZ1RBYMI0VDNRwHJiMbRtSyqXjGJ4pS' + 
	'rAcq0FAgYRHI6jZxnGL5chqPqGVjMNZ1bQuKwzT0Ld5wTYsdydBK1MIkTKKaoORZgRpYUI6FAeSgBWyPcCqPSoDrKdo4XLdYwbeAFcSPD6+NBhG7tXm/NarNTgTB6DBt' + 
	'hsGJbgYYw9AQVxBoOch2hEbh+nAARYkQdZ7CMPYGH+FxmlqbJ5lqDAdjMC5AmIW54hwaBvA4IQ8D+T8IFscgenAAZMHiEgWiWdRZlSAAhAkFAGq6dAdEcIYVF4QJKCAH' + 
	'QDBCBJYGUGQNhCEIhiSCJaGAYQWBsIYmEEFgJAGQ42CyC4iliPgygsT4olSXg3g2Qwwk0MpMiMLJIg8Y54niTYOmPPJMDMDIonSSU7jMJJbDaTYjlYUoMmMCRWFQAAlE' + 
	'kZgtDgTgjgCJQpEoIgkgkIQHnIAB7CACARnIaIaiaGYuG6GxmhmFB7CGSICAyHwoAmQxQlQNIlikWgthYIwaAYVQvAuQpsg0IxIhKTIzCwToTiiaYACkChGhKJJpEOQo' + 
	'WC+C5imyCgiggYpUzMZ5Yj6AIfg6UpcjgLYInIPILhOTYaEIUg9EoItfCGCByAiCV2lIKILCGK4qnKO4YggWpQgIJxJmIaJhDgDgKECaIykkUhUhILQLEKRh9iiYpzCS' + 
	'SQxmgcgkm2NppAKbI8C4RoBiQYgSgSMQQEEEIDjECBDA8LorjKa47EQMQSm4DpEhEKBDBeRgBGqMQnmkA5in4JAJAINoEC6JR4jyaQ6E6AhEhIIxNBMRJPiQCYyHCGAU' + 
	'gUMQwEgEhhkEOBHBOBJxCMHJHjGXB/CKSBxlENwaj1qgsEwERICIDB/iQDgjgiYYvE2cx8l2KIinoEI5CYSYiFqEAz0mMBZBbwIkEsEN+gMSpSHSTITEqSoEFyGBHCoS' + 
	'oihqEAsgsIo8ikKhKGiVJ6AADwTkicQlAkUhElA+Z4VUHpHGuRA8lMdI9DscJc8r5QQAaIYsGUOpOjoOwHCEJAUgBh8B1EAAcHIzg5gPCGNgdQfRPhnGiLINhhQEDCBc' + 
	'GUDYphxjLHkNgfwTARhiHEBYWAVxpI1HQDcDjthiAADoKcCgJgbs7FyG4LQagBBgE0CMOYOxLhtGY/AcAegNgTHIPkHISAHADEQNYOA2BwAHEQHABwQxMDbCQEscoEBA' + 
	'AgEOD0V4cR0jyGCPAPwHAvh0EAOIHIDRfA/EaGMfYfguAACiBQIg/xWAbH0F8J4bxSD6G8MUMo7Q9ieHuI8eA0gLjfG2PUPQnwvhvHsPsGABxhD8E+AMbgfhVDJH2L8U' + 
	'48wAjbEGPwPo7x8j4F4FccwHAhhiEgBQEQhAnCDGgHwBonxiAZD+G8Lo/hHj3H8PELIiBwgOFCNQHAqQAhYBWAUIARAECgHyKkIIqAIgGGCLgUIFAhB5CQAcFAGgcEHH' + 
	'KBwUYkAdiHDgOaAIKBigYCCFAFQhBzChAWKEOYzwDhCEwFMBQNxwD3C8CsPgHQhANEuA4Uw+gdhHDAOwBogRYAzFuGAQIEgQAzCSGUAIbAXAFCiKIGghhBCQAeAFIgDg' + 
	'wjMByEAAYXg1hiEwFgBYAQugAGIPsTodgnDSBgMca4LhqChCgD4CIYgYBDmcI4GIxgUCYAm1oPIjwgjmFQMYWA1gNCiBUqcII6gegUEAHwB4oRwhzEGLge4GAOC6HUAc' + 
	'MIsAbCGDqLYHYVBACTAkIIIAYigCIGcBQCArQKiiFQFERQUQhDMAOBgcIWAggUBGIMfAVAHhCBwEgBAMg+jbFqCcHYLxvg4D2A8QI3AziMHiJoUgFhACyCwIINofwHiJ' + 
	'DAJUKw2B2ARGEEAIwCxIh2BaNQQA/ROBRGoFYQ48B/AeEGEt99lQOgDFgGcAtFgdgHEANIMAhAIDKAygkQAEAAjxBeIoCI7QfjUEEEwDIIgWBFEQHUSANxsAqEEEUdwl' + 
	'A4iJCSFYEwhBsCXE0KoIAexnj4DoDkEwaBmgYCGAwMADAkCFCMMYAQOgMhQEIHsaIVQQDXFOOgRtwAUguAcAUU1iw1CWA6OwdIOQFBxCgCkDgeBribBmIgP4KQiAAB+K' + 
	'oAg2QNiDDoG0BQyQzg+EGOAWAFgRC4DsEURQYAdhWFKAoKAVQAB/AcHEaAORiioFqBYMWFATCZEsBsIYcA0gMGCJwGAhg4DQAwKsDAYQGzZBkAcSA8gODEBEGQVIQhaj' + 
	'UEeeYKY1QIDrBCIAEg0xIAwEgBNkAAADUTA6B4MQEwv0UEGLAUgzhf04AKGEg4BhYD2B0MUAABApAAvqI8WAqAdDGGwJsEIXwWDtE0AAA4fhmDZCmJMMwbBkgBIC');
		Add(2,'gBFLBCJwBAEHhEJAADhABEEMACAADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIgdBINQTDCLYyiUBYJhAMYSAJCI4jBCAZRXEAaQIkKY4ZDKCY2QLIEgSFC' + 
	'ETQlEAYZgkCB5UiGNIkQLSFDABJMBraDgSAApeoYVj4NZASANFB0bKcQAVDSOKRjeCacpOUpQRZLIyiLZVWQSGoYLahW4YQiKIJKRTXdhULQtLS5FaWZbte6LchqOAAY' + 
	'bOV6ynSeV6NUJNc5xVicBgrBKlI6nGxIJqaZpVYzPeQQTTUby5OyEbyADJ4DqEAKaUrZNoZfhkBhlNa2YguC4gAzudaUZhCOqABpWYYLDS/JSGCYJGDcOaVRZ0FJUVwP' + 
	'g8GZkkCcBQDGJw0HOJ5gECdRUi0dxXi2IJbG4Jp+huHpzH0GouF2eA+B4F4bkESwEEISgGhMGZQmocgZFQFAki4TIAAECBNgCUYQsaCgRjQdRjAYERhmIBB5gIQBwm2B' + 
	'ROlOSgaDMIZCmoHoHmICIGB8MJiEOFgmD+IoIGEA4GA4aI0kSC5NliRJrgyYxIlYNoNkyGJkliDpPlidQDD2ZADBYQg6iQQ46EaEZkgkJhKhGTw5DSSITk4eRFAMNRlE' + 
	'MXhWDuZYJC4WoWmWA4+CYORMGmBQDguTBDg4Zg8GaA5CGqGpmkmNhuhuZoim4chAkuaZUmmHZPBgahoh6Z5JnYfofmGI5IjmIJnEmWh3D4D0nn+IpokmboBgeaBSnodw' + 
	'6E+I5YnOIBpgoZoaiaJ9IHOJAAAmVoSh2aRaF6G4pmqCBqh6KAqCkEJqD6TxzlKHosmsSpWjaExPEqZosh0apqkKMotmwCwCjkPQrjKeg0D8T4TlaQ4ymySw2k6LhPFs' + 
	'RpFDsLRDmCdw9i0GxmlqNptksdJ2jebBTjaYoQC0ex+maOZuguJppjkLBZByeI7m4S5GnKPJvEkApvD4Jwim6EY7i8C5Wn6P4vHuZoRhcT4cBad5BnCDAnAqO5wFOZwC' + 
	'igZxZiyepEnCXBXBaRZxgwFwTD6MJ6goaw+nETBnCKSIxjwdh1h6T5jm8IOuEyNwukuT4siie5JguaZsn+ShzAyZw6kyMJ4hCQ44g6U5/DeTI0E0FxGlGcojnMSgvDSS' + 
	'ROFQOANnMfxCD+dItFcVpVnWDRbFOFxMH0dQDiATItgaZpUnUOJ3GaWZ2gOdxklCDQNjYX4KmEaYYmMM43EkP0d4tR3gbBKKgOwGgtjsFQGodQuxCAvAWFIMwnwGgcEy' + 
	'CYC4FRijxE4Gl0AnAuCOFWBUAABwth+AACAEBAQ=');
		Add(3,'gBFLBCJwBAEHhEJAADhABI8IQAAYAQGKIYBkAKBQAGaAoDDWDoMAANAyjPBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIklBI8ExXFqMQCkGKocgONYgTLOMZOXCEEw' + 
	'CgI=');
	end;
	AntiAliasing := True;
	IndentSiblingY := 4;
	ShowRoundLink := True;
	PenLink := EXORGCHARTLib_TLB.exPenSolid;
	SelColor := RGB(255,255,0);
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	DefaultNodePadding[EXORGCHARTLib_TLB.exPaddingAll] := 6;
	with Root do
	begin
		Caption := 'Constuction of a House';
		BackColor := $1000000;
		ForeColor := $ffffff;
		with AddAssistant('<font ;6>Work:<r>100.00%<br>Budget:<r>$215,500.00',Null,Null) do
		begin
			Left := False;
			ShowLinks := False;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			FixedWidth := 72;
			BackColor := $2000000;
		end;
	end;
	with Nodes do
	begin
		with Add('1. Internal','Root','Internal',Null,Null) do
		begin
			ArrangeSiblingNodesAs := EXORGCHARTLib_TLB.exTree;
			ShowRoundLink := False;
			BackColor := $1ff0000;
			ForeColor := $ffffff;
			with AddAssistant('<font ;6>Work:<r>45.60%<br>Budget:<r>$86,500.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('1.1 Electrical','Internal','Electrical',Null,Null) do
		begin
			ShowRoundLink := False;
			BackColor := $100ff00;
			ForeColor := $ffffff;
			with AddAssistant('<font ;6>Work:<r>11.80%<br>Budget:<r>$25,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('1.1.1 Rough-in electrical','Electrical','RoughElectrical',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>2.80%<br>Budget:<r>$5,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('1.1.2 Install and Terminate','Electrical','InstallTerminate',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>1.90%<br>Budget:<r>$5,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('1.1.3 HVAC Equipment','Electrical','HVAC',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>7.10%<br>Budget:<r>$15,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('1.2 Plumbing','Internal','Plumbing',Null,Null) do
		begin
			ShowRoundLink := False;
			BackColor := $100ff00;
			ForeColor := $ffffff;
			with AddAssistant('<font ;6>Work:<r>33.80%<br>Budget:<r>$61,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('1.2.1 Rough-in plumbing','Plumbing','RoughPlumbing',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>11.30%<br>Budget:<r>$22,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('1.2.2 Set plumbing fixtures and trim','Plumbing','PlumbingFixtures',Null,Null) do
		begin
			Width := 256;
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>13.20%<br>Budget:<r>$31,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('1.2.3 Test and clean','Plumbing','PlumbingTest',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>9.30%<br>Budget:<r>$8,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('2. Foundation','Root','Foundation',Null,Null) do
		begin
			ArrangeSiblingNodesAs := EXORGCHARTLib_TLB.exTree;
			ShowRoundLink := False;
			BackColor := $1ff0000;
			ForeColor := $ffffff;
			with AddAssistant('<font ;6>Work:<r>24.00%<br>Budget:<r>$46,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('2.1 Excavate','Foundation','Excavate',Null,Null) do
		begin
			ShowRoundLink := False;
			BackColor := $100ff00;
			ForeColor := $ffffff;
			with AddAssistant('<font ;6>Work:<r>24.00%<br>Budget:<r>$46,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('2.1.1 Pour Concrete','Excavate','Concrete',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>7.90%<br>Budget:<r>$30,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('2.1.2 Cure & Strip Forms','Excavate','CureForms',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>10.30%<br>Budget:<r>$70,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('2.2 Steel Erection','Foundation','Steel',Null,Null) do
		begin
			ShowRoundLink := False;
			BackColor := $100ff00;
			ForeColor := $ffffff;
			with AddAssistant('<font ;6>Work:<r>5.00%<br>Budget:<r>$9,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('2.2.1 Steel Columns','Steel','SteelColumns',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>2.80%<br>Budget:<r>$50,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('2.2.2 Beams','Steel','Beams',Null,Null) do
		begin
			Width := 256;
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>1.90%<br>Budget:<r>$2,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('2.2.3 Joist','Steel','Joist',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>1.10%<br>Budget:<r>$2,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3. External','Root','External',Null,Null) do
		begin
			ArrangeSiblingNodesAs := EXORGCHARTLib_TLB.exTree;
			ShowRoundLink := False;
			BackColor := $1ff0000;
			ForeColor := $ffffff;
			with AddAssistant('<font ;6>Work:<r>30.40%<br>Budget:<r>$83,500.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3.1 Masonry Work','External','Masonry',Null,Null) do
		begin
			ShowRoundLink := False;
			BackColor := $100ff00;
			ForeColor := $ffffff;
			with AddAssistant('<font ;6>Work:<r>16.20%<br>Budget:<r>$16,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3.1.1 Lay Masonry','Masonry','LayMasonry',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>9.00%<br>Budget:<r>$35,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3.1.2 Install roof drains','Masonry','RoofDrains',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>3.10%<br>Budget:<r>$2,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3.1.3 Install tile in toilet rooms','Masonry','TileToiles',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>1.30%<br>Budget:<r>$10,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3.1.4 Roofing','Masonry','Roofing',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>2.80%<br>Budget:<r>$15,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3.2 Building Finishes','External','Building',Null,Null) do
		begin
			ShowRoundLink := False;
			BackColor := $100ff00;
			ForeColor := $ffffff;
			with AddAssistant('<font ;6>Work:<r>14.20%<br>Budget:<r>$21,500.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3.2.1 Paint Walls','Building','Paint',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>4.00%<br>Budget:<r>$8,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3.2.2 Ceiling Tiles','Building','CeilingTiles',Null,Null) do
		begin
			Width := 256;
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>3.60%<br>Budget:<r>$4,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3.2.3 Hang Wallpaper','Building','Wallpaper',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>2.30%<br>Budget:<r>$1,500.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3.2.4 Carpet','Building','Carpet',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>1.80%<br>Budget:<r>$6,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
		with Add('3.2.5 Hardware','Building','Hardware',Null,Null) do
		begin
			BackColor := $3000000;
			Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
			with AddAssistant('<font ;6>Work:<r>2.50%<br>Budget:<r>$2,000.00',Null,Null) do
			begin
				Left := False;
				ShowLinks := False;
				Padding[EXORGCHARTLib_TLB.exPaddingAll] := 0;
				FixedWidth := 72;
				BackColor := $2000000;
			end;
		end;
	end;
	EndUpdate();
end
196:
Does your control support padding (padding properties are used to generate space around content)

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
195:
Does your control support padding (padding properties are used to generate space around content)

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
194:
How do I programmatically edit a node

with ChartView1 do
begin
	Nodes.Add('Text',Null,'1234',Null,Null);
	EditNode('1234');
end
193:
WidthNode does not seem to do anything. What this property is for

with ChartView1 do
begin
	WidthNode := 16;
	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';
end
192:
Does your control support Print and Print-Preview, such as Fit-To-Page

with ChartView1 do
begin
	FixedWidthNode := 512;
	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 (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print'))) as EXPRINTLib_TLB.Print) do
	begin
		Options := 'FitToPage = On';
		PrintExt := (IUnknown(ChartView1.DefaultInterface) as EXORGCHARTLib_TLB.ChartView);
		Preview();
	end;
end
191:
Does your control support Print and Print-Preview

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 (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print'))) as EXPRINTLib_TLB.Print) do
	begin
		PrintExts := (IUnknown(ChartView1.DefaultInterface) as EXORGCHARTLib_TLB.ChartView);
		Preview();
	end;
end
190:
Does your control support subscript or superscript, in HTML captions

with ChartView1 do
begin
	AntiAliasing := True;
	with Nodes do
	begin
		Add('<sha ;;0>Event <b><font ;6><off 4>1',Null,'LA',Null,Null).ShowLinkDir := False;
		Add('<sha ;;0>Event <b><font ;6><off 4>2',Null,'LB',Null,Null);
		Add('<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1','LA','LA2',Null,Null);
		Add('Event','LB','LB2',Null,Null);
	end;
end
189:
Is it possible to move a node by a simple click rather than SHIFT + Click

with ChartView1 do
begin
	AllowMoveChart := EXORGCHARTLib_TLB.exDisallow;
	AllowMoveNode := EXORGCHARTLib_TLB.exLeftClick;
	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;
end
188:
How can I disable moving the nodes at runtime
with ChartView1 do
begin
	AllowMoveNode := EXORGCHARTLib_TLB.exDisallow;
end
187:
How can I disable resizing the chart using the middle mouse button
with ChartView1 do
begin
	AllowResizeChart := EXORGCHARTLib_TLB.exDisallow;
end
186:
How can I disable inline editing
with ChartView1 do
begin
	AllowEdit := EXORGCHARTLib_TLB.exDisallow;
end
185:
Would like to be able to click on a node and have a pop-up window appear with additional detail and information about the individual in the node. Is this possible

// MouseUp event - Occurs when the user releases a mouse button.
procedure TForm1.ChartView1MouseUp(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	// Items.Add(Me.NodeFromPoint(-1,-1).Caption,0,1234)
	with ChartView1 do
	begin
		with (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ExPopupMenu'))) as EXPOPUPMENULib_TLB.PopupMenu) do
		begin
			OutputDebugString( ShowAtCursor );
		end;
	end
end;

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;
end
184:
I am trying to create a hyperlink. I can get the link but I cannot tell the link where to go. What can I do

// AnchorClick event - Occurs when an anchor element is clicked.
procedure TForm1.ChartView1AnchorClick(ASender: TObject; AnchorID : WideString;Options : WideString);
begin
	with ChartView1 do
	begin
		OutputDebugString( Options );
	end
end;

with ChartView1 do
begin
	Root.Image := 0;
	with Nodes do
	begin
		Add('<a;http://www.exontrol.com>exontrol</a>',Null,'1234',Null,Null);
	end;
end
183:
Is it possible to put a caption on the regular links

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).LinkCaption := '<fgcolor=FF0000><font ;6>caption<br><c><bgcolor=FFFFFF><a>link';
		Add('L1_B',Null,'LB',Null,Null);
		Add('L2_A','LA','LA2',Null,Null);
		Add('L2_B','LB','LB2',Null,Null);
	end;
end
182:
Is it possible to hide directions for specific links

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;
end
181:
Does your control supports multiple lines tooltip

with ChartView1 do
begin
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	ToolTipDelay := 1;
	Root.ToolTip := '<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, i' + 
	'cons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>';
end
180:
Can I change the border's node, using your EBN technology, including specifying a color

with ChartView1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\hot.ebn');
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		with Add('Sub 1','1234',Null,Null,Null) do
		begin
			Caption := 'This is a bit of long text that should break the line.<br>-using no color';
			BackColor := $1000000;
		end;
		with Add('Sub 2','1234',Null,Null,Null) do
		begin
			Caption := 'This is a bit of long text that should break the line.<br>-using a color';
			BackColor := $100ff00;
		end;
	end;
end
179:
Can the chart be arranged from the left to right (LTR)

with ChartView1 do
begin
	BeginUpdate();
	Layout := EXORGCHARTLib_TLB.exLayoutLTR;
	ShowLinksDir := True;
	IndentSiblingX := 32;
	with Nodes do
	begin
		Add('Child1',Null,'1234',Null,Null);
		Add('Child2',Null,'1235',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null).Caption := 'This is a bit of long text that should break the line.';
	end;
	EndUpdate();
end
178:
Is there any property to keep the aspect ratio for all pictures, but still keep the size of nodes

with ChartView1 do
begin
	BeginUpdate();
	PictureHeightNode := 48;
	PictureAspectRatioNode := EXORGCHARTLib_TLB.exAspectRatioHeight;
	FixedWidthNode := 82;
	with Nodes do
	begin
		with Add('PNG <b>1',Null,'0',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\card.png';
			Alignment := EXORGCHARTLib_TLB.CenterAlignment;
		end;
		with Add('PNG <b>2',Null,'1',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\diary.png';
			Alignment := EXORGCHARTLib_TLB.CenterAlignment;
		end;
		with Add('PNG <b>3',Null,'2',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\sun.png';
			Alignment := EXORGCHARTLib_TLB.CenterAlignment;
		end;
	end;
	Root.Alignment := EXORGCHARTLib_TLB.CenterAlignment;
	EndUpdate();
end
177:
Is there any property to keep the aspect ratio for all pictures

with ChartView1 do
begin
	BeginUpdate();
	PictureHeightNode := 48;
	PictureAspectRatioNode := EXORGCHARTLib_TLB.exAspectRatioHeight;
	with Nodes do
	begin
		with Add('PNG <b>1',Null,'0',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\card.png';
		end;
		with Add('PNG <b>2',Null,'1',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\diary.png';
		end;
		with Add('PNG <b>3',Null,'2',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\sun.png';
		end;
	end;
	EndUpdate();
end
176:
Is there any property to keep the aspect ratio for all pictures

with ChartView1 do
begin
	BeginUpdate();
	PictureWidthNode := 48;
	PictureAspectRatioNode := EXORGCHARTLib_TLB.exAspectRatioWidth;
	with Nodes do
	begin
		with Add('PNG <b>1',Null,'0',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\card.png';
		end;
		with Add('PNG <b>2',Null,'1',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\diary.png';
		end;
		with Add('PNG <b>3',Null,'2',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\sun.png';
		end;
	end;
	EndUpdate();
end
175:
Is there any property to keep the aspect ratio for displayed picture

with ChartView1 do
begin
	BeginUpdate();
	with Nodes do
	begin
		with Add('Ratio/None',Null,'0',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\card.png';
			PictureWidth := 48;
			PictureHeight := 48;
		end;
		with Add('Ratio/Width',Null,'1',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\card.png';
			PictureWidth := 48;
			PictureAspectRatio := EXORGCHARTLib_TLB.exAspectRatioWidth;
		end;
		with Add('Ratio/Height',Null,'2',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\card.png';
			PictureHeight := 48;
			PictureAspectRatio := EXORGCHARTLib_TLB.exAspectRatioHeight;
		end;
	end;
	EndUpdate();
end
174:
Is is possible to show the round an arbitrary link

with ChartView1 do
begin
	AntiAliasing := True;
	ShowLinksDir := False;
	PenWidthLink := 1;
	LinkColor := RGB(0,0,0);
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null).LinkTo := 'LB';
		Add('L1_B<br><br>Cust',Null,'LB',Null,Null);
		with Add('L2_A','LA','LA2',Null,Null) do
		begin
			LinkTo := 'LB,LB22';
			LinkToColor['LB'] := $ff;
			LinkToWidth['LB'] := 2;
			LinkToPen['LB'] := EXORGCHARTLib_TLB.exPenDot;
			LinkToShowDir['LB'] := True;
			LinkToRound['LB'] := True;
			LinkToRound['LB22'] := True;
			LinkToShowDir['LB22'] := True;
			LinkToColor['LB22'] := $80;
			LinkToWidth['LB22'] := 2;
		end;
		Add('L2_B1','LB','LB21',Null,Null);
		Add('L2_B2','LB','LB22',Null,Null);
		Add('L2_B3','LB','LB23',Null,Null);
	end;
end
173:
Is is possible to show the round an arbitrary link

with ChartView1 do
begin
	AntiAliasing := True;
	ShowLinksDir := False;
	PenWidthLink := 1;
	LinkColor := RGB(0,0,0);
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null).LinkTo := 'LB';
		Add('L1_B<br><br>Cust',Null,'LB',Null,Null);
		with Add('L2_A','LA','LA2',Null,Null) do
		begin
			LinkTo := 'LB';
			LinkToColor['LB'] := $ff;
			LinkToWidth['LB'] := 2;
			LinkToPen['LB'] := EXORGCHARTLib_TLB.exPenDot;
			LinkToShowDir['LB'] := True;
			LinkToRound['LB'] := True;
		end;
		Add('L2_B1','LB','LB21',Null,Null);
		Add('L2_B2','LB','LB22',Null,Null);
		Add('L2_B3','LB','LB23',Null,Null);
	end;
end
172:
Is is possible to show the direction for a linktoline, even if the ShowLinksDir is False

with ChartView1 do
begin
	ShowLinksDir := False;
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	AntiAliasing := True;
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null).LinkTo := 'LB';
		with Add('L1_B<br><br>Cust',Null,'LB',Null,Null) do
		begin
			LinkTo := 'LA2';
			LinkToColor['LA2'] := $ff;
			LinkToWidth['LA2'] := 2;
			LinkToPen['LA2'] := EXORGCHARTLib_TLB.exPenDashDot;
			LinkToShowDir['LA2'] := True;
		end;
		Add('L2_A','LA','LA2',Null,Null);
		Add('L2_B1','LB','LB21',Null,Null);
		Add('L2_B2','LB','LB22',Null,Null);
		Add('L2_B3','LB','LB23',Null,Null);
	end;
end
171:
Is is possible to change the width for a specified linkto line

with ChartView1 do
begin
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	AntiAliasing := True;
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null).LinkTo := 'LB';
		with Add('L1_B<br><br>Cust',Null,'LB',Null,Null) do
		begin
			LinkTo := 'LA2';
			LinkToColor['LA2'] := $ff;
			LinkToWidth['LA2'] := 4;
			LinkToPen['LA2'] := EXORGCHARTLib_TLB.exPenSolid;
			LinkToCaption['LA2'] := 'L2A-L1B';
		end;
		Add('L2_A','LA','LA2',Null,Null);
		Add('L2_B1','LB','LB21',Null,Null);
		Add('L2_B2','LB','LB22',Null,Null);
		Add('L2_B3','LB','LB23',Null,Null);
	end;
end
170:
Is is possible to change the width for a specified linkto line

with ChartView1 do
begin
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null).LinkTo := 'LB';
		with Add('L1_B<br><br>Cust',Null,'LB',Null,Null) do
		begin
			LinkTo := 'LA2';
			LinkToColor['LA2'] := $ff;
			LinkToWidth['LA2'] := 2;
		end;
		Add('L2_A','LA','LA2',Null,Null);
		Add('L2_B1','LB','LB21',Null,Null);
		Add('L2_B2','LB','LB22',Null,Null);
		Add('L2_B3','LB','LB23',Null,Null);
	end;
end
169:
Is is possible to change the color for a specified linkto line

with ChartView1 do
begin
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null).LinkTo := 'LB';
		with Add('L1_B<br><br>Cust',Null,'LB',Null,Null) do
		begin
			LinkTo := 'LA2';
			LinkToColor['LA2'] := $ff;
			LinkToWidth['LA2'] := 2;
		end;
		Add('L2_A','LA','LA2',Null,Null);
		Add('L2_B1','LB','LB21',Null,Null);
		Add('L2_B2','LB','LB22',Null,Null);
		Add('L2_B3','LB','LB23',Null,Null);
	end;
end
168:
How can I specify the size for a picture being shown in a specified node only

with ChartView1 do
begin
	with Nodes do
	begin
		with Add('Child 1',Null,'1',Null,Null) do
		begin
			Picture := 'c:\exontrol\images\zipdisk.gif';
			PictureWidth := 64;
			PictureHeight := 64;
		end;
		Add('Child 2',Null,'2',Null,Null).Picture := 'c:\exontrol\images\auction.gif';
	end;
end
167:
How can I resize the pictures being shown in the nodes

with ChartView1 do
begin
	PictureHeightNode := 24;
	PictureWidthNode := 24;
	with Nodes do
	begin
		Add('Child 1',Null,'1',Null,Null).Picture := 'c:\exontrol\images\zipdisk.gif';
		Add('Child 2',Null,'2',Null,Null).Picture := 'c:\exontrol\images\auction.gif';
	end;
end
166:
Can I change the width of the node's border

with ChartView1 do
begin
	with Nodes do
	begin
		with Add('Child 1',Null,'1',Null,Null) do
		begin
			BorderWidth := 3;
			DrawRoundNode := False;
		end;
		Add('Child 2',Null,'2',Null,Null);
	end;
end
165:
Can I change the visual appearance of the node

with ChartView1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	with Nodes do
	begin
		Add('Child 1',Null,'1',Null,Null).BackColor := $1000000;
		Add('Child 2',Null,'2',Null,Null);
	end;
end
164:
Can I specify a different color for node's border

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child 1',Null,'1',Null,Null).BorderColor := $ff;
		Add('Child 2',Null,'2',Null,Null);
	end;
end
163:
Can I display my image on my links

with ChartView1 do
begin
	HTMLPicture['pic1'] := 'c:\exontrol\images\colorize.gif';
	AntiAliasing := True;
	IndentSiblingY := 30;
	IndentSiblingX := 60;
	ShowLinksDir := True;
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null);
		with Add('L1_B',Null,'LB',Null,Null) do
		begin
			LinkTo := 'LA2';
			LinkToCaption['LA2'] := '<img>pic1</img> text';
		end;
		Add('L2_A','LA','LA2',Null,Null);
		Add('L2_B','LB','LB2',Null,Null);
	end;
end
162:
How can I show a caption on my link

with ChartView1 do
begin
	AntiAliasing := True;
	IndentSiblingY := 30;
	ShowLinksDir := True;
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null);
		with Add('L1_B',Null,'LB',Null,Null) do
		begin
			LinkTo := 'LA2';
			LinkToCaption['LA2'] := 'text';
		end;
		Add('L2_A','LA','LA2',Null,Null);
		Add('L2_B','LB','LB2',Null,Null);
	end;
end
161:
How can I show smootly the arrows

with ChartView1 do
begin
	AntiAliasing := True;
	IndentSiblingY := 30;
	ShowLinksDir := True;
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null);
		Add('L1_B',Null,'LB',Null,Null).LinkTo := 'LA2';
		Add('L2_A','LA','LA2',Null,Null).LinkTo := 'LB';
		Add('L2_B','LB','LB2',Null,Null);
	end;
end
160:
How can I show direction on my links

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);
		Add('L1_B',Null,'LB',Null,Null).LinkTo := 'LA2';
		Add('L2_A','LA','LA2',Null,Null).LinkTo := 'LB';
		Add('L2_B','LB','LB2',Null,Null);
	end;
end
159:
How can I add a doubled direction link

with ChartView1 do
begin
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null);
		Add('L1_B',Null,'LB',Null,Null).LinkTo := 'LA2';
		Add('L2_A','LA','LA2',Null,Null).LinkTo := 'LB';
		Add('L2_B','LB','LB2',Null,Null);
	end;
end
158:
How can I add arbitrary links

with ChartView1 do
begin
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	with Nodes do
	begin
		Add('L1_A',Null,'LA',Null,Null);
		Add('L1_B',Null,'LB',Null,Null).LinkTo := 'LA2';
		Add('L2_A','LA','LA2',Null,Null);
		Add('L2_B','LB','LB2',Null,Null);
	end;
end
157:
How can I add multiple parents

with ChartView1 do
begin
	PenWidthLink := 2;
	LinkColor := RGB(0,0,0);
	with Nodes do
	begin
		Add('L1_A',Null,'L1',Null,Null).AddGroup('L1_B',Null,Null);
		Add('L_A','L1',Null,Null,Null);
		Add('L_B','L1',Null,Null,Null);
		Add('L_C','L1',Null,Null,Null);
	end;
end
156:
How can I add multiple parents or roots

with ChartView1 do
begin
	BeginUpdate();
	HasButtons := EXORGCHARTLib_TLB.exWPlus;
	ButtonsAlign := EXORGCHARTLib_TLB.UpperCenter;
	PenWidthLink := 3;
	IndentChild := 32;
	with Root do
	begin
		HasButton := False;
		Caption := '<r><dotline><b>Root 1</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor>' + 
	'<br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3';
		Image := 0;
		AddGroup('<r><dotline><b>Root 2</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor>' + 
	'<br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3',Null,Null);
		AddGroup('<r><dotline><b>Root 3</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><fgcolor=0000FF><b>1</b></fgcolor>' + 
	'<br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3',Null,Null);
		AddAssistant('<b>Assistant</b> <a1>node 1</a>',Null,Null).Key := 'A';
		with AddAssistant('<b>Assistant</b> <a2>node 2</a>',Null,Null) do
		begin
			Left := True;
			ShowLinks := False;
			LinkTo := 'A';
		end;
	end;
	with Nodes do
	begin
		with Add('Parent <b>1</b>',Null,'Key1',Null,Null) do
		begin
			HasButton := False;
			ArrangeSiblingNodesAs := EXORGCHARTLib_TLB.exTree;
			ShowRoundLink := True;
			AddGroup('Parent <b>2</b>',Null,Null);
			AddGroup('Parent <b>3</b>',Null,Null);
		end;
		Add('SubItem 1','Key1','S1',Null,Null).HasButton := False;
		Add('SubItem 1.1','S1','S111',Null,Null);
		Add('SubItem 1.2','S1','S112',Null,Null);
		Add('SubItem 2','Key1',Null,Null,Null);
		Add('Item 2',Null,'Key2',Null,Null).Expanded := False;
		Add('SubItem 1','Key2',Null,Null,Null);
		Add('SubItem 2','Key2',Null,Null,Null);
	end;
	EndUpdate();
end
155:
How can I align the text/caption on the scroll bar

with ChartView1 do
begin
	ScrollPartCaption[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exLowerBackPart] := 'left';
	ScrollPartCaptionAlignment[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exLowerBackPart] := EXORGCHARTLib_TLB.LeftAlignment;
	ScrollPartCaption[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exUpperBackPart] := 'right';
	ScrollPartCaptionAlignment[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exUpperBackPart] := EXORGCHARTLib_TLB.RightAlignment;
	FixedWidthNode := 320;
end
154:
How can I show round links

with ChartView1 do
begin
	ShowRoundLink := True;
	Root.Image := 0;
	IndentSiblingX := 32;
	IndentSiblingY := 64;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).ArrangeSiblingNodesAs := EXORGCHARTLib_TLB.exHorizontally;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
153:
How do I access a node by its key

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child 1',Null,'C1',Null,Null);
		Add('Sub Child 1','C1','SC1',Null,Null);
		Add('Sub Sub Shild 1','SC1',Null,Null,Null);
	end;
	Nodes.Item['SC1'].BackColor := $ff;
end
152:
How can I get the number of nodes

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	Root.ArrangeSiblingNodesAs := EXORGCHARTLib_TLB.exTree;
	with Nodes do
	begin
		Add('Child 1',Null,'C1',Null,Null);
		Add('Sub Child 1','C1','SC1',Null,Null);
		Add('Sub Sub Shild 1','SC1',Null,Null,Null);
		Remove(OleVariant(3));
	end;
end
151:
How can I remove all nodes in the chart
with ChartView1 do
begin
	Nodes.Clear();
end
150:
How can I clear the chart
with ChartView1 do
begin
	Nodes.Clear();
end
149:
How can I get the number of nodes

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	Root.ArrangeSiblingNodesAs := EXORGCHARTLib_TLB.exTree;
	with Nodes do
	begin
		Add('Child 1',Null,'C1',Null,Null);
		Add('Sub Child 1','C1','SC1',Null,Null);
		Add('Sub Sub Shild 1','SC1',Null,Null,Null);
		Add(Count,Null,Null,Null,Null);
	end;
end
148:
How can I add a child node

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	Root.ArrangeSiblingNodesAs := EXORGCHARTLib_TLB.exTree;
	with Nodes do
	begin
		Add('Child 1',Null,'C1',Null,Null);
		Add('Sub Child 1','C1','SC1',Null,Null);
		Add('Sub Sub Shild 1','SC1',Null,Null,Null);
	end;
end
147:
How can I add a child node

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	with Nodes do
	begin
		Add('Child 1',Null,'C1',Null,Null);
		Add('Child 2',Null,'C2',Null,Null);
		Add('Sub Child 1','C1','SC1',Null,Null);
		Add('Sub Sub Shild 1','SC1',Null,Null,Null);
	end;
end
146:
How can I draw link or a line between my own nodes

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	PenLink := EXORGCHARTLib_TLB.exPenSolid;
	PenWidthLink := 3;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		with Add('Sub 2','1234',Null,Null,Null) do
		begin
			LinkTo := 'AA';
		end;
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,'AA',Null,Null);
	end;
end
145:
How can I show or hide the link or a line between nodes

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).ShowLinks := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
144:
How can I hide or show the +/- expand/collapse buttons for a specified node

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).HasButton := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
143:
How can I expand or collapse a node

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
142:
How can I assign an icon to the root node

with ChartView1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Root.Image := 1;
end
141:
How can I access an assistant nodes

with ChartView1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
		Assistant[OleVariant(0)].Image := 1;
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
	EndUpdate();
end
140:
How can I get the number or count of assistant nodes

with ChartView1 do
begin
	BeginUpdate();
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
		AddAssistant(CountAssistants,Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
	EndUpdate();
end
139:
How can I display assistant nodes on the right side only

with ChartView1 do
begin
	BeginUpdate();
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null).Left := False;
		AddAssistant('Assistant 2',Null,Null).Left := False;
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
	EndUpdate();
end
138:
How can I display assistant nodes on the left side only

with ChartView1 do
begin
	BeginUpdate();
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null).Left := True;
		AddAssistant('Assistant 2',Null,Null).Left := True;
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
	EndUpdate();
end
137:
How can I clear or remove all assistant nodes

with ChartView1 do
begin
	BeginUpdate();
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
		ClearAssistants();
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
	EndUpdate();
end
136:
How can I remove an assistant node

with ChartView1 do
begin
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
		RemoveAssistant(OleVariant(0));
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
135:
How can I add assistant node

with ChartView1 do
begin
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
134:
Can I change the border's node, using your EBN technology

with ChartView1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\hot.ebn');
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		with Add('Sub 2','1234',Null,Null,Null) do
		begin
			Caption := 'This is a bit of long text that should break the line.';
			BackColor := $1000000;
		end;
	end;
end
133:
Can I remove the shadow for a specified node

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		with Add('Sub 2','1234',Null,Null,Null) do
		begin
			Caption := 'This is a bit of long text that should break the line.';
			ShadowNode := False;
		end;
	end;
end
132:
Can I change the border for a specified node

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		with Add('Sub 2','1234',Null,Null,Null) do
		begin
			Caption := 'This is a bit of long text that should break the line.';
			PenBorderNode := EXORGCHARTLib_TLB.exPenDashDotDot;
		end;
	end;
end
131:
Can I remove the round corner for a specified node

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		with Add('Sub 2','1234',Null,Null,Null) do
		begin
			Caption := 'This is a bit of long text that should break the line.';
			DrawRoundNode := False;
		end;
	end;
end
130:
How can I disable or enable a node

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		with Add('Sub 2','1234',Null,Null,Null) do
		begin
			Caption := 'This is a bit of long text that should break the line.';
			Enabled := False;
		end;
	end;
end
129:
How can I specify the height of the node

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		with Add('Sub 2','1234',Null,Null,Null) do
		begin
			Caption := 'This is a bit of long text that should break the line.';
			FixedHeight := 128;
		end;
	end;
end
128:
How can I specify the width of the node

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		with Add('Sub 2','1234',Null,Null,Null) do
		begin
			Caption := 'This is a bit of long text that should break the line.';
			FixedWidth := 128;
		end;
	end;
end
127:
How can I specify the width of the node to wrap it's content

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		with Add('Sub 2','1234',Null,Null,Null) do
		begin
			Caption := 'This is a bit of long text that should break the line.';
			Width := 128;
		end;
	end;
end
126:
How can I change the position of the node

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null).Position := 0;
	end;
end
125:
How can I count or get the number of child nodes

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add(Item['1234'].NodeCount,Null,Null,Null,Null);
	end;
end
124:
How can I enumerate the child nodes

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add(Item['1234'].FirstNode.Caption,Null,Null,Null,Null);
		Add(Item['1234'].FirstNode.NextNode.Caption,Null,Null,Null,Null);
	end;
end
123:
How can I change the node's parent

with ChartView1 do
begin
	BeginUpdate();
	Nodes.Add('Child 1',Null,'1234',Null,Null);
	Nodes.Add('Sub 1','1234',Null,Null,Null);
	Nodes.Add('Sub 2','1234',Null,Null,Null);
	Nodes.Add('Child 2',Null,'1235',Null,Null);
	Nodes.Add('Sub 1','1235',Null,Null,Null);
	Nodes.Add('To Move','1235','Move',Null,Null);
	with Nodes.Item['Move'] do
	begin
		Parent := (IUnknown(ChartView1.Root) as EXORGCHARTLib_TLB.Node);
		Caption := 'Moved 2 Root from Child 2';
	end;
	EndUpdate();
end
122:
How can I assign a key to a node

with ChartView1 do
begin
	Nodes.Add('Child',Null,'1234',Null,Null);
	Nodes.Add('Sub 1','1234',Null,Null,Null);
	Nodes.Add('Sub 2','1234',Null,Null,Null);
end
121:
How can I assign a key to a node

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).Key := '1234';
	Nodes.Add('Sub 1','1234',Null,Null,Null);
	Nodes.Add('Sub 2','1234',Null,Null,Null);
end
120:
How can I change the node's background color

with ChartView1 do
begin
	with Nodes.Add('Child',Null,Null,Null,Null) do
	begin
		BackColor := $ff;
		ClearBackColor();
	end;
end
119:
How can I change the node's background color

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).BackColor := $ff;
end
118:
How can I change the node's foreground color

with ChartView1 do
begin
	with Nodes.Add('Child',Null,Null,Null,Null) do
	begin
		ForeColor := $ff;
		ClearForeColor();
	end;
end
117:
How can I change the node's foreground color

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).ForeColor := $ff;
end
116:
How can I assign a tooltip to a node

with ChartView1 do
begin
	with Nodes.Add('ToolTip',Null,Null,Null,Null) do
	begin
		ToolTip := 'This is a bit of text that''s shown when the cursor hovers this <b>node</b>.';
		ToolTipTitle := 'TITLE';
	end;
end
115:
How can I assign a different font for the node's tooltip

with ChartView1 do
begin
	Nodes.Add('ToolTip',Null,Null,Null,Null).ToolTip := '<font Tahoma;12>This is a bit of text that''s shown when the cursor hovers this <b>node</b>.</font>';
end
114:
How can I assign a tooltip to a node

with ChartView1 do
begin
	Nodes.Add('ToolTip',Null,Null,Null,Null).ToolTip := 'This is a bit of text that''s shown when the cursor hovers this <b>node</b>.';
end
113:
How can I assign any extra data to my node

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).UserData := 'your data';
end
112:
How can I assign an icon and a picture to a node

with ChartView1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Nodes.Add('Child',Null,Null,Null,Null) do
	begin
		Image := 1;
		Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
		PictureAlignment := EXORGCHARTLib_TLB.exImageBottom;
	end;
end
111:
How can I align the picture in the node
with ChartView1 do
begin
	with Nodes.Add('Child',Null,Null,Null,Null) do
	begin
		Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
		PictureAlignment := EXORGCHARTLib_TLB.exImageBottom;
	end;
end
110:
How can I align the picture in the node

with ChartView1 do
begin
	with Nodes.Add('Child',Null,Null,Null,Null) do
	begin
		Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
		PictureAlignment := EXORGCHARTLib_TLB.exImageTop;
	end;
end
109:
How can I align the picture in the node

with ChartView1 do
begin
	with Nodes.Add('Child',Null,Null,Null,Null) do
	begin
		Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
		PictureAlignment := EXORGCHARTLib_TLB.exImageRight;
	end;
end
108:
How can I assign a picture to a node

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
end
107:
How can I align the icon in the node

with ChartView1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Nodes.Add('Just a node with an icon',Null,Null,Null,Null) do
	begin
		Image := 1;
		ImageAlignment := EXORGCHARTLib_TLB.exImageRight;
	end;
end
106:
How can I align the icon in the node

with ChartView1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Nodes.Add('Just a node with an icon',Null,Null,Null,Null) do
	begin
		Image := 1;
		ImageAlignment := EXORGCHARTLib_TLB.exImageBottom;
	end;
end
105:
How can I align the icon in the node

with ChartView1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with Nodes.Add('Just a node with an icon',Null,Null,Null,Null) do
	begin
		Image := 1;
		ImageAlignment := EXORGCHARTLib_TLB.exImageTop;
	end;
end
104:
How can I assign an icon to a node

with ChartView1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	Nodes.Add('Child',Null,Null,Null,Null).Image := 1;
end
103:
How can I change the font for a node

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).Caption := '<font Tahoma;12>new</font> caption';
end
102:
How can I add a multiple lines node

with ChartView1 do
begin
	Nodes.Add('',Null,Null,Null,Null).Caption := 'Line 1<br>Line 2<br>Line3';
end
101:
How can I add a multiple lines node

with ChartView1 do
begin
	Nodes.Add('Line 1<br>Line 2<br>Line3',Null,Null,Null,Null);
end
100:
How can I change the background color for parts of the text

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).Caption := '<bgcolor=FF0000>new</bgcolor> caption';
end
99:
How can I change the foreground color for parts of the text

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).Caption := '<fgcolor=FF0000>new</fgcolor> caption';
end
98:
How can I show the node as strikeout

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).Caption := '<s>new</s> caption';
end
97:
How can I show the node as underlined

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).Caption := '<u>new</u> caption';
end
96:
How can I show the node as italic

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).Caption := '<i>new</i> caption';
end
95:
How can I bold the node

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).Caption := '<b>new</b> caption';
end
94:
How can I change the node's caption

with ChartView1 do
begin
	Nodes.Add('Child',Null,Null,Null,Null).Caption := 'new caption';
end
93:
How can I display hierarchical the child nodes so they are indented relative to their parents

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	PenLink := EXORGCHARTLib_TLB.exPenSolid;
	PenWidthLink := 3;
	IndentSiblingX := 12;
	IndentSiblingY := 12;
	Root.Image := 0;
	with Nodes do
	begin
		Add('As <b>Tree</b>',Null,'1234',Null,Null).ArrangeSiblingNodesAs := EXORGCHARTLib_TLB.exTree;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234','456',Null,Null);
		Add('Item 1','456',Null,Null,Null);
		Add('Item 2','456','78',Null,Null).Expanded := False;
		Add('Item 2.1','78',Null,Null,Null);
		Add('Item 2.2','78',Null,Null,Null);
		Add('Item 3','456',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('As <b>Default</b>',Null,'AA',Null,Null);
		Add('Item 1','AA',Null,Null,Null);
		Add('Item 2','AA','BB',Null,Null);
		Add('Item 2.1','BB',Null,Null,Null);
		Add('Item 2.2','BB',Null,Null,Null);
		Add('Item 2.3','BB',Null,Null,Null);
		Add('Item 3','AA',Null,Null,Null);
	end;
end
92:
How can I display the child nodes as a tree, so they are indented relative to their parents

with ChartView1 do
begin
	IndentSiblingY := 4;
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	with Root do
	begin
		Image := 0;
		ArrangeSiblingNodesAs := EXORGCHARTLib_TLB.exTree;
	end;
	with Nodes do
	begin
		Add('Child 1',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234','456',Null,Null);
		Add('Item 1','456',Null,Null,Null);
		Add('Item 2','456','78',Null,Null).Expanded := False;
		Add('Item 2.1','78',Null,Null,Null);
		Add('Item 2.2','78',Null,Null,Null);
		Add('Item 3','456',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child 2',Null,Null,Null,Null);
	end;
end
91:
How can I indent the child nodes relative to their parents

with ChartView1 do
begin
	IndentChild := 32;
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	Root.Image := 0;
	with Nodes do
	begin
		Add('AsTree',Null,'1234',Null,Null).ArrangeSiblingNodesAs := EXORGCHARTLib_TLB.exTree;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234','456',Null,Null);
		Add('Item 1','456',Null,Null,Null);
		Add('Item 2','456','78',Null,Null).Expanded := False;
		Add('Item 2.1','78',Null,Null,Null);
		Add('Item 2.2','78',Null,Null,Null);
		Add('Item 3','456',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child 2',Null,'AA',Null,Null);
		Add(1,'AA',Null,Null,Null);
		Add(2,'AA','BB',Null,Null);
		Add('2.1','BB',Null,Null,Null);
		Add('2.2','BB',Null,Null,Null);
		Add(3,'AA',Null,Null,Null);
	end;
end
90:
How can I increase the distance between nodes

with ChartView1 do
begin
	IndentSiblingY := 64;
	Root.Image := 0;
	with Nodes do
	begin
		Add('<a1>Link 1</a>',Null,'1234',Null,Null);
		Add('Sub <a1>Link 1</a>','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('<a2>Link 2</a>',Null,Null,Null,Null);
	end;
end
89:
How can I increase the distance between nodes

with ChartView1 do
begin
	IndentSiblingX := 64;
	Root.Image := 0;
	with Nodes do
	begin
		Add('<a1>Link 1</a>',Null,'1234',Null,Null);
		Add('Sub <a1>Link 1</a>','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('<a2>Link 2</a>',Null,Null,Null,Null);
	end;
end
88:
How can I add an anchor or a hyperlink

with ChartView1 do
begin
	Root.Image := 0;
	with Nodes do
	begin
		Add('<a1>Link 1</a>',Null,'1234',Null,Null);
		Add('Sub <a1>Link 1</a>','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('<a2>Link 2</a>',Null,Null,Null,Null);
	end;
end
87:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it

with ChartView1 do
begin
	FormatAnchor[False] := '<u><fgcolor=880000> </fgcolor></u>';
	Root.Image := 0;
	with Nodes do
	begin
		Add('<a1>Link 1</a>',Null,'1234',Null,Null);
		Add('Sub <a1>Link 1</a>','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('<a2>Link 2</a>',Null,Null,Null,Null);
	end;
end
86:
Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions

with ChartView1 do
begin
	FormatAnchor[True] := '<u><fgcolor=FF0000> </fgcolor></u>';
	Root.Image := 0;
	with Nodes do
	begin
		Add('<a1>Link 1</a>',Null,'1234',Null,Null);
		Add('Sub <a1>Link 1</a>','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('<a2>Link 2</a>',Null,Null,Null,Null);
	end;
end
83:
How can I assign multiple icons to a node

with ChartView1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	Root.Image := 0;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null).Caption := '<img>1</img> text <img>2</img> and so on<br>bla <b>bla</b> left<r><img>3</img>';
		with Add('Sub 2','1234',Null,Null,Null) do
		begin
			Caption := '<img>pic1</img> text <img>1:6</img><img>1:6</img><img>1</img> <img>2</img>';
			FixedWidth := 124;
			FixedHeight := 48;
		end;
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
82:
How can I assign multiple pictures to a node

with ChartView1 do
begin
	HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
	HTMLPicture['pic2'] := 'c:\exontrol\images\auction.gif';
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		with Add('Sub 1','1234',Null,Null,Null) do
		begin
			Caption := '<img>pic1</img> text <img>pic2</img>';
			FixedWidth := 108;
			FixedHeight := 48;
		end;
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
81:
How can I change the color of the line that links assistant nodes

with ChartView1 do
begin
	LinkAssistantColor := RGB(255,0,0);
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
80:
How can I change the width of the line that links assistant nodes

with ChartView1 do
begin
	PenLinkAssistant := EXORGCHARTLib_TLB.exPenSolid;
	PenWidthLinkAssistant := 4;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
79:
How can I change the style of the line that links assistant nodes

with ChartView1 do
begin
	PenLinkAssistant := EXORGCHARTLib_TLB.exPenDashDotDot;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
78:
How can I change the shape of the cursor when it hovers the +/- or expand/collapse buttons

with ChartView1 do
begin
	Cursor[EXORGCHARTLib_TLB.exExpandButtonArea] := 'exHelp';
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
77:
How do I change the shape of the cursor when the user clicks an drags the chart

with ChartView1 do
begin
	Cursor[EXORGCHARTLib_TLB.exDragChart] := 'exHelp';
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
76:
How do I change the shape of the cursor when it hovers a node

with ChartView1 do
begin
	Cursor[EXORGCHARTLib_TLB.exNodeArea] := 'exHelp';
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
75:
How do I change the shape of the cursor when it hovers the chart

with ChartView1 do
begin
	Cursor[EXORGCHARTLib_TLB.exChartArea] := 'exHelp';
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
74:
How can I copy and paste the control's content to Microsoft Word for instance

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	PenLink := EXORGCHARTLib_TLB.exPenSolid;
	PenWidthLink := 3;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
73:
How can I copy and paste the control's content to Microsoft Word for instance

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	ButtonsAlign := EXORGCHARTLib_TLB.MiddleRight;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
72:
How can I enable or disable expanding or collapsing a node when user double clicks it

with ChartView1 do
begin
	ExpandOnDblClk := False;
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	ButtonsAlign := EXORGCHARTLib_TLB.MiddleRight;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
71:
How can I align the +/- expand or collapse buttons to the right

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	ButtonsAlign := EXORGCHARTLib_TLB.MiddleRight;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
70:
Can I display the +/- expand or collapse buttons using your EBN files

with ChartView1 do
begin
	with VisualAppearance do
	begin
		Add(11,'c:\exontrol\images\normal.ebn');
		Add(22,'c:\exontrol\images\pushed.ebn');
		Add(1,'CP:11 2 2 -2 -2');
		Add(2,'CP:22 2 2 -2 -2');
	end;
	HasButtons := EXORGCHARTLib_TLB.exCustom;
	HasButtonsCustom[True] := 33554432;
	HasButtonsCustom[False] := 16777216;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
69:
How can I change the +/- expand or collapse buttons

with ChartView1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	HasButtons := EXORGCHARTLib_TLB.exCustom;
	HasButtonsCustom[True] := 1;
	HasButtonsCustom[False] := 2;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
68:
How can I change the +/- expand or collapse buttons

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exCircle;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
67:
How can I display +/- expand or collapse buttons

with ChartView1 do
begin
	HasButtons := EXORGCHARTLib_TLB.exPlus;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null).Expanded := False;
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
66:
How do I show or hide the assistant nodes

with ChartView1 do
begin
	ShowAssistants := True;
	with Root do
	begin
		Image := 0;
		AddAssistant('Assistant 1',Null,Null);
		AddAssistant('Assistant 2',Null,Null);
	end;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
65:
How do I scale or zoom the chart

with ChartView1 do
begin
	BorderWidth := 18;
	BorderHeight := 18;
	ZoomWidthMode := EXORGCHARTLib_TLB.exCustomSize;
	ZoomHeightMode := EXORGCHARTLib_TLB.exCustomSize;
	ZoomWidth := 2;
	ZoomHeight := 2;
	Root.Image := 0;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
64:
How do I scale or zoom the chart

with ChartView1 do
begin
	BorderWidth := 18;
	BorderHeight := 18;
	ZoomWidthMode := EXORGCHARTLib_TLB.exControlSize;
	ZoomHeightMode := EXORGCHARTLib_TLB.exControlSize;
	Root.Image := 0;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
63:
How can I ensure that the selected node is visible or fits the chart's area

with ChartView1 do
begin
	EnsureVisibleOnSelect := True;
	ScrollOnEnsure := False;
	BorderWidth := 18;
	BorderHeight := 18;
	ZoomWidthMode := EXORGCHARTLib_TLB.exCustomSize;
	ZoomHeightMode := EXORGCHARTLib_TLB.exCustomSize;
	ZoomWidth := 2;
	ZoomHeight := 2;
	Root.Image := 0;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Sub 3','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
62:
How do I avoid slow moving the chart when the user selects a new node

with ChartView1 do
begin
	ScrollByClick := False;
end
61:
How do I ensure that a node is visible or fits the chart's area

with ChartView1 do
begin
	Root.Image := 0;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
	EnsureVisibleNode('1234');
end
60:
How do I change the root node, so it explore from a specified node

with ChartView1 do
begin
	Root.Image := 0;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Sub 1','1234',Null,Null,Null);
		Add('Sub 2','1234',Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
	ExploreFromNode := '1234';
end
59:
How do I select a node

with ChartView1 do
begin
	Root.Image := 0;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,'1234',Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
	SelectNode := '1234';
	HideSelection := False;
end
57:
How do I fix the height for all nodes

with ChartView1 do
begin
	FixedHeightNode := 32;
	Root.Image := 0;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
56:
How do I fix the width for all nodes

with ChartView1 do
begin
	FixedWidthNode := 128;
	Root.Image := 0;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
55:
How do I change the style of the link between nodes

with ChartView1 do
begin
	PenLink := EXORGCHARTLib_TLB.exPenDash;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
54:
How do I change the color to link the nodes

with ChartView1 do
begin
	LinkColor := RGB(255,0,0);
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
53:
How do I change the shape for selected node, using your EBN files

with ChartView1 do
begin
	VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
	SelColor := $2000000;
	SelectNode := 'root';
	HideSelection := False;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
52:
How do I change the color for selected node

with ChartView1 do
begin
	SelColor := RGB(0,0,255);
	SelectNode := 'root';
	HideSelection := False;
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
51:
How do I hide the node's shadow

with ChartView1 do
begin
	ShadowNode := False;
end
50:
How do I change the pen to draw the border for all nodes

with ChartView1 do
begin
	PenBorderNode := EXORGCHARTLib_TLB.exPenDot;
end
49:
How do I change the shape of the border for all nodes

with ChartView1 do
begin
	VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
	Background[EXORGCHARTLib_TLB.exNodeFrame] := $2000000;
end
48:
How do I change the shape of the border for all nodes

with ChartView1 do
begin
	DrawRoundNode := False;
end
47:
How do I change the foreground color for all nodes

with ChartView1 do
begin
	ForeColorNode := RGB(255,0,0);
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
46:
How do I change the background color for all nodes

with ChartView1 do
begin
	BackColorNode := RGB(255,0,0);
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
45:
How do I change the key of the root

with ChartView1 do
begin
	Root.Key := 'myKey';
end
44:
How do I change the caption of the root

with ChartView1 do
begin
	Root.Caption := 'new<br>root';
end
43:
How do I access the root node

with ChartView1 do
begin
	Root.Caption := 'new<br>root';
end
42:
How do I access the nodes collection

with ChartView1 do
begin
	with Nodes do
	begin
		Add('Child <b>1</b>',Null,Null,Null,Null);
		Add('Child <b>2</b>',Null,Null,Null,Null);
	end;
end
41:
How do I refresh the control

with ChartView1 do
begin
	Nodes.Add('Child <b>1</b>',Null,Null,Null,Null);
	Nodes.Add('Child <b>2</b>',Null,Null,Null,Null);
	Refresh();
end
40:
How do I prevent painting while several changes are performed

with ChartView1 do
begin
	BeginUpdate();
	Nodes.Add('Child <b>1</b>',Null,Null,Null,Null);
	Nodes.Add('Child <b>2</b>',Null,Null,Null,Null);
	EndUpdate();
end
39:
How do I indent the full chart to the right

with ChartView1 do
begin
	BorderWidth := 8;
	BorderHeight := 8;
end
38:
How can I change the node's border/frame, using your EBN files

with ChartView1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXORGCHARTLib_TLB.exNodeFrame] := $1000000;
	Nodes.Add('Child <b>1</b>',Null,Null,Null,Null);
	Nodes.Add('Child <b>2</b>',Null,Null,Null,Null);
end
37:
How can still display the selected node when the control loses the focus

with ChartView1 do
begin
	HideSelection := False;
end
36:
How do I disable or enable the control
with ChartView1 do
begin
	Enabled := False;
end
35:
How do I change the visual aspect for thumb parts in the scroll bars, using EBN

with ChartView1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
	VisualAppearance.Add(3,'c:\exontrol\images\hot.ebn');
	Background[EXORGCHARTLib_TLB.exHSThumb] := $1000000;
	Background[EXORGCHARTLib_TLB.exHSThumbP] := $2000000;
	Background[EXORGCHARTLib_TLB.exHSThumbH] := $3000000;
	Background[EXORGCHARTLib_TLB.exVSThumb] := $1000000;
	Background[EXORGCHARTLib_TLB.exVSThumbP] := $2000000;
	Background[EXORGCHARTLib_TLB.exVSThumbH] := $3000000;
	FixedWidthNode := 320;
end
34:
How do I change the visual aspect only for the thumb in the scroll bar, using EBN

with ChartView1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
	VisualAppearance.Add(3,'c:\exontrol\images\hot.ebn');
	Background[EXORGCHARTLib_TLB.exHSThumb] := $1000000;
	Background[EXORGCHARTLib_TLB.exHSThumbP] := $2000000;
	Background[EXORGCHARTLib_TLB.exHSThumbH] := $3000000;
	ScrollThumbSize[EXORGCHARTLib_TLB.exHScroll] := 96;
	FixedWidthNode := 320;
end
33:
I've seen that you can change the visual appearance for the scroll bar. How can I do that

with ChartView1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	VisualAppearance.Add(2,'c:\exontrol\images\pushed.ebn');
	VisualAppearance.Add(3,'c:\exontrol\images\hot.ebn');
	Background[EXORGCHARTLib_TLB.exSBtn] := $1000000;
	Background[EXORGCHARTLib_TLB.exSBtnP] := $2000000;
	Background[EXORGCHARTLib_TLB.exSBtnH] := $3000000;
	Background[EXORGCHARTLib_TLB.exHSBack] := $f0f0f0;
	Background[EXORGCHARTLib_TLB.exVSBack] := $f0f0f0;
	Background[EXORGCHARTLib_TLB.exSizeGrip] := $f0f0f0;
	FixedWidthNode := 320;
end
32:
Can I change the forecolor for the tooltip

with ChartView1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	Background[EXORGCHARTLib_TLB.exToolTipForeColor] := $ff;
	Root.ToolTip := 'This is a bit of text that''s shown when the cursor hovers the node.';
end
31:
Can I change the background color for the tooltip

with ChartView1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	Background[EXORGCHARTLib_TLB.exToolTipBackColor] := $ff;
	Root.ToolTip := 'This is a bit of text that''s shown when the cursor hovers the node.';
end
30:
Can I change the default border of the tooltip, using your EBN files

with ChartView1 do
begin
	ToolTipDelay := 1;
	ToolTipWidth := 364;
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Background[EXORGCHARTLib_TLB.exToolTipAppearance] := $1000000;
	Root.ToolTip := 'This is a bit of text that''s shown when the cursor hovers the node.';
end
29:
How do I call your x-script language

with ChartView1 do
begin
	ExecuteTemplate('BackColor = RGB(255,0,0)');
end
28:
How do I call your x-script language

with ChartView1 do
begin
	Template := 'BackColor = RGB(255,0,0)';
end
27:
Can I change the font for the tooltip

with ChartView1 do
begin
	ToolTipDelay := 1;
	with ToolTipFont do
	begin
		Name := 'Tahoma';
		Size := 14;
	end;
	ToolTipWidth := 364;
	Root.ToolTip := 'This is a bit of text that''s shown when the cursor hovers the node.';
end
26:
I've seen that the width of the tooltip is variable. Can I make it larger

with ChartView1 do
begin
	ToolTipWidth := 328;
	Root.ToolTip := 'This is a bit of text that''s shown when the cursor hovers the node.';
end
25:
How do I let the tooltip being displayed longer

with ChartView1 do
begin
	ToolTipPopDelay := 10000;
	Root.ToolTip := 'This is a bit of text that''s shown when the cursor hovers the node.';
end
24:
How do I disable showing the tooltip for all control
with ChartView1 do
begin
	ToolTipDelay := 0;
	Root.ToolTip := 'This is a bit of text that''s shown when the cursor hovers the node.';
end
23:
How do I show the tooltip quicker

with ChartView1 do
begin
	ToolTipDelay := 1;
	Root.ToolTip := 'This is a bit of text that''s shown when the cursor hovers the node.';
end
22:
Can I change the order of the buttons in the scroll bar

with ChartView1 do
begin
	ScrollOrderParts[EXORGCHARTLib_TLB.exHScroll] := 't,l,r';
	ScrollOrderParts[EXORGCHARTLib_TLB.exVScroll] := 't,l,r';
	FixedWidthNode := 320;
end
21:
The thumb size seems to be very small. Can I make it bigger

with ChartView1 do
begin
	ScrollThumbSize[EXORGCHARTLib_TLB.exHScroll] := 164;
	FixedWidthNode := 320;
end
20:
How do I enlarge or change the size of the control's scrollbars

with ChartView1 do
begin
	ScrollHeight := 18;
	ScrollWidth := 18;
	ScrollButtonWidth := 18;
	ScrollButtonHeight := 18;
	FixedWidthNode := 320;
	FixedHeightNode := 320;
end
19:
How can I display my text on the scroll bar, using a different font

with ChartView1 do
begin
	ScrollPartCaption[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exThumbPart] := 'This is just a text';
	ScrollFont[EXORGCHARTLib_TLB.exHScroll].Size := 12;
	ScrollThumbSize[EXORGCHARTLib_TLB.exHScroll] := 128;
	ScrollHeight := 24;
	ScrollPartCaption[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exThumbPart] := 'This is <s><font Tahoma;12> just </font></s> text';
	ScrollHeight := 20;
	FixedWidthNode := 320;
end
18:
How can I display my text on the scroll bar

with ChartView1 do
begin
	ScrollPartCaption[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exThumbPart] := 'this is just a text';
	ScrollThumbSize[EXORGCHARTLib_TLB.exHScroll] := 96;
	FixedWidthNode := 320;
end
17:
How do I assign a tooltip to a scrollbar

with ChartView1 do
begin
	ScrollToolTip[EXORGCHARTLib_TLB.exHScroll] := 'This is a tooltip being shown when you click and drag the thumb in the horizontal scroll bar';
	FixedWidthNode := 320;
end
16:
How do I assign an icon to the button in the scrollbar

with ChartView1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	ScrollPartVisible[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exLeftB1Part] := True;
	ScrollPartCaption[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exLeftB1Part] := '<img>1</img>';
	ScrollHeight := 18;
	ScrollButtonWidth := 18;
	FixedWidthNode := 320;
end
15:
I need to add a button in the scroll bar. Is this possible

with ChartView1 do
begin
	ScrollPartVisible[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exLeftB1Part] := True;
	ScrollPartCaption[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exLeftB1Part] := '1';
	FixedWidthNode := 320;
end
14:
Can I display an additional buttons in the scroll bar

with ChartView1 do
begin
	ScrollPartVisible[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exLeftB1Part] := True;
	ScrollPartVisible[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exLeftB2Part] := True;
	ScrollPartVisible[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exRightB6Part] := True;
	ScrollPartVisible[EXORGCHARTLib_TLB.exHScroll,EXORGCHARTLib_TLB.exRightB5Part] := True;
	FixedWidthNode := 320;
end
13:
How do I change the control's foreground color

with ChartView1 do
begin
	ForeColor := RGB(255,0,0);
end
12:
How do I change the control's background color

with ChartView1 do
begin
	BackColor := RGB(200,200,200);
end
11:
How can I change the control's font

with ChartView1 do
begin
	Font.Name := 'Verdana';
end
10:
How do I put a picture on the center of the control

with ChartView1 do
begin
	Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXORGCHARTLib_TLB.MiddleCenter;
end
9:
How do I resize/stretch a picture on the control's background

with ChartView1 do
begin
	Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXORGCHARTLib_TLB.Stretch;
end
8:
How do I put a picture on the control's center right bottom side

with ChartView1 do
begin
	Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXORGCHARTLib_TLB.LowerRight;
end
7:
How do I put a picture on the control's center left bottom side

with ChartView1 do
begin
	Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXORGCHARTLib_TLB.LowerLeft;
end
6:
How do I put a picture on the control's center top side

with ChartView1 do
begin
	Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXORGCHARTLib_TLB.UpperCenter;
end
5:
How do I put a picture on the control's right top corner

with ChartView1 do
begin
	Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXORGCHARTLib_TLB.UpperRight;
end
4:
How do I put a picture on the control's left top corner

with ChartView1 do
begin
	Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
	PictureDisplay := EXORGCHARTLib_TLB.UpperLeft;
end
3:
How do I put a picture on the control's background

with ChartView1 do
begin
	Picture := ChartView1.ExecuteTemplate('loadpicture(`c:\exontrol\images\zipdisk.gif`)');
end
2:
How do I change the control's border, using your EBN files

with ChartView1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Appearance := EXORGCHARTLib_TLB.AppearanceEnum($1000000);
end
1:
How do I remove the control's border

with ChartView1 do
begin
	Appearance := EXORGCHARTLib_TLB.None2;
end