POPUP Disallowed - why?
Posted: Fri Feb 23, 2018 6:01 am
Friends,
I get a failure message trying to run the PRG below: Context/Dropdown/Notify Menus Does not support submenus
The code does compile into an exe file though.
The code below is a simple startup file with lots of stubs for future development if I can just get things off the ground.
Please ignore the stubs.
I also included the IDE generated fmg file
The fmg file refered to in the code below was generated by the IDE. I have used the menus before , doing
the work manually. Can any kind observer see what I am doing wrong to deserve this error message.
Thanks to those who read this
I get a failure message trying to run the PRG below: Context/Dropdown/Notify Menus Does not support submenus
The code does compile into an exe file though.
The code below is a simple startup file with lots of stubs for future development if I can just get things off the ground.
Please ignore the stubs.
I also included the IDE generated fmg file
The fmg file refered to in the code below was generated by the IDE. I have used the menus before , doing
the work manually. Can any kind observer see what I am doing wrong to deserve this error message.
Thanks to those who read this
#include "hmg.ch"
Function Main
Load Window win_1
DEFINE POPUP 'File Actions'
MENUITEM 'Begin Selections' ACTION SelectImages()
MENUITEM 'Quit 1' Name Q11 ACTION Win_1.Release
MENUITEM 'Reset ' Name Res12 ACTION ImageReset()
END POPUP
Return
*------------------------------------------------------------*
Function SelectImages()
*
* Get a list of Files
* Add each to Grid GImages
*------------------------------------------------------------*
msgdebug('Undefined yet')
return
*------------------------------------------------------------*
FUNCTION ImageReset( )
*------------------------------------------------------------*
msgdebug('Undefined yet')
return
*------------------------------------------------------------*
FUNCTION BUILDOUTPUTCOMPOSITE( )
*------------------------------------------------------------*
msgdebug('Undefined yet')
return
*------------------------------------------------------------*
FUNCTION SAVECOMPOSITE( )
*------------------------------------------------------------*
msgdebug('Undefined yet')
return
*------------------------------------------------------------*
FUNCTION SHOWZOOM( )
*------------------------------------------------------------*
msgdebug('Undefined yet')
return
* HMG-IDE UNICODE Form Designer Generated Code
* (c) Roberto Lopez - http://sites.google.com/site/hmgweb
DEFINE WINDOW TEMPLATE AT 181 , 524 WIDTH 550 HEIGHT 375 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "" ICON NIL MAIN CURSOR NIL ON INIT Nil ON RELEASE Nil ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON MAXIMIZE Nil ON MINIMIZE Nil ON PAINT Nil BACKCOLOR Nil NOTIFYICON NIL NOTIFYTOOLTIP NIL ON NOTIFYCLICK Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil
DEFINE FRAME Frame_1
ROW 70
COL 190
WIDTH 160
HEIGHT 156
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
CAPTION "Frame_1"
BACKCOLOR {192,192,192}
FONTCOLOR NIL
OPAQUE .T.
END FRAME
DEFINE FRAME Frame_2
ROW 30
COL 30
WIDTH 97
HEIGHT 76
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
CAPTION "Frame_2"
BACKCOLOR NIL
FONTCOLOR NIL
OPAQUE .T.
END FRAME
DEFINE FRAME Frame_3
ROW 40
COL 380
WIDTH 81
HEIGHT 74
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
CAPTION "Frame_3"
BACKCOLOR NIL
FONTCOLOR NIL
OPAQUE .T.
END FRAME
DEFINE FRAME Frame_4
ROW 160
COL 390
WIDTH 113
HEIGHT 96
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
CAPTION "Frame_4"
BACKCOLOR NIL
FONTCOLOR NIL
OPAQUE .T.
END FRAME
DEFINE FRAME Frame_5
ROW 160
COL 40
WIDTH 99
HEIGHT 95
FONTNAME "Arial"
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
CAPTION "Frame_5"
BACKCOLOR NIL
FONTCOLOR NIL
OPAQUE .T.
END FRAME
DEFINE IMAGE Image_1
ROW 100
COL 200
WIDTH 160
HEIGHT 123
PICTURE ""
HELPID Nil
VISIBLE .T.
STRETCH .F.
ACTION Nil
END IMAGE
DEFINE IMAGE Image_2
ROW 50
COL 40
WIDTH 85
HEIGHT 95
PICTURE ""
HELPID Nil
VISIBLE .T.
STRETCH .F.
ACTION Nil
END IMAGE
DEFINE IMAGE Image_3
ROW 40
COL 390
WIDTH 85
HEIGHT 95
PICTURE ""
HELPID Nil
VISIBLE .T.
STRETCH .F.
ACTION Nil
END IMAGE
DEFINE IMAGE Image_4
ROW 200
COL 60
WIDTH 85
HEIGHT 95
PICTURE ""
HELPID Nil
VISIBLE .T.
STRETCH .F.
ACTION Nil
END IMAGE
DEFINE IMAGE Image_5
ROW 200
COL 400
WIDTH 85
HEIGHT 95
PICTURE ""
HELPID Nil
VISIBLE .T.
STRETCH .F.
ACTION Nil
END IMAGE
DEFINE LABEL Label_1
ROW 10
COL 200
WIDTH 120
HEIGHT 24
VALUE "5 image Composite"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
HELPID Nil
VISIBLE .T.
TRANSPARENT .F.
ACTION Nil
AUTOSIZE .F.
BACKCOLOR {192,197,133}
FONTCOLOR NIL
END LABEL
DEFINE BUTTON Button_1
ROW 280
COL 230
WIDTH 100
HEIGHT 28
ACTION SelectImages()
CAPTION "CLick to Begin"
FONTNAME "Arial"
FONTSIZE 9
TOOLTIP ""
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
ONGOTFOCUS Nil
ONLOSTFOCUS Nil
HELPID Nil
FLAT .F.
TABSTOP .T.
VISIBLE .T.
TRANSPARENT .F.
MULTILINE .F.
PICTURE Nil
PICTALIGNMENT TOP
END BUTTON
END WINDOW