2013-06-19 07:58

     DECLARE SUB mnuNew_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuOpen_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuSave_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuSaveAs_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuPrint_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuExit_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuUndo_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuCut_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuCopy_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuPaste_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuSelectAll_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuDelete_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuClear_Click (Sender AS QMENUITEM)
     DECLARE SUB Search (Sender AS QMENUITEM)
     DECLARE SUB mnuEnglishUS_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuPortugueseBrazilian_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuSpanishColumbia_Click (Sender AS QMENUITEM)
     DECLARE SUB mnuAbout_Click (Sender AS QMENUITEM)

     CREATE mnuMain AS QMAINMENU
      PARENT = SimpleEdit
      CREATE mnuFile AS QMENUITEM
       CAPTION = "&File"
       Checked = 0
       Enabled = 1
       Visible = 1
       CREATE mnuNew AS QMENUITEM
        CAPTION = "&New"
        Checked = 0
        Hint = "New"
        Enabled = 1
        OnClick = mnuNew_Click
        Visible = 1
        ShortCut = "Ctrl+N"
       END CREATE
       CREATE mnuOpen AS QMENUITEM
        CAPTION = "&Open"
        Checked = 0
        Hint = "Open"
        Enabled = 1
        OnClick = mnuOpen_Click
        Visible = 1
        ShortCut = "Ctrl+O"
       END CREATE
       CREATE mnuSave AS QMENUITEM
        CAPTION = "&Save"
        Checked = 0
        Hint = "Save"
        Enabled = 1
        OnClick = mnuSave_Click
        Visible = 1
        ShortCut = "Ctrl+S"
       END CREATE
       CREATE mnuSaveAs AS QMENUITEM
        CAPTION = "Save&As"
        Checked = 0
        Hint = "SaveAs"
        Enabled = 1
        OnClick = mnuSaveAs_Click
        Visible = 1
       END CREATE
       CREATE FileBar0 AS QMENUITEM
        CAPTION = "-"
        Checked = 0
        Enabled = 1
        Visible = 1
       END CREATE
       CREATE mnuPrint AS QMENUITEM
        CAPTION = "&Print"
        Checked = 0
        Hint = "Print"
        Enabled = 1
        OnClick = mnuPrint_Click
        Visible = 1
        ShortCut = "Ctrl+P"
       END CREATE
       CREATE FileBar1 AS QMENUITEM
        CAPTION = "-"
        Checked = 0
        Enabled = 1
        Visible = 1
       END CREATE
       CREATE mnuExit AS QMENUITEM
        CAPTION = "&Exit"
        Checked = 0
        Hint = "Exit"
        Enabled = 1
        OnClick = mnuExit_Click
        Visible = 1
       END CREATE
      END CREATE
      CREATE mnuEdit AS QMENUITEM
       CAPTION = "&Edit"
       Checked = 0
       Enabled = 1
       Visible = 1
       CREATE mnuUndo AS QMENUITEM
        CAPTION = "&Undo"
        Checked = 0
        Hint = "Undo"
        Enabled = 1
        OnClick = mnuUndo_Click
        Visible = 1
        ShortCut = "Ctrl+Z"
       END CREATE
       CREATE EditBar0 AS QMENUITEM
        CAPTION = "-"
        Checked = 0
        Enabled = 1
        Visible = 1
       END CREATE
       CREATE mnuCut AS QMENUITEM
        CAPTION = "&Cut"
        Checked = 0
        Hint = "Cut"
        Enabled = 1
        OnClick = mnuCut_Click
        Visible = 1
        ShortCut = "Ctrl+X"
       END CREATE
       CREATE mnuCopy AS QMENUITEM
        CAPTION = "C&opy"
        Checked = 0
        Hint = "Copy"
        Enabled = 1
        OnClick = mnuCopy_Click
        Visible = 1
        ShortCut = "Ctrl+C"
       END CREATE
       CREATE mnuPaste AS QMENUITEM
        CAPTION = "&Paste"
        Checked = 0
        Hint = "Paste"
        Enabled = 1
        OnClick = mnuPaste_Click
        Visible = 1
        ShortCut = "Ctrl+V"
       END CREATE
       CREATE EditBar1 AS QMENUITEM
        CAPTION = "-"
        Checked = 0
        Enabled = 1
        Visible = 1
       END CREATE
       CREATE mnuSelectAll AS QMENUITEM
        CAPTION = "&SelectAll"
        Checked = 0
        Hint = "SelectAll"
        Enabled = 1
        OnClick = mnuSelectAll_Click
        Visible = 1
        ShortCut = "Ctrl+A"
       END CREATE
       CREATE mnuDelete AS QMENUITEM
        CAPTION = "&Delete"
        Checked = 0
        Hint = "Delete"
        Enabled = 1
        OnClick = mnuDelete_Click
        Visible = 1
        ShortCut = "Del"
       END CREATE
       CREATE mnuClear AS QMENUITEM
        CAPTION = "&Clear"
        Checked = 0
        Hint = "Clear"
        Enabled = 1
        OnClick = mnuClear_Click
        Visible = 1
       END CREATE
       CREATE mnuFind AS QMENUITEM
        CAPTION = "&Find/Replace"
        Checked = 0
        Hint = "Find"
        Enabled = 1
        OnClick = Search
        Visible = 1
        ShortCut = "Ctrl+F"
       END CREATE
      END CREATE
      CREATE mnuLanguage AS QMENUITEM
       CAPTION = "&Languge"
       Checked = 0
       Enabled = 1
       Visible = 1
       CREATE mnuEnglishUS AS QMENUITEM
        CAPTION = "&English (US)"
        Checked = 1
        Hint = "English (US)"
        Enabled = 1
        OnClick = mnuEnglishUS_Click
        Visible = 1
       END CREATE
       CREATE mnuPortugueseBrazilian AS QMENUITEM
        CAPTION = "&Portuguese (Brazilian)"
        Checked = 0
        Hint = "Portuguese (Brazilian)"
        Enabled = 1
        OnClick = mnuPortugueseBrazilian_Click
        Visible = 1
       END CREATE
       CREATE mnuSpanishColumbia AS QMENUITEM
        CAPTION = "&Spanish (Columbia SUR)"
        Checked = 0
        Hint = "&Spanish (Columbia SUR)"
        Enabled = 1
        OnClick = mnuSpanishColumbia_Click
        Visible = 1
       END CREATE
      END CREATE
      CREATE mnuHelp AS QMENUITEM
       CAPTION = "&Help"
       Checked = 0
       Enabled = 1
       Visible = 1
       CREATE mnuAbout AS QMENUITEM
        CAPTION = "&About"
        Checked = 0
        Hint = "About"
        Enabled = 1
        OnClick = mnuAbout_Click
        Visible = 1
       END CREATE
      END CREATE
     END CREATE

2013-06-19 07:58