2000-09-02 19:40

     $TYPECHECK ON

     $INCLUDE "RAPIDQ.INC"
     $INCLUDE "QMENU.INC"

     $RESOURCE New_bmp AS "New.bmp"
     $RESOURCE Open_bmp AS "Open.bmp"
     $RESOURCE Save_bmp AS "Save.bmp"
     $RESOURCE Exit_bmp AS "Exit.bmp"
     $RESOURCE Cut_bmp AS "Cut.bmp"
     $RESOURCE Copy_bmp AS "Copy.bmp"
     $RESOURCE Paste_bmp AS "Paste.bmp"

     DECLARE SUB FormClose (Action AS INTEGER)
     DECLARE SUB NewItemClick (Sender AS QMENUITEM)
     DECLARE SUB ExitItemClick (Sender AS QMENUITEM)

     CREATE Form2 AS QFORM
      CAPTION = "New Form"
      Width = 200
      Height = 100
      Center
     END CREATE

     CREATE Form AS QFORM
      Width = 400
      Center
      CAPTION = "Ownerdraw Menus"
      onClose = FormClose

      CREATE MainMenu AS QMAINMENU
       CREATE FileMenu AS QMENUITEM
        CAPTION = "&File"
        CREATE NewItem AS QMENUITEM
         CAPTION = "&New"
         Hint = "New"
         onclick = NewItemClick
        END CREATE
        CREATE OpenItem AS QMENUITEM
         CAPTION = "&Open..."
         Hint = "Open"
         ShortCut = "Ctrl+O"
        END CREATE
        CREATE SaveItem AS QMENUITEM
         CAPTION = "&Save"
         Hint = "Save"
        END CREATE
        CREATE SaveASItem AS QMENUITEM
         CAPTION = "Sa&ve as..."
         Hint = "Save as"
        END CREATE
        CREATE BreakItem AS QMENUITEM
         CAPTION = "-"
        END CREATE
        CREATE ExitItem AS QMENUITEM
         CAPTION = "E&xit"
         onclick = ExitItemClick
        END CREATE
       END CREATE
       CREATE EditMenu AS QMENUITEM
        CAPTION = "&Edit"
        CREATE CutItem AS QMENUITEM
         CAPTION = "Cu&t"
         ShortCut = "Ctrl+X"
        END CREATE
        CREATE CopyItem AS QMENUITEM
         CAPTION = "&Copy"
        END CREATE
        CREATE PasteItem AS QMENUITEM
         CAPTION = "&Paste"
        END CREATE

       END CREATE
       CREATE SearchMenu AS QMENUITEM
        CAPTION = "&Search"
        CREATE FindItem AS QMENUITEM
         CAPTION = "&Find"
        END CREATE
        CREATE ReplaceItem AS QMENUITEM
         CAPTION = "&Replace"
        END CREATE
       END CREATE
      END CREATE

      CREATE StatusBar AS QSTATUSBAR
       AddPanels "QMenu by Jordi Ramos",""
       panel(0).Width = 120
      END CREATE

     END CREATE

     DIM imglst AS QIMAGELIST                'List of images for menu
     imglst.masked = False
     imglst.addbmphandle New_bmp,0
     imglst.addbmphandle Open_bmp,0
     imglst.addbmphandle Save_bmp,0
     imglst.addbmphandle Exit_bmp,0
     imglst.addbmphandle Cut_bmp,0
     imglst.addbmphandle Copy_bmp,0
     imglst.addbmphandle Paste_bmp,0

     DIM OwnerMenu AS QMENU
     OwnerMenu.SET Form

     OwnerMenu.Descrip = TRUE
     OwnerMenu.Panel = 1

     OwnerMenu.Imgs.Handle = imglst.handle

     OwnerMenu.OwnerDraw FileMenu, NewItem, 0, "Creates a new document"
     OwnerMenu.OwnerDraw FileMenu, OpenItem, 1, "Opens a Document"
     OwnerMenu.OwnerDraw FileMenu, SaveItem, 2, "Save Document"
     OwnerMenu.OwnerDraw FileMenu, ExitItem, 3, "Exits Program"
     OwnerMenu.OwnerDraw EditMenu, CutItem, 4, "Cuts Selection to Clipboard"
     OwnerMenu.OwnerDraw EditMenu, CopyItem, 5, "Copies Selection to Clipboard"
     OwnerMenu.OwnerDraw EditMenu, PasteItem, 6, "Pastes Contents of Clipboard"

     OwnerMenu.Description SaveAsItem, "Save Document as"
     OwnerMenu.Description FindItem, "Search for a text string"
     OwnerMenu.Description ReplaceItem, "Replace a character string by another"

     Form.SHOWMODAL


     SUB NewItemClick (Sender AS QMENUITEM)
      Form2.SHOWMODAL
     END SUB

     SUB ExitItemClick (Sender AS QMENUITEM)
      Form.CLOSE
     END SUB

     SUB FormClose (Action AS INTEGER)
      OwnerMenu.CLOSE
     END SUB

2000-09-02 19:40