(Solved)...Adding a Menu bar to QM Dialog

[John]

Can a menu bar Dialog be encrypted?.

Function ( DialogWithMenu )

Code:

Copy      Help

\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

ret
;messages
sel message
,case WM_INITDIALOG
,
,case WM_SIZE
,RECT r; GetClientRect(hDlg &r)
,siz r.right r.bottom id(3 hDlg)
,case WM_COMMAND goto messages2
ret
;messages2
sel wParam
,;menu items:
,case 100 out "Save"
,case 101 out "Open"
,case 103 out "Cut"
,case 104 out "Select All"
,case 105 out "Help"
,
,case IDOK
,case IDCANCEL
ret 1

Function ( Call_Menubar )

Code:

Copy      Help

str DC=
;BEGIN DIALOG
;0 "" 0x10CF0A44 0x100 0 0 294 190 "Dialog"
;3 RichEdit20A 0x54233044 0x200 0 0 294 190 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2020009 "*" ""

str menubar=
;BEGIN MENU
;>&File
,;&Save : 100 0 0 Cs
,;&Open : 101 0 0 Co
,;-
,;>&Recent
,,;Empty : 102 0 3
,,;<
,;<
;>&Edit
,;Cu&t : 103 0 0 Cx
,;-
,;Select &All : 104 0 0 Ca
,;<
;&Help : 105 0
;END MENU

str controls = "3"
str rea3
if(!ShowDialog(DC &DialogWithMenu &controls 0 2 0 0 0 0 0 "dialog.ico" menubar)) ret

output:

Code:

Copy      Help

Warning: cannot create or load menu BEGIN MENU
>&File
    &Save : 100 0 0 Cs