-------------------
main menu örneği / açık pencereleri listeleyen sekme
Code: Select all
procedure main
define window WIN_1
...
makemenu(.t.)
....
procedure submodule...
define window .... child .... on init makemenu(.f.) on interactiveclose makemenu(.f.)
FUNCTION makemenu
PARA _FIRST
IF .NOT. _FIRST
RELEASE MAIN MENU OF WIN_1
endif
.....
define main menu ....
....
define POPUP "&w.windows"
openmenu = len(_hmg_sysdata[67])-2
if openmenu>0
for x = 3 to len(_hmg_sysdata[67])
XFORMNAME_ =_hmg_sysdata[66][x]
IF _IsWIndowDefined ( XFORMNAME_ )
_menudescription=GETPROPERTY(XFORMNAME_,"Title")
_menuform=GETPROPERTY(XFORMNAME_,"NAME")
_command = "_windowopen('"+_menuform+"')"
menuitem _menudescription action &_command
ENDIF
next
endif
end popup
end define
....
FUNCTION _WINDOWOPEN
PARA FORMname
MSGSTOP(FORMNAME)
&(FORMNAME).CENTER
&(FORMNAME).RESTORE
&(FORMNAME).SETFOCUS
RETURN .T.
.....