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. *** LPARAMETERS AnchorID,Options with thisform.ChartView1 DEBUGOUT( Options ) endwith with thisform.ChartView1 .Root.Image = 0 with .Nodes .Add("<a;http://www.exontrol.com>exontrol</a>",0,"1234") endwith endwith
183. Is it possible to put a caption on the regular links
with thisform.ChartView1 .IndentSiblingY = 30 .ShowLinksDir = .T. .PenWidthLink = 2 .LinkColor = RGB(0,0,0) .AntiAliasing = .T. with .Nodes .Add("L1_A",0,"LA").LinkCaption = "<fgcolor=FF0000><font ;6>caption<br><c><bgcolor=FFFFFF><a>link" .Add("L1_B",0,"LB") .Add("L2_A","LA","LA2") .Add("L2_B","LB","LB2") endwith endwith
182. Is it possible to hide directions for specific links
with thisform.ChartView1 .IndentSiblingY = 30 .ShowLinksDir = .T. .PenWidthLink = 2 .LinkColor = RGB(0,0,0) .AntiAliasing = .T. with .Nodes .Add("L1_A",0,"LA").ShowLinkDir = .F. .Add("L1_B",0,"LB") .Add("L2_A","LA","LA2") .Add("L2_B","LB","LB2") endwith endwith
181. Does your control supports multiple lines tooltip
with thisform.ChartView1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .ToolTipDelay = 1 var_s = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The toolti" var_s = var_s + "p supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><b" var_s = var_s + "r>" .Root.ToolTip = var_s endwith
180. Can I change the border's node, using your EBN technology, including specifying a color
with thisform.ChartView1 .VisualAppearance.Add(1,"c:\exontrol\images\hot.ebn") with .Nodes .Add("Child",0,"1234") with .Add("Sub 1","1234") .Caption = "This is a bit of long text that should break the line.<br>-using no color" .BackColor = 0x1000000 endwith with .Add("Sub 2","1234") .Caption = "This is a bit of long text that should break the line.<br>-using a color" .BackColor = 0x100ff00 endwith endwith endwith
179. Can the chart be arranged from the left to right (LTR)
with thisform.ChartView1 .BeginUpdate .Layout = 1 .ShowLinksDir = 1 .IndentSiblingX = 32 with .Nodes .Add("Child1",0,"1234") .Add("Child2",0,"1235") .Add("Sub 1","1234") .Add("Sub 2","1234").Caption = "This is a bit of long text that should break the line." endwith .EndUpdate endwith
178. Is there any property to keep the aspect ratio for all pictures, but still keep the size of nodes
with thisform.ChartView1 .BeginUpdate .PictureHeightNode = 48 .PictureAspectRatioNode = 2 .FixedWidthNode = 82 with .Nodes with .Add("PNG <b>1",0,"0") .Picture = "c:\exontrol\images\card.png" .Alignment = 1 endwith with .Add("PNG <b>2",0,"1") .Picture = "c:\exontrol\images\diary.png" .Alignment = 1 endwith with .Add("PNG <b>3",0,"2") .Picture = "c:\exontrol\images\sun.png" .Alignment = 1 endwith endwith .Root.Alignment = 1 .EndUpdate endwith
177. Is there any property to keep the aspect ratio for all pictures
with thisform.ChartView1 .BeginUpdate .PictureHeightNode = 48 .PictureAspectRatioNode = 2 with .Nodes with .Add("PNG <b>1",0,"0") .Picture = "c:\exontrol\images\card.png" endwith with .Add("PNG <b>2",0,"1") .Picture = "c:\exontrol\images\diary.png" endwith with .Add("PNG <b>3",0,"2") .Picture = "c:\exontrol\images\sun.png" endwith endwith .EndUpdate endwith
176. Is there any property to keep the aspect ratio for all pictures
with thisform.ChartView1 .BeginUpdate .PictureWidthNode = 48 .PictureAspectRatioNode = 1 with .Nodes with .Add("PNG <b>1",0,"0") .Picture = "c:\exontrol\images\card.png" endwith with .Add("PNG <b>2",0,"1") .Picture = "c:\exontrol\images\diary.png" endwith with .Add("PNG <b>3",0,"2") .Picture = "c:\exontrol\images\sun.png" endwith endwith .EndUpdate endwith
175. Is there any property to keep the aspect ratio for displayed picture
with thisform.ChartView1 .BeginUpdate with .Nodes with .Add("Ratio/None",0,"0") .Picture = "c:\exontrol\images\card.png" .PictureWidth = 48 .PictureHeight = 48 endwith with .Add("Ratio/Width",0,"1") .Picture = "c:\exontrol\images\card.png" .PictureWidth = 48 .PictureAspectRatio = 1 endwith with .Add("Ratio/Height",0,"2") .Picture = "c:\exontrol\images\card.png" .PictureHeight = 48 .PictureAspectRatio = 2 endwith endwith .EndUpdate endwith
174. Is is possible to show the round an arbitrary link
with thisform.ChartView1 .AntiAliasing = .T. .ShowLinksDir = .F. .PenWidthLink = 1 .LinkColor = RGB(0,0,0) with .Nodes .Add("L1_A",0,"LA").LinkTo = "LB" .Add("L1_B<br><br>Cust",0,"LB") with .Add("L2_A","LA","LA2") .LinkTo = "LB,LB22" .LinkToColor("LB") = RGB(255,0,0) .LinkToWidth("LB") = 2 .LinkToPen("LB") = 2 .LinkToShowDir("LB") = .T. .LinkToRound("LB") = .T. .LinkToRound("LB22") = .T. .LinkToShowDir("LB22") = .T. .LinkToColor("LB22") = RGB(128,0,0) .LinkToWidth("LB22") = 2 endwith .Add("L2_B1","LB","LB21") .Add("L2_B2","LB","LB22") .Add("L2_B3","LB","LB23") endwith endwith
173. Is is possible to show the round an arbitrary link
with thisform.ChartView1 .AntiAliasing = .T. .ShowLinksDir = .F. .PenWidthLink = 1 .LinkColor = RGB(0,0,0) with .Nodes .Add("L1_A",0,"LA").LinkTo = "LB" .Add("L1_B<br><br>Cust",0,"LB") with .Add("L2_A","LA","LA2") .LinkTo = "LB" .LinkToColor("LB") = RGB(255,0,0) .LinkToWidth("LB") = 2 .LinkToPen("LB") = 2 .LinkToShowDir("LB") = .T. .LinkToRound("LB") = .T. endwith .Add("L2_B1","LB","LB21") .Add("L2_B2","LB","LB22") .Add("L2_B3","LB","LB23") endwith endwith
172. Is is possible to show the direction for a linktoline, even if the ShowLinksDir is False
with thisform.ChartView1 .ShowLinksDir = .F. .PenWidthLink = 2 .LinkColor = RGB(0,0,0) .AntiAliasing = .T. with .Nodes .Add("L1_A",0,"LA").LinkTo = "LB" with .Add("L1_B<br><br>Cust",0,"LB") .LinkTo = "LA2" .LinkToColor("LA2") = RGB(255,0,0) .LinkToWidth("LA2") = 2 .LinkToPen("LA2") = 3 .LinkToShowDir("LA2") = .T. endwith .Add("L2_A","LA","LA2") .Add("L2_B1","LB","LB21") .Add("L2_B2","LB","LB22") .Add("L2_B3","LB","LB23") endwith endwith
171. Is is possible to change the width for a specified linkto line
with thisform.ChartView1 .PenWidthLink = 2 .LinkColor = RGB(0,0,0) .AntiAliasing = .T. with .Nodes .Add("L1_A",0,"LA").LinkTo = "LB" with .Add("L1_B<br><br>Cust",0,"LB") .LinkTo = "LA2" .LinkToColor("LA2") = RGB(255,0,0) .LinkToWidth("LA2") = 4 .LinkToPen("LA2") = 0 .LinkToCaption("LA2") = "L2A-L1B" endwith .Add("L2_A","LA","LA2") .Add("L2_B1","LB","LB21") .Add("L2_B2","LB","LB22") .Add("L2_B3","LB","LB23") endwith endwith
170. Is is possible to change the width for a specified linkto line
with thisform.ChartView1 .PenWidthLink = 2 .LinkColor = RGB(0,0,0) with .Nodes .Add("L1_A",0,"LA").LinkTo = "LB" with .Add("L1_B<br><br>Cust",0,"LB") .LinkTo = "LA2" .LinkToColor("LA2") = RGB(255,0,0) .LinkToWidth("LA2") = 2 endwith .Add("L2_A","LA","LA2") .Add("L2_B1","LB","LB21") .Add("L2_B2","LB","LB22") .Add("L2_B3","LB","LB23") endwith endwith
169. Is is possible to change the color for a specified linkto line
with thisform.ChartView1 .PenWidthLink = 2 .LinkColor = RGB(0,0,0) with .Nodes .Add("L1_A",0,"LA").LinkTo = "LB" with .Add("L1_B<br><br>Cust",0,"LB") .LinkTo = "LA2" .LinkToColor("LA2") = RGB(255,0,0) .LinkToWidth("LA2") = 2 endwith .Add("L2_A","LA","LA2") .Add("L2_B1","LB","LB21") .Add("L2_B2","LB","LB22") .Add("L2_B3","LB","LB23") endwith endwith
168. How can I specify the size for a picture being shown in a specified node only
with thisform.ChartView1 with .Nodes with .Add("Child 1",0,"1") .Picture = "c:\exontrol\images\zipdisk.gif" .PictureWidth = 64 .PictureHeight = 64 endwith .Add("Child 2",0,"2").Picture = "c:\exontrol\images\auction.gif" endwith endwith
167. How can I resize the pictures being shown in the nodes
with thisform.ChartView1 .PictureHeightNode = 24 .PictureWidthNode = 24 with .Nodes .Add("Child 1",0,"1").Picture = "c:\exontrol\images\zipdisk.gif" .Add("Child 2",0,"2").Picture = "c:\exontrol\images\auction.gif" endwith endwith
166. Can I change the width of the node's border
with thisform.ChartView1 with .Nodes with .Add("Child 1",0,"1") .BorderWidth = 3 .DrawRoundNode = .F. endwith .Add("Child 2",0,"2") endwith endwith
165. Can I change the visual appearance of the node
with thisform.ChartView1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") with .Nodes .Add("Child 1",0,"1").BackColor = 0x1000000 .Add("Child 2",0,"2") endwith endwith
164. Can I specify a different color for node's border
with thisform.ChartView1 with .Nodes .Add("Child 1",0,"1").BorderColor = RGB(255,0,0) .Add("Child 2",0,"2") endwith endwith
163. Can I display my image on my links
with thisform.ChartView1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\colorize.gif" .AntiAliasing = .T. .IndentSiblingY = 30 .IndentSiblingX = 60 .ShowLinksDir = .T. .PenWidthLink = 2 .LinkColor = RGB(0,0,0) with .Nodes .Add("L1_A",0,"LA") with .Add("L1_B",0,"LB") .LinkTo = "LA2" .LinkToCaption("LA2") = "<img>pic1</img> text" endwith .Add("L2_A","LA","LA2") .Add("L2_B","LB","LB2") endwith endwith
162. How can I show a caption on my link
with thisform.ChartView1 .AntiAliasing = .T. .IndentSiblingY = 30 .ShowLinksDir = .T. .PenWidthLink = 2 .LinkColor = RGB(0,0,0) with .Nodes .Add("L1_A",0,"LA") with .Add("L1_B",0,"LB") .LinkTo = "LA2" .LinkToCaption("LA2") = "text" endwith .Add("L2_A","LA","LA2") .Add("L2_B","LB","LB2") endwith endwith
161. How can I show smootly the arrows
with thisform.ChartView1 .AntiAliasing = .T. .IndentSiblingY = 30 .ShowLinksDir = .T. .PenWidthLink = 2 .LinkColor = RGB(0,0,0) with .Nodes .Add("L1_A",0,"LA") .Add("L1_B",0,"LB").LinkTo = "LA2" .Add("L2_A","LA","LA2").LinkTo = "LB" .Add("L2_B","LB","LB2") endwith endwith
160. How can I show direction on my links
with thisform.ChartView1 .IndentSiblingY = 30 .ShowLinksDir = .T. .PenWidthLink = 2 .LinkColor = RGB(0,0,0) .AntiAliasing = .T. with .Nodes .Add("L1_A",0,"LA") .Add("L1_B",0,"LB").LinkTo = "LA2" .Add("L2_A","LA","LA2").LinkTo = "LB" .Add("L2_B","LB","LB2") endwith endwith
159. How can I add a doubled direction link
with thisform.ChartView1 .PenWidthLink = 2 .LinkColor = RGB(0,0,0) with .Nodes .Add("L1_A",0,"LA") .Add("L1_B",0,"LB").LinkTo = "LA2" .Add("L2_A","LA","LA2").LinkTo = "LB" .Add("L2_B","LB","LB2") endwith endwith
158. How can I add arbitrary links
with thisform.ChartView1 .PenWidthLink = 2 .LinkColor = RGB(0,0,0) with .Nodes .Add("L1_A",0,"LA") .Add("L1_B",0,"LB").LinkTo = "LA2" .Add("L2_A","LA","LA2") .Add("L2_B","LB","LB2") endwith endwith
157. How can I add multiple parents
with thisform.ChartView1 .PenWidthLink = 2 .LinkColor = RGB(0,0,0) with .Nodes .Add("L1_A",0,"L1").AddGroup("L1_B") .Add("L_A","L1") .Add("L_B","L1") .Add("L_C","L1") endwith endwith
156. How can I add multiple parents or roots
with thisform.ChartView1 .BeginUpdate .HasButtons = 3 .ButtonsAlign = 1 .PenWidthLink = 3 .IndentChild = 32 with .Root .HasButton = .F. var_s = "<r><dotline><b>Root 1</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><f" var_s = var_s + "gcolor=0000FF><b>1</b></fgcolor><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3" .Caption = var_s .Image = 0 var_s1 = "<r><dotline><b>Root 2</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><f" var_s1 = var_s1 + "gcolor=0000FF><b>1</b></fgcolor><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3" .AddGroup(var_s1) var_s2 = "<r><dotline><b>Root 3</b><br>Some information <a info>here</a>.<br><upline><dotline>Line 1:<r><f" var_s2 = var_s2 + "gcolor=0000FF><b>1</b></fgcolor><br><upline><dotline>Line 2:<r>2<br><upline><dotline>Line 3:<r>3" .AddGroup(var_s2) .AddAssistant("<b>Assistant</b> <a1>node 1</a>").Key = "A" with .AddAssistant("<b>Assistant</b> <a2>node 2</a>") .Left = .T. .ShowLinks = .F. .LinkTo = "A" endwith endwith with .Nodes with .Add("Parent <b>1</b>",0,"Key1") .HasButton = .F. .ArrangeSiblingNodesAs = 2 .ShowRoundLink = .T. .AddGroup("Parent <b>2</b>") .AddGroup("Parent <b>3</b>") endwith .Add("SubItem 1","Key1","S1").HasButton = .F. .Add("SubItem 1.1","S1","S111") .Add("SubItem 1.2","S1","S112") .Add("SubItem 2","Key1") .Add("Item 2",0,"Key2").Expanded = .F. .Add("SubItem 1","Key2") .Add("SubItem 2","Key2") endwith .EndUpdate endwith
155. How can I align the text/caption on the scroll bar
with thisform.ChartView1 .Object.ScrollPartCaption(1,512) = "left" .Object.ScrollPartCaptionAlignment(1,512) = 0 .Object.ScrollPartCaption(1,128) = "right" .Object.ScrollPartCaptionAlignment(1,128) = 2 .FixedWidthNode = 320 endwith
154. How can I show round links
with thisform.ChartView1 .ShowRoundLink = .T. .Root.Image = 0 .IndentSiblingX = 32 .IndentSiblingY = 64 with .Nodes .Add("Child <b>1</b>",0,"1234").ArrangeSiblingNodesAs = 1 .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
153. How do I access a node by its key
with thisform.ChartView1 with .Nodes .Add("Child 1",0,"C1") .Add("Sub Child 1","C1","SC1") .Add("Sub Sub Shild 1","SC1") endwith .Nodes.Item("SC1").BackColor = RGB(255,0,0) endwith
152. How can I get the number of nodes
with thisform.ChartView1 .HasButtons = -1 .Root.ArrangeSiblingNodesAs = 2 with .Nodes .Add("Child 1",0,"C1") .Add("Sub Child 1","C1","SC1") .Add("Sub Sub Shild 1","SC1") .Remove(3) endwith endwith
151. How can I remove all nodes in the chart
with thisform.ChartView1 .Nodes.Clear endwith
150. How can I clear the chart
with thisform.ChartView1 .Nodes.Clear endwith
149. How can I get the number of nodes
with thisform.ChartView1 .HasButtons = -1 .Root.ArrangeSiblingNodesAs = 2 with .Nodes .Add("Child 1",0,"C1") .Add("Sub Child 1","C1","SC1") .Add("Sub Sub Shild 1","SC1") .Add(.Count) endwith endwith
148. How can I add a child node
with thisform.ChartView1 .HasButtons = -1 .Root.ArrangeSiblingNodesAs = 2 with .Nodes .Add("Child 1",0,"C1") .Add("Sub Child 1","C1","SC1") .Add("Sub Sub Shild 1","SC1") endwith endwith
147. How can I add a child node
with thisform.ChartView1 .HasButtons = -1 with .Nodes .Add("Child 1",0,"C1") .Add("Child 2",0,"C2") .Add("Sub Child 1","C1","SC1") .Add("Sub Sub Shild 1","SC1") endwith endwith
146. How can I draw link or a line between my own nodes
with thisform.ChartView1 .HasButtons = -1 .PenLink = 0 .PenWidthLink = 3 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") with .Add("Sub 2","1234") .LinkTo = "AA" endwith .Add("Sub 3","1234") .Add("Child <b>2</b>",0,"AA") endwith endwith
145. How can I show or hide the link or a line between nodes
with thisform.ChartView1 .HasButtons = -1 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").ShowLinks = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
144. How can I hide or show the +/- expand/collapse buttons for a specified node
with thisform.ChartView1 .HasButtons = -1 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").HasButton = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
143. How can I expand or collapse a node
with thisform.ChartView1 .HasButtons = -1 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
142. How can I assign an icon to the root node
with thisform.ChartView1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Root.Image = 1 endwith
141. How can I access an assistant nodes
with thisform.ChartView1 .BeginUpdate var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") .Assistant(0).Image = 1 endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith .EndUpdate endwith
140. How can I get the number or count of assistant nodes
with thisform.ChartView1 .BeginUpdate with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") .AddAssistant(.CountAssistants) endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith .EndUpdate endwith
139. How can I display assistant nodes on the right side only
with thisform.ChartView1 .BeginUpdate with .Root .Image = 0 .AddAssistant("Assistant 1").Left = .F. .AddAssistant("Assistant 2").Left = .F. endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith .EndUpdate endwith
138. How can I display assistant nodes on the left side only
with thisform.ChartView1 .BeginUpdate with .Root .Image = 0 .AddAssistant("Assistant 1").Left = .T. .AddAssistant("Assistant 2").Left = .T. endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith .EndUpdate endwith
137. How can I clear or remove all assistant nodes
with thisform.ChartView1 .BeginUpdate with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") .ClearAssistants endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith .EndUpdate endwith
136. How can I remove an assistant node
with thisform.ChartView1 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") .RemoveAssistant(0) endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
135. How can I add assistant node
with thisform.ChartView1 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
134. Can I change the border's node, using your EBN technology
with thisform.ChartView1 .VisualAppearance.Add(1,"c:\exontrol\images\hot.ebn") with .Nodes .Add("Child",0,"1234") .Add("Sub 1","1234") with .Add("Sub 2","1234") .Caption = "This is a bit of long text that should break the line." .BackColor = 0x1000000 endwith endwith endwith
133. Can I remove the shadow for a specified node
with thisform.ChartView1 with .Nodes .Add("Child",0,"1234") .Add("Sub 1","1234") with .Add("Sub 2","1234") .Caption = "This is a bit of long text that should break the line." .ShadowNode = .F. endwith endwith endwith
132. Can I change the border for a specified node
with thisform.ChartView1 with .Nodes .Add("Child",0,"1234") .Add("Sub 1","1234") with .Add("Sub 2","1234") .Caption = "This is a bit of long text that should break the line." .PenBorderNode = 4 endwith endwith endwith
131. Can I remove the round corner for a specified node
with thisform.ChartView1 with .Nodes .Add("Child",0,"1234") .Add("Sub 1","1234") with .Add("Sub 2","1234") .Caption = "This is a bit of long text that should break the line." .DrawRoundNode = .F. endwith endwith endwith
130. How can I disable or enable a node
with thisform.ChartView1 with .Nodes .Add("Child",0,"1234") .Add("Sub 1","1234") with .Add("Sub 2","1234") .Caption = "This is a bit of long text that should break the line." .Enabled = .F. endwith endwith endwith
129. How can I specify the height of the node
with thisform.ChartView1 with .Nodes .Add("Child",0,"1234") .Add("Sub 1","1234") with .Add("Sub 2","1234") .Caption = "This is a bit of long text that should break the line." .FixedHeight = 128 endwith endwith endwith
128. How can I specify the width of the node
with thisform.ChartView1 with .Nodes .Add("Child",0,"1234") .Add("Sub 1","1234") with .Add("Sub 2","1234") .Caption = "This is a bit of long text that should break the line." .FixedWidth = 128 endwith endwith endwith
127. How can I specify the width of the node to wrap it's content
with thisform.ChartView1 with .Nodes .Add("Child",0,"1234") .Add("Sub 1","1234") with .Add("Sub 2","1234") .Caption = "This is a bit of long text that should break the line." .Width = 128 endwith endwith endwith
126. How can I change the position of the node
with thisform.ChartView1 with .Nodes .Add("Child",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234").Position = 0 endwith endwith
125. How can I count or get the number of child nodes
with thisform.ChartView1 with .Nodes .Add("Child",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add(.Item("1234").NodeCount) endwith endwith
124. How can I enumerate the child nodes
with thisform.ChartView1 with .Nodes .Add("Child",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add(.Item("1234").FirstNode.Caption) .Add(.Item("1234")0.Caption) endwith endwith
123. How can I change the node's parent
with thisform.ChartView1 .BeginUpdate .Nodes.Add("Child 1",0,"1234") .Nodes.Add("Sub 1","1234") .Nodes.Add("Sub 2","1234") .Nodes.Add("Child 2",0,"1235") .Nodes.Add("Sub 1","1235") .Nodes.Add("To Move","1235","Move") with .Nodes.Item("Move") .Parent = thisform.ChartView1.Root .Caption = "Moved 2 Root from Child 2" endwith .EndUpdate endwith
122. How can I assign a key to a node
with thisform.ChartView1 .Nodes.Add("Child",0,"1234") .Nodes.Add("Sub 1","1234") .Nodes.Add("Sub 2","1234") endwith
121. How can I assign a key to a node
with thisform.ChartView1 .Nodes.Add("Child").Key = "1234" .Nodes.Add("Sub 1","1234") .Nodes.Add("Sub 2","1234") endwith
120. How can I change the node's background color
with thisform.ChartView1 with .Nodes.Add("Child") .BackColor = RGB(255,0,0) .ClearBackColor endwith endwith
119. How can I change the node's background color
with thisform.ChartView1 .Nodes.Add("Child").BackColor = RGB(255,0,0) endwith
118. How can I change the node's foreground color
with thisform.ChartView1 with .Nodes.Add("Child") .ForeColor = RGB(255,0,0) .ClearForeColor endwith endwith
117. How can I change the node's foreground color
with thisform.ChartView1 .Nodes.Add("Child").ForeColor = RGB(255,0,0) endwith
116. How can I assign a tooltip to a node
with thisform.ChartView1 with .Nodes.Add("ToolTip") .ToolTip = "This is a bit of text that's shown when the cursor hovers this <b>node</b>." .ToolTipTitle = "TITLE" endwith endwith
115. How can I assign a different font for the node's tooltip
with thisform.ChartView1 var_s = "<font Tahoma;12>This is a bit of text that's shown when the cursor hovers this <b>node</b>.</fon" var_s = var_s + "t>" .Nodes.Add("ToolTip").ToolTip = var_s endwith
114. How can I assign a tooltip to a node
with thisform.ChartView1 .Nodes.Add("ToolTip").ToolTip = "This is a bit of text that's shown when the cursor hovers this <b>node</b>." endwith
113. How can I assign any extra data to my node
with thisform.ChartView1 .Nodes.Add("Child").UserData = "your data" endwith
112. How can I assign an icon and a picture to a node
with thisform.ChartView1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Nodes.Add("Child") .Image = 1 .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureAlignment = 3 endwith endwith
111. How can I align the picture in the node
with thisform.ChartView1 with .Nodes.Add("Child") .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureAlignment = 3 endwith endwith
110. How can I align the picture in the node
with thisform.ChartView1 with .Nodes.Add("Child") .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureAlignment = 2 endwith endwith
109. How can I align the picture in the node
with thisform.ChartView1 with .Nodes.Add("Child") .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureAlignment = 1 endwith endwith
108. How can I assign a picture to a node
with thisform.ChartView1 .Nodes.Add("Child").Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") endwith
107. How can I align the icon in the node
with thisform.ChartView1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Nodes.Add("Just a node with an icon") .Image = 1 .ImageAlignment = 1 endwith endwith
106. How can I align the icon in the node
with thisform.ChartView1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Nodes.Add("Just a node with an icon") .Image = 1 .ImageAlignment = 3 endwith endwith
105. How can I align the icon in the node
with thisform.ChartView1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) with .Nodes.Add("Just a node with an icon") .Image = 1 .ImageAlignment = 2 endwith endwith
104. How can I assign an icon to a node
with thisform.ChartView1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Nodes.Add("Child").Image = 1 endwith
103. How can I change the font for a node
with thisform.ChartView1 .Nodes.Add("Child").Caption = "<font Tahoma;12>new</font> caption" endwith
102. How can I add a multiple lines node
with thisform.ChartView1 .Nodes.Add(0).Caption = "Line 1<br>Line 2<br>Line3" endwith
101. How can I add a multiple lines node
with thisform.ChartView1 .Nodes.Add("Line 1<br>Line 2<br>Line3") endwith
100. How can I change the background color for parts of the text
with thisform.ChartView1 .Nodes.Add("Child").Caption = "<bgcolor=FF0000>new</bgcolor> caption" endwith
99. How can I change the foreground color for parts of the text
with thisform.ChartView1 .Nodes.Add("Child").Caption = "<fgcolor=FF0000>new</fgcolor> caption" endwith
98. How can I show the node as strikeout
with thisform.ChartView1 .Nodes.Add("Child").Caption = "<s>new</s> caption" endwith
97. How can I show the node as underlined
with thisform.ChartView1 .Nodes.Add("Child").Caption = "<u>new</u> caption" endwith
96. How can I show the node as italic
with thisform.ChartView1 .Nodes.Add("Child").Caption = "<i>new</i> caption" endwith
95. How can I bold the node
with thisform.ChartView1 .Nodes.Add("Child").Caption = "<b>new</b> caption" endwith
94. How can I change the node's caption
with thisform.ChartView1 .Nodes.Add("Child").Caption = "new caption" endwith
93. How can I display hierarchical the child nodes so they are indented relative to their parents
with thisform.ChartView1 .HasButtons = -1 .PenLink = 0 .PenWidthLink = 3 .IndentSiblingX = 12 .IndentSiblingY = 12 .Root.Image = 0 with .Nodes .Add("As <b>Tree</b>",0,"1234").ArrangeSiblingNodesAs = 2 .Add("Sub 1","1234") .Add("Sub 2","1234","456") .Add("Item 1","456") .Add("Item 2","456","78").Expanded = .F. .Add("Item 2.1","78") .Add("Item 2.2","78") .Add("Item 3","456") .Add("Sub 3","1234") .Add("As <b>Default</b>",0,"AA") .Add("Item 1","AA") .Add("Item 2","AA","BB") .Add("Item 2.1","BB") .Add("Item 2.2","BB") .Add("Item 2.3","BB") .Add("Item 3","AA") endwith endwith
92. How can I display the child nodes as a tree, so they are indented relative to their parents
with thisform.ChartView1 .IndentSiblingY = 4 .HasButtons = -1 with .Root .Image = 0 .ArrangeSiblingNodesAs = 2 endwith with .Nodes .Add("Child 1",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234","456") .Add("Item 1","456") .Add("Item 2","456","78").Expanded = .F. .Add("Item 2.1","78") .Add("Item 2.2","78") .Add("Item 3","456") .Add("Sub 3","1234") .Add("Child 2") endwith endwith
91. How can I indent the child nodes relative to their parents
with thisform.ChartView1 .IndentChild = 32 .HasButtons = -1 .Root.Image = 0 with .Nodes .Add("AsTree",0,"1234").ArrangeSiblingNodesAs = 2 .Add("Sub 1","1234") .Add("Sub 2","1234","456") .Add("Item 1","456") .Add("Item 2","456","78").Expanded = .F. .Add("Item 2.1","78") .Add("Item 2.2","78") .Add("Item 3","456") .Add("Sub 3","1234") .Add("Child 2",0,"AA") .Add(1,"AA") .Add(2,"AA","BB") .Add("2.1","BB") .Add("2.2","BB") .Add(3,"AA") endwith endwith
90. How can I increase the distance between nodes
with thisform.ChartView1 .IndentSiblingY = 64 .Root.Image = 0 with .Nodes .Add("<a1>Link 1</a>",0,"1234") .Add("Sub <a1>Link 1</a>","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("<a2>Link 2</a>") endwith endwith
89. How can I increase the distance between nodes
with thisform.ChartView1 .IndentSiblingX = 64 .Root.Image = 0 with .Nodes .Add("<a1>Link 1</a>",0,"1234") .Add("Sub <a1>Link 1</a>","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("<a2>Link 2</a>") endwith endwith
88. How can I add an anchor or a hyperlink
with thisform.ChartView1 .Root.Image = 0 with .Nodes .Add("<a1>Link 1</a>",0,"1234") .Add("Sub <a1>Link 1</a>","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("<a2>Link 2</a>") endwith endwith
87. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions, after the user clicks it
with thisform.ChartView1 .Object.FormatAnchor(0) = "<u><fgcolor=880000> </fgcolor></u>" .Root.Image = 0 with .Nodes .Add("<a1>Link 1</a>",0,"1234") .Add("Sub <a1>Link 1</a>","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("<a2>Link 2</a>") endwith endwith
86. Can I change the visual effect, appearance for the anchor, hyperlink elements, in HTML captions
with thisform.ChartView1 .Object.FormatAnchor(1) = "<u><fgcolor=FF0000> </fgcolor></u>" .Root.Image = 0 with .Nodes .Add("<a1>Link 1</a>",0,"1234") .Add("Sub <a1>Link 1</a>","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("<a2>Link 2</a>") endwith endwith
83. How can I assign multiple icons to a node
with thisform.ChartView1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Root.Image = 0 with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234").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") .Caption = "<img>pic1</img> text <img>1:6</img><img>1:6</img><img>1</img> <img>2</img>" .FixedWidth = 124 .FixedHeight = 48 endwith .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
82. How can I assign multiple pictures to a node
with thisform.ChartView1 .Object.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif" .Object.HTMLPicture("pic2") = "c:\exontrol\images\auction.gif" with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234") with .Add("Sub 1","1234") .Caption = "<img>pic1</img> text <img>pic2</img>" .FixedWidth = 108 .FixedHeight = 48 endwith .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
81. How can I change the color of the line that links assistant nodes
with thisform.ChartView1 .LinkAssistantColor = RGB(255,0,0) with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
80. How can I change the width of the line that links assistant nodes
with thisform.ChartView1 .PenLinkAssistant = 0 .PenWidthLinkAssistant = 4 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
79. How can I change the style of the line that links assistant nodes
with thisform.ChartView1 .PenLinkAssistant = 4 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
78. How can I change the shape of the cursor when it hovers the +/- or expand/collapse buttons
with thisform.ChartView1 .Object.Cursor(3) = "exHelp" .HasButtons = -1 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
77. How do I change the shape of the cursor when the user clicks an drags the chart
with thisform.ChartView1 .Object.Cursor(2) = "exHelp" with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
76. How do I change the shape of the cursor when it hovers a node
with thisform.ChartView1 .Object.Cursor(1) = "exHelp" with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
75. How do I change the shape of the cursor when it hovers the chart
with thisform.ChartView1 .Object.Cursor(0) = "exHelp" with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
74. How can I copy and paste the control's content to Microsoft Word for instance
with thisform.ChartView1 .HasButtons = -1 .PenLink = 0 .PenWidthLink = 3 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
73. How can I copy and paste the control's content to Microsoft Word for instance
with thisform.ChartView1 .HasButtons = -1 .ButtonsAlign = 18 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
72. How can I enable or disable expanding or collapsing a node when user double clicks it
with thisform.ChartView1 .ExpandOnDblClk = .F. .HasButtons = -1 .ButtonsAlign = 18 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
71. How can I align the +/- expand or collapse buttons to the right
with thisform.ChartView1 .HasButtons = -1 .ButtonsAlign = 18 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
70. Can I display the +/- expand or collapse buttons using your EBN files
with thisform.ChartView1 with .VisualAppearance .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") endwith .HasButtons = 4 .Object.HasButtonsCustom(1) = 33554432 .Object.HasButtonsCustom(0) = 16777216 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
69. How can I change the +/- expand or collapse buttons
with thisform.ChartView1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .HasButtons = 4 .Object.HasButtonsCustom(1) = 1 .Object.HasButtonsCustom(0) = 2 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
68. How can I change the +/- expand or collapse buttons
with thisform.ChartView1 .HasButtons = 2 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
67. How can I display +/- expand or collapse buttons
with thisform.ChartView1 .HasButtons = -1 with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234").Expanded = .F. .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
66. How do I show or hide the assistant nodes
with thisform.ChartView1 .ShowAssistants = .T. with .Root .Image = 0 .AddAssistant("Assistant 1") .AddAssistant("Assistant 2") endwith with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
65. How do I scale or zoom the chart
with thisform.ChartView1 .BorderWidth = 18 .BorderHeight = 18 .ZoomWidthMode = 1 .ZoomHeightMode = 1 .ZoomWidth = 2 .ZoomHeight = 2 .Root.Image = 0 with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
64. How do I scale or zoom the chart
with thisform.ChartView1 .BorderWidth = 18 .BorderHeight = 18 .ZoomWidthMode = 2 .ZoomHeightMode = 2 .Root.Image = 0 with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
63. How can I ensure that the selected node is visible or fits the chart's area
with thisform.ChartView1 .EnsureVisibleOnSelect = .T. .ScrollOnEnsure = .F. .BorderWidth = 18 .BorderHeight = 18 .ZoomWidthMode = 1 .ZoomHeightMode = 1 .ZoomWidth = 2 .ZoomHeight = 2 .Root.Image = 0 with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Sub 3","1234") .Add("Child <b>2</b>") endwith endwith
62. How do I avoid slow moving the chart when the user selects a new node
with thisform.ChartView1
.ScrollByClick = .F.
endwith
with thisform.ChartView1 .Root.Image = 0 with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Child <b>2</b>") endwith .EnsureVisibleNode("1234") endwith
60. How do I change the root node, so it explore from a specified node
with thisform.ChartView1 .Root.Image = 0 with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Sub 1","1234") .Add("Sub 2","1234") .Add("Child <b>2</b>") endwith .ExploreFromNode = "1234" endwith
59. How do I select a node
with thisform.ChartView1 .Root.Image = 0 with .Nodes .Add("Child <b>1</b>",0,"1234") .Add("Child <b>2</b>") endwith .SelectNode = "1234" .HideSelection = .F. endwith
57. How do I fix the height for all nodes
with thisform.ChartView1 .FixedHeightNode = 32 .Root.Image = 0 with .Nodes .Add("Child <b>1</b>") .Add("Child <b>2</b>") endwith endwith
56. How do I fix the width for all nodes
with thisform.ChartView1 .FixedWidthNode = 128 .Root.Image = 0 with .Nodes .Add("Child <b>1</b>") .Add("Child <b>2</b>") endwith endwith
55. How do I change the style of the link between nodes
with thisform.ChartView1 .PenLink = 1 with .Nodes .Add("Child <b>1</b>") .Add("Child <b>2</b>") endwith endwith
54. How do I change the color to link the nodes
with thisform.ChartView1 .LinkColor = RGB(255,0,0) with .Nodes .Add("Child <b>1</b>") .Add("Child <b>2</b>") endwith endwith
53. How do I change the shape for selected node, using your EBN files
with thisform.ChartView1 .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .SelColor = 0x2000000 .SelectNode = "root" .HideSelection = .F. with .Nodes .Add("Child <b>1</b>") .Add("Child <b>2</b>") endwith endwith
52. How do I change the color for selected node
with thisform.ChartView1 .SelColor = RGB(0,0,255) .SelectNode = "root" .HideSelection = .F. with .Nodes .Add("Child <b>1</b>") .Add("Child <b>2</b>") endwith endwith
51. How do I hide the node's shadow
with thisform.ChartView1
.ShadowNode = .F.
endwith
with thisform.ChartView1
.PenBorderNode = 2
endwith
with thisform.ChartView1 .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .Object.Background(0) = 0x2000000 endwith
48. How do I change the shape of the border for all nodes
with thisform.ChartView1
.DrawRoundNode = 0
endwith
with thisform.ChartView1 .ForeColorNode = RGB(255,0,0) with .Nodes .Add("Child <b>1</b>") .Add("Child <b>2</b>") endwith endwith
46. How do I change the background color for all nodes
with thisform.ChartView1 .BackColorNode = RGB(255,0,0) with .Nodes .Add("Child <b>1</b>") .Add("Child <b>2</b>") endwith endwith
45. How do I change the key of the root
with thisform.ChartView1 .Root.Key = "myKey" endwith
44. How do I change the caption of the root
with thisform.ChartView1 .Root.Caption = "new<br>root" endwith
43. How do I access the root node
with thisform.ChartView1 .Root.Caption = "new<br>root" endwith
42. How do I access the nodes collection
with thisform.ChartView1 with .Nodes .Add("Child <b>1</b>") .Add("Child <b>2</b>") endwith endwith
41. How do I refresh the control
with thisform.ChartView1 .Nodes.Add("Child <b>1</b>") .Nodes.Add("Child <b>2</b>") .Refresh endwith
40. How do I prevent painting while several changes are performed
with thisform.ChartView1 .BeginUpdate .Nodes.Add("Child <b>1</b>") .Nodes.Add("Child <b>2</b>") .EndUpdate endwith
39. How do I indent the full chart to the right
with thisform.ChartView1 .BorderWidth = 8 .BorderHeight = 8 endwith
38. How can I change the node's border/frame, using your EBN files
with thisform.ChartView1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Object.Background(0) = 0x1000000 .Nodes.Add("Child <b>1</b>") .Nodes.Add("Child <b>2</b>") endwith
37. How can still display the selected node when the control loses the focus
with thisform.ChartView1
.HideSelection = .F.
endwith
with thisform.ChartView1
.Enabled = .F.
endwith
with thisform.ChartView1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn") .Object.Background(388) = 0x1000000 .Object.Background(389) = 0x2000000 .Object.Background(391) = 0x3000000 .Object.Background(260) = 0x1000000 .Object.Background(261) = 0x2000000 .Object.Background(263) = 0x3000000 .FixedWidthNode = 320 endwith
34. How do I change the visual aspect only for the thumb in the scroll bar, using EBN
with thisform.ChartView1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn") .Object.Background(388) = 0x1000000 .Object.Background(389) = 0x2000000 .Object.Background(391) = 0x3000000 .Object.ScrollThumbSize(1) = 96 .FixedWidthNode = 320 endwith
33. I've seen that you can change the visual appearance for the scroll bar. How can I do that
with thisform.ChartView1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn") .VisualAppearance.Add(3,"c:\exontrol\images\hot.ebn") .Object.Background(324) = 0x1000000 .Object.Background(325) = 0x2000000 .Object.Background(327) = 0x3000000 .Object.Background(404) = RGB(240,240,240) .Object.Background(276) = RGB(240,240,240) .Object.Background(3) = RGB(240,240,240) .FixedWidthNode = 320 endwith
32. Can I change the forecolor for the tooltip
with thisform.ChartView1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Object.Background(66) = RGB(255,0,0) .Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node." endwith
31. Can I change the background color for the tooltip
with thisform.ChartView1 .ToolTipDelay = 1 .ToolTipWidth = 364 .Object.Background(65) = RGB(255,0,0) .Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node." endwith
30. Can I change the default border of the tooltip, using your EBN files
with thisform.ChartView1 .ToolTipDelay = 1 .ToolTipWidth = 364 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Object.Background(64) = 0x1000000 .Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node." endwith
29. How do I call your x-script language
with thisform.ChartView1
.ExecuteTemplate("BackColor = RGB(255,0,0)")
endwith
with thisform.ChartView1
.Template = "BackColor = RGB(255,0,0)"
endwith
with thisform.ChartView1 .ToolTipDelay = 1 with .ToolTipFont .Name = "Tahoma" .Size = 14 endwith .ToolTipWidth = 364 .Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node." endwith
26. I've seen that the width of the tooltip is variable. Can I make it larger
with thisform.ChartView1 .ToolTipWidth = 328 .Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node." endwith
25. How do I let the tooltip being displayed longer
with thisform.ChartView1 .ToolTipPopDelay = 10000 .Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node." endwith
24. How do I disable showing the tooltip for all control
with thisform.ChartView1 .ToolTipDelay = 0 .Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node." endwith
23. How do I show the tooltip quicker
with thisform.ChartView1 .ToolTipDelay = 1 .Root.ToolTip = "This is a bit of text that's shown when the cursor hovers the node." endwith
22. Can I change the order of the buttons in the scroll bar
with thisform.ChartView1 .Object.ScrollOrderParts(1) = "t,l,r" .Object.ScrollOrderParts(0) = "t,l,r" .FixedWidthNode = 320 endwith
21. The thumb size seems to be very small. Can I make it bigger
with thisform.ChartView1 .Object.ScrollThumbSize(1) = 164 .FixedWidthNode = 320 endwith
20. How do I enlarge or change the size of the control's scrollbars
with thisform.ChartView1 .ScrollHeight = 18 .ScrollWidth = 18 .ScrollButtonWidth = 18 .ScrollButtonHeight = 18 .FixedWidthNode = 320 .FixedHeightNode = 320 endwith
19. How can I display my text on the scroll bar, using a different font
with thisform.ChartView1 .Object.ScrollPartCaption(1,256) = "This is just a text" .ScrollFont(1).Size = 12 .Object.ScrollThumbSize(1) = 128 .ScrollHeight = 0 .Object.ScrollPartCaption(1,256) = "This is <s><font Tahoma;12> just </font></s> text" .ScrollHeight = 20 .FixedWidthNode = 320 endwith
18. How can I display my text on the scroll bar
with thisform.ChartView1 .Object.ScrollPartCaption(1,256) = "this is just a text" .Object.ScrollThumbSize(1) = 96 .FixedWidthNode = 320 endwith
17. How do I assign a tooltip to a scrollbar
with thisform.ChartView1 .Object.ScrollToolTip(1) = "This is a tooltip being shown when you click and drag the thumb in the horizontal scroll bar" .FixedWidthNode = 320 endwith
16. How do I assign an icon to the button in the scrollbar
with thisform.ChartView1 var_s = "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/" var_s = var_s + "oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/" var_s = var_s + "wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx" var_s = var_s + "3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN" var_s = var_s + "AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=" .Images(var_s) .Object.ScrollPartVisible(1,32768) = .T. .Object.ScrollPartCaption(1,32768) = "<img>1</img>" .ScrollHeight = 18 .ScrollButtonWidth = 18 .FixedWidthNode = 320 endwith
15. I need to add a button in the scroll bar. Is this possible
with thisform.ChartView1 .Object.ScrollPartVisible(1,32768) = .T. .Object.ScrollPartCaption(1,32768) = "1" .FixedWidthNode = 320 endwith
14. Can I display an additional buttons in the scroll bar
with thisform.ChartView1 .Object.ScrollPartVisible(1,32768) = .T. .Object.ScrollPartVisible(1,16384) = .T. .Object.ScrollPartVisible(1,1) = .T. .Object.ScrollPartVisible(1,2) = .T. .FixedWidthNode = 320 endwith
13. How do I change the control's foreground color
with thisform.ChartView1
.ForeColor = RGB(255,0,0)
endwith
with thisform.ChartView1
.BackColor = RGB(200,200,200)
endwith
with thisform.ChartView1
.Font.Name = "Verdana"
endwith
with thisform.ChartView1 .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 17 endwith
9. How do I resize/stretch a picture on the control's background
with thisform.ChartView1 .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 49 endwith
8. How do I put a picture on the control's center right bottom side
with thisform.ChartView1 .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 34 endwith
7. How do I put a picture on the control's center left bottom side
with thisform.ChartView1 .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 32 endwith
6. How do I put a picture on the control's center top side
with thisform.ChartView1 .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 1 endwith
5. How do I put a picture on the control's right top corner
with thisform.ChartView1 .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 2 endwith
4. How do I put a picture on the control's left top corner
with thisform.ChartView1 .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") .PictureDisplay = 0 endwith
3. How do I put a picture on the control's background
with thisform.ChartView1 .Picture = thisform.ChartView1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)") endwith
2. How do I change the control's border, using your EBN files
with thisform.ChartView1 .VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn") .Appearance = 16777216 endwith
1. How do I remove the control's border
with thisform.ChartView1
.Appearance = 0
endwith