2002-06-09 20:09

' by Lance (6/2/02 4:24:03 pm)

     DECLARE SUB BuildMenu

     DECLARE SUB MenuClick(Sender AS QMENUITEM)



     Path$="c:\"



     DIM MenuItem(0) AS QMENUITEM



     CREATE Form AS QFORM

      Center

      CREATE MainMenu AS QMAINMENU

       CREATE TextFile AS QMENUITEM

        CAPTION="Text &File"

        OnClick=BuildMenu

       END CREATE

      END CREATE

      CREATE Richedit AS QRICHEDIT

       Align=5

       ScrollBars=3

      END CREATE

     END CREATE



     BuildMenu



     Form.SHOWMODAL



     SUB BuildMenu

      x=0

      Temp$=DIR$(Path$+"*.txt", 0)

      WHILE Temp$<>""

       REDIM MenuItem(x) AS QMENUITEM

       MenuItem(x).CAPTION=Path$+Temp$

       MenuItem(x).OnClick=MenuClick

       TextFile.Insert 0, MenuItem(x)

       Temp$=DIR$

       x++

      WEND

     END SUB



     SUB MenuClick

      Richedit.LoadFromFile Sender.CAPTION

     END SUB

2002-06-09 20:09