2003-07-11 05:55

'From:   Danny Jackson <danny846842@y...>  Fri Jul 11, 2003  4:44 am

     CREATE popEdit AS QPOPUPMENU
      CREATE popUndo AS QMENUITEM
       CAPTION = "&Undo"
       Checked = 0
       Enabled = 1
       OnClick = Undo_Click
       ShortCut = "Ctrl+Z"
       Visible = 1
      END CREATE
      CREATE popBar1 AS QMENUITEM
       CAPTION = "-"
      END CREATE
      CREATE popCut AS QMENUITEM
       CAPTION = "&Cut"
       Checked = 0
       Enabled = 1
       OnClick = Cut_Click
       ShortCut = "Ctrl+X"
       Visible = 1
      END CREATE
      CREATE popCopy AS QMENUITEM
       CAPTION = "C&opy"
       Checked = 0
       Enabled = 1
       OnClick = Copy_Click
       ShortCut = "Ctrl+C"
       Visible = 1
      END CREATE
      CREATE popPaste AS QMENUITEM
       CAPTION = "&Paste"
       Checked = 0
       Enabled = 1
       OnClick = Paste_Click
       ShortCut = "Ctrl+V"
       Visible = 1
      END CREATE
      CREATE popBar2 AS QMENUITEM
       CAPTION = "-"
      END CREATE
      CREATE popSelectAll AS QMENUITEM
       CAPTION = "&SelectAll"
       Checked = 0
       Enabled = 1
       OnClick = SelectAll_Click
       ShortCut = "Ctrl+A"
       Visible = 1
      END CREATE
      CREATE popClear AS QMENUITEM
       CAPTION = "C&lear"
       Checked = 0
       Enabled = 1
       OnClick = Clear_Click
       Visible = 1
      END CREATE
      CREATE popBar3 AS QMENUITEM
       CAPTION = "-"
      END CREATE
      CREATE popFind AS QMENUITEM
       CAPTION = "&Find"
       Checked = 0
       Enabled = 1
       OnClick = Search
       ShortCut = "Ctrl+F"
       Visible = 1
      END CREATE
     END CREATE
     CREATE MainForm AS QFORM
      CAPTION = "Popup Test"
      Height = 480
      Width = 640
      Center
      CREATE RichEdit AS QRICHEDIT
       Left = 5
       Height = 460
       Width = 620
       PopupMenu = popEdit
       ScrollBars = ssBoth
       Plaintext = 0
      END CREATE
     END CREATE

     MainForm.SHOWMODAL

2003-07-11 05:55