- Code: Select all Expand view
- #include "FiveWeb.ch"
function Main()
MsgInfo( "Hello world from FiveWeb" )
return nil
Running on the web:
http://www.fivetechsoft.net/cgi-bin/tutor01
#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
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot], nnicanor and 25 guests