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
|