FiveTech Software tech support forums

Code: Select all

FUNCTION MAIN()

   LOCAL oDlg

   SetResDebug()

   DEFINE DIALOG oDlg FROM 1, 1 TO 22, 75 ;
      TITLE "Test"

   ACTIVATE DIALOG oDlg;
      ON INIT oDlg:SetMenu( SetDlgMenu() )

   FERASE("CHECKRES.TXT")
   CHECKRES()
   winExec("notepad .\checkres.txt")

return(0)

//----------------------------------------------------------------------------//

function SetDlgMenu()

   local oMenu

   MENU oMenu

      MENUITEM "Item 1"

   ENDMENU

return oMenu

Code: Select all

02/15/11 18:35:17: BRUSH,1432,TDIALOG:SETCOLOR(2477)->TDIALOG:NEW(196)->MAIN(13)
    
02/15/11 18:35:17: FONT,1508,TDIALOG:GETFONT(2751)->TDIALOG:INITIATE(633)->TDIALOG:HANDLEEVENT(917)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(273)->MAIN(16)

Code: Select all

MENU oMenu 2007

Code: Select all

02/15/11 18:38:08: BRUSH,1432,TDIALOG:SETCOLOR(2477)->TDIALOG:NEW(196)->MAIN(13)
    
02/15/11 18:38:08: FONT,1508,TDIALOG:GETFONT(2751)->TDIALOG:INITIATE(633)->TDIALOG:HANDLEEVENT(917)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(273)->MAIN(16)
    
02/15/11 18:38:08: BMP,1624,TWINDOW:HANDLEEVENT(0)->TDIALOG:HANDLEEVENT(933)->DIALOGBOXINDIRECT(0)->TDIALOG:ACTIVATE(273)->MAIN(16)
 

Code: Select all

   if ::hWnd == nil .or. ::hWnd == 0

Code: Select all

   if ( ::hWnd == nil .or. ::hWnd == 0 ) .and. ( ::nResult == NIL .or. ::nResult == 0 )