hi,
1.it is posssible to add new node to child node as under
WITH .Nodes.Add('R1 Series 1',tvwChild,"r1s1","R1 Series 1 aaaa")
.BackColor = RGB(0,0,255)
.ForeColor = Rgb(255,255,0)
ENDWITH
2.can i run myform include any child node as do form myform
thanks
>>>
>>>TEXT TO m.strShape TEXTMERGE PRETEXT 8
>>>shape append
>>> new adChar(10) as Region,
>>> new adInteger as RegionID,
>>> ((shape append
>>> new adChar(20) as Series,
>>> new adInteger as RegionID )
>>> as ls relate regionID to RegionID)
>>>ENDTEXT
>>
>>
>>thanx
>>
>>Can you highlight more ?
>>How can i do the above without using shape ?
>>
>>m.ors1 = createobject("adodb.recordset")
>>m.ors1.fields.append("region",adchar,10)
>>m.ors1.fields.append("regionid",adinteger)
>>
>>now how to add the series recordset and relate?
>>
>>suhashegde
>
>BTW if all you need is Regions and series then do with TV. It's easier. You just need to set backcolor property as you wish. ie:
>
>#Define tvwFirst 0
>#Define tvwLast 1
>#Define tvwNext 2
>#Define tvwPrevious 3
>#Define tvwChild 4
>
>Public oForm
>oForm = Createobject('myForm')
>oForm.Show()
>
>With oForm.Tree
> .Left = 10
> .Top = 10
> .Width = 200
> .Height = 200
> .Nodes.Add(,tvwFirst,"r1",'Region 1')
> .Nodes.Add(,tvwFirst,"r2",'Region 2')
>
> WITH .Nodes.Add('r1',tvwChild,"r1s1","R1 Series 1")
> .BackColor = RGB(0,0,255)
> .ForeColor = Rgb(255,255,0)
> Endwith
> WITH .Nodes.Add('r1',tvwChild,"r1s2","R1 Series 2")
> .BackColor = RGB(255,0,0)
> .ForeColor = Rgb(255,255,0)
> Endwith
>
> WITH .Nodes.Add('r2',tvwChild,"r2s1","R2 Series 1")
> .BackColor = RGB(0,0,255)
> .ForeColor = Rgb(255,255,0)
> Endwith
> WITH .Nodes.Add('r2',tvwChild,"r2s2","R2 Series 2")
> .BackColor = RGB(255,0,0)
> .ForeColor = Rgb(255,255,0)
> Endwith
>
> For Each oNode In .Nodes
> oNode.Expanded = .T.
> Endfor
>Endwith
>
>Define Class myForm As Form
> oNode= .Null.
> Add Object Tree As OleControl With ;
> Name = 'Tree',OleClass='MSComCtlLib.TreeCtrl'
>
> Procedure Init
> With This.tree
> .linestyle = 1
> .Font.Name = 'Times New Roman'
> .Font.Size = 10
> .indentation = 5
> Endwith
> Endproc
>Enddefine
>
>Cetin