#include "FiveWeb.ch"
function Main()
local oDlg, oBrw
DEFINE DIALOG oDlg TITLE "MySQL browse" ;
SIZE 1000, 600
@ 10, 10 BROWSE oBrw SIZE 980, 500 OF oDlg ;
URL "../fiveweb/mybrowse.php?name=clients"
@ 500, 30 BUTTON "<<" OF oDlg SIZE 50, 35
@ 500, 110 BUTTON ">>" OF oDlg SIZE 50, 35
@ 500, 200 BUTTON "Add" OF oDlg
@ 500, 330 BUTTON "Edit" OF oDlg
@ 500, 460 BUTTON "Delete" OF oDlg
@ 500, 590 BUTTON "Search" OF oDlg
@ 500, 720 BUTTON "Print" OF oDlg
@ 500, 850 BUTTON "Exit" OF oDlg
ACTIVATE DIALOG oDlg
return nil
// Using controls
#include "FiveWeb.ch"
function Main()
local oDlg, lValue := .T.
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
BuildMenu()
DEFINE DIALOG oDlg SIZE 600, 400
@ 10, 10 FOLDER oFld PROMPTS "One", "Two", "Three" OF oDlg ;
SIZE 520, 230
@ 260, 150 BUTTON "Ok" OF oDlg ACTION MsgInfo( "ok" )
@ 260, 300 BUTTON "Cancel" OF oDlg ACTION MsgInfo( "cancel" )
ACTIVATE DIALOG oDlg NOWAIT
return nil
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "Main theme"
MENU
MENUITEM "Light"
MENU
MENUITEM "Base" ACTION SetTheme( "base" )
MENUITEM "Black-tie" ACTION SetTheme( "black-tie" )
MENUITEM "Blitzer" ACTION SetTheme( "blitzer" )
MENUITEM "Cupertino" ACTION SetTheme( "cupertino" )
MENUITEM "excite-bike" ACTION SetTheme( "excite-bike" )
MENUITEM "flick" ACTION SetTheme( "flick" )
MENUITEM "hot-sneacks" ACTION SetTheme( "hot-sneaks" )
MENUITEM "humanity" ACTION SetTheme( "humanity" )
MENUITEM "overcast" ACTION SetTheme( "overcast" )
MENUITEM "pepper-grinder" ACTION SetTheme( "pepper-grinder" )
MENUITEM "redmond" ACTION SetTheme( "redmond" )
MENUITEM "smoothness" ACTION SetTheme( "smoothness" )
MENUITEM "south-street" ACTION SetTheme( "south-street" )
MENUITEM "start" ACTION SetTheme( "start" )
MENUITEM "sunny" ACTION SetTheme( "sunny" )
MENUITEM "ui-lightness" ACTION SetTheme( "ui-lightness" )
ENDMENU
MENUITEM "Dark"
MENU
MENUITEM "Dot-lub" ACTION SetTheme( "dot-luv" )
MENUITEM "Dark-hive" ACTION SetTheme( "dark-hive" )
MENUITEM "Eggplant" ACTION SetTheme( "eggplant" )
MENUITEM "le-frog" ACTION SetTheme( "le-frog" )
MENUITEM "mint-choc" ACTION SetTheme( "mint-choc" )
MENUITEM "swanky-purse" ACTION SetTheme( "swanky-purse" )
MENUITEM "trontastic" ACTION SetTheme( "trontastic" )
MENUITEM "ui-darkness" ACTION SetTheme( "ui-darkness" )
MENUITEM "vader" ACTION SetTheme( "vader" )
ENDMENU
ENDMENU
ENDMENU
return oMenu
#include "FiveWeb.ch"
function Main()
local oDlg
BuildMenu()
DEFINE DIALOG oDlg SIZE 600, 400
ACTIVATE DIALOG oDlg NOWAIT
return nil
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "Controls"
MENU
MENUITEM "Add control"
MENU
MENUITEM "Say" ACTION AddSay( "oDlg" )
MENUITEM "Button" ACTION AddButton( "oDlg" )
ENDMENU
ENDMENU
ENDMENU
return oMenu
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: D.Fernandez and 36 guests