FiveTech Support Forums

#include "FiveWeb.ch"

function Main()

   MsgInfo( "Hello world from FiveWeb" )

return nil

#include "FiveWeb.ch"

function Main()

   local oDlg
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
   ACTIVATE DIALOG oDlg

return nil

#include "FiveWeb.ch"

function Main()

   local oDlg, lValue := .T.
   
   SET COLOR TO "#99CCFF"
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
   @ 120,  70 BUTTON "One" SIZE 120, 50 OF oDlg ACTION MsgInfo( "one" )

   @ 120, 220 BUTTON "Two" SIZE 120, 50 OF oDlg ACTION MsgInfo( "two" )

   @ 120, 370 BUTTON "Three" SIZE 120, 50 OF oDlg ACTION MsgInfo( "three" )
   
   @ 200, 160 CHECKBOX lValue PROMPT "Tested" SIZE 150, 40 OF oDlg
   
   ACTIVATE DIALOG oDlg 

return nil

#include "FiveWeb.ch"

function Main()

   BuildMenu()

return nil

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "Your app"
      MENU
         MENUITEM "About..." ACTION MsgInfo( "My app" )
         MENUITEM "Quit"
      ENDMENU 
      
      MENUITEM "Files"
      MENU 
         MENUITEM "Clients"
         MENUITEM "Stock"
         MENUITEM "Agents"
      ENDMENU
      
      MENUITEM "Reports"
      MENU 
         MENUITEM "Clients"
         MENU
            MENUITEM "List"
            MENUITEM "By Last name" 
            MENUITEM "By State" 
         ENDMENU
         
         MENUITEM "Stock"
         MENU 
            MENUITEM "By id"
            MENUITEM "By amount"
            MENUITEM "My price"
         ENDMENU
      ENDMENU
      
      MENUITEM "Utilities"
      
      MENUITEM "Help"
      MENU
         MENUITEM "Wiki"
      ENDMENU
   ENDMENU

return nil

#include "FiveWeb.ch"

function Main()

   local oDlg, oFld

   DEFINE DIALOG oDlg TITLE "Using folders"

   @ 10, 10 FOLDER oFld PROMPTS "One", "Two", "Three" OF oDlg SIZE 400, 300

   ACTIVATE DIALOG oDlg

return nil