Forum > Lazarus Extra Components

VST RootNode


Hi I don't knwo what i made wrong at RootNode datas are not saved or i made some wrong.. here is my code...

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---     XNode := VSTPL.AddChild(nil);     if ( VSTPL.AbsoluteIndex(XNode) > -1 ) then   begin        Data := VSTPL.GetNodeData(Xnode);        Data^.RItem   := 'Top';        Data^.RQty    := 0;        Data^.RPart   := FormProdCtrl.SQLQProds.FieldByName('Pnpartnumber').AsString;        Data^.RCost   := FormProdCtrl.SQLQProds.FieldByName('PnCurrentCost').AsFloat;        Data^.RDetail := FormProdCtrl.SQLQProds.FieldByName('PnDetail').AsString;        Data^.RTitle  := FormProdCtrl.SQLQProds.FieldByName('PnTitle').AsString;        Data^.RType   := FormProdCtrl.SQLQProds.FieldByName('PNType').AsString;     end;//     VSTPL.Expanded[VSTPL.FocusedNode] := True;     RxMPLNK.first;     while(not RxMPLNK.EOF) do begin        if(RxMPLNK.FieldByName('RxChild').AsBoolean = true) then begin          XNode := VSTPL.TopNode;//          XNode := VSTPL.AddChild(VSTPL.TopNode.Index);          VSTPL.InsertNode(VSTPL.FocusedNode,amInsertBefore);        end else begin         XNode:= VSTPL.TopNode;         XNode := VSTPL.AddChild(VSTPL.TopNode);        end;        Data := VSTPL.GetNodeData(Xnode);        Data^.RItem := InttoStr(RxMPLNK.FieldByName('RxPlItem').AsInteger);        Data^.RQty  := RxMPLNK.FieldByName('RxPlQty').AsInteger;        Data^.RPart := RxMPLNK.FieldByName('RxPnpartnumber').AsString;        Data^.RCost := RxMPLNK.FieldByName('RxCurrentCost').AsFloat;        Data^.RDetail := RxMPLNK.FieldByName('RxDetail').AsString;        Data^.RTitle := RxMPLNK.FieldByName('RxTitle').AsString;        Data^.RType := RxMPLNK.FieldByName('RxPlType').AsString;        RxMPLNK.Next;     end;   You can see root node not has value but childs has it...

All exmples show to addchild node is that is selected but not programatically  llike array how we can the node

to insert a node using thsi procedure

but you see if is focused or selected but not VSTPL.Node[2]

we can get absolutepostiosn but not see some to access lika that ...

Has two option go TopNode or BottomNode first and last one but another address....


[0] Message Index

Go to full version