2003-08-26 07:13

'From:   "Paolo Brasolin" Tue Aug 26, 2003  5:12 am
' Create popup menu from a treeview

'This is just the sub that loads the data. It needs a tree (TempTree)
'and a popupmenu (Popup). The treeitems have the format "name|etc".

     TempTree.LoadFromFile("MyDataFile.txt")

     DIM Items(TempTree.ItemCount-1) AS QMENUITEM
     DIM Parents(TempTree.ItemCount-1) AS INTEGER

     FOR N=0 TO TempTree.ItemCount-1
      FOR M=0 TO N
       IF TempTree.Item(M).Level=TempTree.Item(N).Level-1 THEN
        Parents(N)=M+1
       END IF
      NEXT
     NEXT

     FOR N=0 TO TempTree.ItemCount-1
      IF Parents(N)=0 THEN
       Popup.AddItems Items(N)
      ELSE
       Items(Parents(N)-1).AddItems Items(N)
      END IF
      Items(N).CAPTION=LEFT$(TempTree.Item(N).Text _
       ,INSTR(TempTree.Item(N).Text,"|")-1)
     NEXT

     Popup.Popup(0,0)

2003-08-26 07:13