2005-01-15 00:44

'$TYPECHECK ON
     $INCLUDE "RAPIDQ.INC"
     $INCLUDE "Object\QDrawMenu.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"
     $RESOURCE Empty_bmp AS "Empty.bmp"

     DECLARE SUB MenuItemClick (Sender AS QMENUITEM)
     DECLARE SUB Show

     DIM menu AS qdrawmenu
     DIM picture AS QBITMAP

     CREATE Form AS QFORM
      Center
      CAPTION = "Ownerdraw Menus"
      OnShow=show
      WndProc=menu.MenuProc
      CREATE MainMenu AS QMAINMENU
       CREATE FileMenu AS QMENUITEM
        CAPTION = "&File"
        CREATE OpenItem AS QMENUITEM
         CAPTION = "&Open"
         OnClick=MenuItemClick
        END CREATE
        CREATE NewItem AS QMENUITEM
         CAPTION = "&New"
         OnClick=MenuItemClick
        END CREATE
        CREATE BreakItem AS QMENUITEM
         CAPTION = "-"
        END CREATE
        CREATE ExitItem AS QMENUITEM
         CAPTION = "E&xit"
         OnClick=MenuItemClick
        END CREATE
       END CREATE
       CREATE EditMenu AS QMENUITEM
        CAPTION = "&Edit"
        CREATE CutItem AS QMENUITEM
         CAPTION = "&Cut           Ctrl+X"
         OnClick=MenuItemClick
         ShortCut="CTRL+X"
        END CREATE
        CREATE CopyItem AS QMENUITEM
         CAPTION = "&Copy        Ctrl+C"
         OnClick=MenuItemClick
         ShortCut="CTRL+C"
        END CREATE
        CREATE PasteItem AS QMENUITEM
         CAPTION = "&Paste       Ctrl+V"
         OnClick=MenuItemClick
         ShortCut="CTRL+V"
        END CREATE
        CREATE SelectItem AS QMENUITEM
         CAPTION = "&Select all  Ctrl+A"
         OnClick=MenuItemClick
         ShortCut="CTRL+A"
        END CREATE
       END CREATE
       CREATE Aff AS QMENUITEM
        CAPTION="show"
       END CREATE
      END CREATE
     END CREATE
     Form.SHOWMODAL

     SUB Show
      picture.bmpHandle=Open_bmp
      menu.AddBitmap(FileMenu,OpenItem,picture,true,&hC0C0C0)
      picture.bmpHandle=New_bmp
      menu.AddBitmap(FileMenu,NewItem,picture,true,&hC0C0C0)
      picture.bmpHandle=Exit_bmp
      menu.AddBitmap(FileMenu,ExitItem,picture,true,&hC0C0C0)
      picture.bmpHandle=cut_bmp
      menu.AddBitmap(EditMenu,CutItem,picture,true,&hC0C0C0)
      picture.bmpHandle=copy_bmp
      menu.AddBitmap(EditMenu,copyItem,picture,true,&hC0C0C0)
      picture.bmpHandle=paste_bmp
      menu.AddBitmap(EditMenu,pasteItem,picture,true,&hC0C0C0)
      picture.bmpHandle=empty_bmp
      menu.AddBitmap(EditMenu,SelectItem,picture,false,&hFFFFFF)
     END SUB

     SUB MenuItemClick (Sender AS QMENUITEM)
      SHOWMESSAGE("Thanks for clicking " + Sender.CAPTION)
     END SUB

2005-01-15 00:44