|
229
|
Fullfit the caption on the element's width
// AnchorClick event - Occurs when an anchor element is clicked.
procedure TForm1.ChartView1AnchorClick(ASender: TObject; AnchorID : WideString;Options : WideString);
begin
with ChartView1 do
begin
OutputDebugString( AnchorID );
end
end;
with ChartView1 do
begin
AllowSelectNothing := True;
AllowEdit := EXORGCHARTLib_TLB.exDisallow;
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
FixedWidth := 256;
CaptionSingleLine := EXORGCHARTLib_TLB.exCaptionBreakWrap;
Caption := '<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</so' +
'lidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)';
end;
end;
end
|
|
228
|
Break-wrap the caption (truncated)
// AnchorClick event - Occurs when an anchor element is clicked.
procedure TForm1.ChartView1AnchorClick(ASender: TObject; AnchorID : WideString;Options : WideString);
begin
with ChartView1 do
begin
OutputDebugString( AnchorID );
end
end;
with ChartView1 do
begin
AllowSelectNothing := True;
AllowEdit := EXORGCHARTLib_TLB.exDisallow;
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
FixedWidth := 96;
CaptionSingleLine := EXORGCHARTLib_TLB.exCaptionBreakWrap;
Caption := '<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</so' +
'lidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)';
end;
end;
end
|
|
227
|
Break-wrap the caption
with ChartView1 do
begin
AllowSelectNothing := True;
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
CaptionSingleLine := EXORGCHARTLib_TLB.exCaptionBreakWrap;
Caption := '<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</so' +
'lidline><br>+ deposit(amount: Currency)<r><a 2;methods>+</a><br>+ withdraw(amount: Currency)';
end;
end;
end
|
|
226
|
Wrap the caption by <br> or "\r\n" sequence only
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
CaptionSingleLine := EXORGCHARTLib_TLB.exCaptionBreakWrap;
Caption := 'This is a bit of long text is displayed on first line.<br>The second line.';
end;
end;
end
|
|
225
|
Word-wrap the caption (specify the width to wrap)
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
Width := 96;
CaptionSingleLine := EXORGCHARTLib_TLB.exCaptionWordWrap;
Caption := 'This is a bit of long text that should break into words.';
end;
end;
end
|
|
224
|
Word-wrap the caption
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
CaptionSingleLine := EXORGCHARTLib_TLB.exCaptionWordWrap;
Caption := 'This is a bit of long text that should break into words.';
end;
end;
end
|
|
223
|
Caption on a single line (truncated)
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
CaptionSingleLine := EXORGCHARTLib_TLB.exCaptionSingleLine;
Caption := 'This is a bit of long text that should be truncated.';
FixedWidth := 128;
end;
end;
end
|
|
222
|
Caption on a single line
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
CaptionSingleLine := EXORGCHARTLib_TLB.exCaptionSingleLine;
Caption := 'This is a bit of long text that should not be broken.';
end;
end;
end
|
|
221
|
Force hover-all feature
with ChartView1 do
begin
Background[EXORGCHARTLib_TLB.exScrollHoverAll] := $ffffffff;
end
|
|
220
|
Disable hover-all feature (Windows 11 or greater)
with ChartView1 do
begin
Background[EXORGCHARTLib_TLB.exScrollHoverAll] := $1;
end
|
|
219
|
Display a custom tooltip
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.ChartView1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
with ChartView1 do
begin
ShowToolTip('new content','',Null,'+8','+8');
end
end;
|
|
218
|
Shows the tooltip of the object moved relative to its default position
// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.ChartView1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
with ChartView1 do
begin
ShowToolTip('<null>','<null>',Null,'+8','+8');
end
end;
with ChartView1 do
begin
Root.ToolTip := 'This is a bit of text that''s shown when the cursor hovers the node.';
end
|
|
217
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
with ChartView1 do
begin
BeginUpdate();
ImageSize := 32;
Font.Size := 16;
Images('gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN' +
'UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy' +
'V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM' +
'Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F' +
'EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y' +
'7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF' +
'gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN' +
'hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio' +
'W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4' +
'VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6' +
'/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD' +
'NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT' +
'8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff' +
'EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6' +
'I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg' +
'H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR' +
'JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==');
with VisualAppearance do
begin
Add(4,'gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL' +
'UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU' +
'rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3' +
'NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY' +
'YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm' +
'WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo' +
'WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS' +
'e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF' +
'CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==');
end;
Background[EXORGCHARTLib_TLB.exNodeFrame] := $4000000;
HasButtons := EXORGCHARTLib_TLB.exPlus;
with Root do
begin
Image := 1;
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).Image := 2;
Add('Sub 2','1234',Null,Null,Null).Image := 3;
Add('Child <b>2</b>',Null,'1235',Null,Null).Expanded := False;
Add('Sub 2','1235',Null,Null,Null);
end;
EndUpdate();
end
|
|
216
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
with ChartView1 do
begin
BeginUpdate();
ImageSize := 16;
Images('gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqd' +
'SqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVtt' +
'mp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8ac' +
'vQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTG' +
'sbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPn' +
'wD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==');
with VisualAppearance do
begin
Add(4,'gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL' +
'UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU' +
'rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3' +
'NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY' +
'YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm' +
'WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo' +
'WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS' +
'e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF' +
'CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==');
end;
Background[EXORGCHARTLib_TLB.exNodeFrame] := $4000000;
HasButtons := EXORGCHARTLib_TLB.exPlus;
with Root do
begin
Image := 1;
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).Image := 2;
Add('Sub 2','1234',Null,Null,Null).Image := 3;
Add('Child <b>2</b>',Null,'1235',Null,Null).Expanded := False;
Add('Sub 2','1235',Null,Null,Null);
end;
EndUpdate();
end
|
|
215
|
Is it possible to show a percent/progress-bar associated with a node (method 2)
with ChartView1 do
begin
BeginUpdate();
DefaultNodePadding[EXORGCHARTLib_TLB.exPaddingAll] := 4;
with Nodes do
begin
Add('Child <b>1</b>',Null,'1234',Null,Null);
Add('Sub 1<br>','1234','AK1',Null,Null).BackgroundExt := 'none[(4,100%-22,100%-8,18)](bottom[4](left[10%,back=RGB(255,0,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],' +
'none[(2,100%-22,100%-4,22),text=`10%`,align=0x11]])';
Add('Sub 2<br>','1234','AK2',Null,Null).BackgroundExt := 'none[(4,100%-22,100%-8,18)](bottom[4](left[50%,back=RGB(0,255,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],' +
'none[(2,100%-22,100%-4,22),text=`50%`,align=0x11]])';
Add('Sub 3<br>','1234','AK3',Null,Null).BackgroundExt := 'none[(4,100%-22,100%-8,18)](bottom[4](left[100%,back=RGB(0,0,255)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)]' +
',none[(2,100%-22,100%-4,22),text=`100%`,align=0x11]])';
Add('Child <b>2.1</b>',Null,Null,Null,Null).AddGroup('Child <b>2.2</b>',Null,Null);
end;
with Nodes.Item['AK1'] do
begin
BackgroundExtValue[EXORGCHARTLib_TLB.exIndexExt3,EXORGCHARTLib_TLB.exClientExt] := '25%';
BackgroundExtValue[EXORGCHARTLib_TLB.exIndexExt5,EXORGCHARTLib_TLB.exTextExt] := BackgroundExtValue[EXORGCHARTLib_TLB.exIndexExt3,EXORGCHARTLib_TLB.exClientExt];
end;
EndUpdate();
end
|
|
214
|
Is it possible to show a percent/progress-bar associated with a node (method 1)
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') do
begin
Pattern.Type := EXORGCHARTLib_TLB.exPatternEmpty;
Padding[EXORGCHARTLib_TLB.exPaddingBottom] := 20;
BackgroundExt := 'bottom[4](left[50%,back=RGB(255,0,0)]),none[(0,100%-4,100%,4),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22),t' +
'ext=`50%`]';
f1 := Index;
end;
with Frames.Item[OleVariant(f1)] do
begin
BackgroundExtValue[EXORGCHARTLib_TLB.exIndexExt2,EXORGCHARTLib_TLB.exClientExt] := '25%';
BackgroundExtValue[EXORGCHARTLib_TLB.exIndexExt4,EXORGCHARTLib_TLB.exTextExt] := BackgroundExtValue[EXORGCHARTLib_TLB.exIndexExt2,EXORGCHARTLib_TLB.exClientExt];
end;
with Frames.Add('AK2') do
begin
Pattern.Type := EXORGCHARTLib_TLB.exPatternEmpty;
Padding[EXORGCHARTLib_TLB.exPaddingBottom] := 20;
BackgroundExt := 'bottom[12](left[50%,back=RGB(255,0,0)]),none[(0,100%-12,100%,12),pattern=0x000,frame=RGB(192,192,192)],none[(2,100%-22,100%-4,22' +
'),text=`50%`]';
f2 := Index;
end;
with Frames.Item[OleVariant(f2)] do
begin
BackgroundExtValue[EXORGCHARTLib_TLB.exIndexExt2,EXORGCHARTLib_TLB.exClientExt] := '75%';
BackgroundExtValue[EXORGCHARTLib_TLB.exIndexExt2,EXORGCHARTLib_TLB.exBackColorExt] := OleVariant(65280);
BackgroundExtValue[EXORGCHARTLib_TLB.exIndexExt4,EXORGCHARTLib_TLB.exTextExt] := BackgroundExtValue[EXORGCHARTLib_TLB.exIndexExt2,EXORGCHARTLib_TLB.exClientExt];
end;
EndUpdate();
end
|
|
213
|
How can I display the node's caption on multiple lines
with ChartView1 do
begin
WidthNode := 64;
Root.Caption := 'This is a bit of text that should break the line';
end
|
|
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
|