HMGforum.com

Code: Select all

dbcloseall()
RELEASE MEMORY
UnloadAllDll()
ExitProcess(0)

Code: Select all

 #include "hmg.ch"
  #define CRLF    HB_OsNewLine()
  #include "FILEIO.CH"

  function Main()
	local temp
	public prating := 8, AND MORE

        REQUEST DBFNTX          
        SET CENTURY ON
        SET DELETED OFF
        SET DATE TO BRITISH
        USE CONTROLS NEW SHARED 
        GO 1
        MSERIAL := ALLTRIM(SERIAL)
        USE
	 HB_LANGSELECT( "EN" )

        // Define the main window.
        DEFINE WINDOW Win_1                  ;
           AT         0,0                    ;
           WIDTH      getdesktopWidth()-25      ;
           HEIGHT     getDeskTopHeight()-45  ;
           TITLE      " Title"   ;
	   MAIN                              ;
           NOMAXIMIZE                        ;
           NOSIZE                            ;
	   ON INIT   {||{ ABOUT()} 
           BACKCOLOR  GRAY ;
	   FONT 'Arial' SIZE 9 
	   ON KEY CONTROL + G action MSGBOX('Series: '+mcod)
	   ON KEY CONTROL + W action ABOUT()   
		   
           DEFINE MAIN MENU OF Win_1
              	  POPUP "    E&xit"
                      ITEM "&Exit Q&A" ;
                              ACTION Win_1.Release
           	      END POPUP
              	      POPUP "   MORE POPUPS"
                      ITEM " MORE POPUPS" ;
                              ACTION MORE FUNCTIONS
           	      END POPUP
          END MENU
		     ON KEY F1 OF WIN_1 ACTION HELPING('q&a.HLP')
		     ON KEY F10 OF WIN_1 ACTION MSGBOX('DATE: 02/20/20')
        END WINDOW
        ACTIVATE WINDOW Win_1
	set helpfile to helping('q&a.hlp')

  return NIL