main menu samples (windows list menu )

[skonuk]

main menu / defined opened windows section sample


-------------------

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.

.....