http://code.google.com/p/fiveweb/
Thanks for your support

Antonio Linares wrote:Yes, thats why we prefer the other FiveWeb implementation based on php and MySQL
Code: Select all | Expand
// Using ProgressBars#include "FiveWeb.ch"function Main() local oDlg, nValue := 30 DEFINE DIALOG oDlg TITLE "Using ProgressBars" SIZE 600, 400 @ 120, 140 PROGRESS oPrg VAR nValue SIZE 300, 40 OF oDlg @ 200, 140 BUTTON "<<" OF oDlg SIZE 60, 40 ; ACTION ProgressDec( "oPrg", 10 ) @ 200, 380 BUTTON ">>" OF oDlg SIZE 60, 40 ; ACTION ProgressInc( "oPrg", 10 ) ACTIVATE DIALOG oDlg return nil
Code: Select all | Expand
#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 nilfunction BuildMenu() local oMenu MENU oMenu MENUITEM "Main theme" MENU MENUITEM "Light" MENU MENUITEM "Aristo" ACTION SetAristoTheme() MENUITEM "Base" ACTION SetTheme( "base" ) MENUITEM "Black-tie" ACTION SetTheme( "black-tie" ) MENUITEM "Blitzer" ACTION SetTheme( "blitzer" ) MENUITEM "Bootstrap" ACTION SetBootstrapTheme() 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 ENDMENUreturn oMenu
Code: Select all | Expand
// Using controls#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
Code: Select all | Expand
#include "FiveWeb.ch"function Main() local oDlg SET BACKIMAGE TO "http://fiveweb.googlecode.com/svn/trunk/images/beach.jpg" SetTheme( "cupertino" ) DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400 ACTIVATE DIALOG oDlg NOWAITreturn nil
Code: Select all | Expand
#include "FiveWeb.ch"function Main() local oDlg local cTitle := Space( 80 ), cFamilien := Space( 80 ), cVorname := Space( 80 ) SET BACKIMAGE TO "http://fiveweb.googlecode.com/svn/trunk/images/beach.jpg" SetTheme( "flick" ) DEFINE DIALOG oDlg TITLE "Otto example" SIZE 600, 400 @ 12, 10 SAY "Title:" OF oDlg @ 10, 160 GET cTitle OF oDlg SIZE 300, 35 @ 54, 10 SAY "FamilienName:" OF oDlg @ 52, 160 GET cFamilien OF oDlg SIZE 300, 35 @ 94, 10 SAY "Vorname:" OF oDlg @ 90, 160 GET cVorname OF oDlg SIZE 300, 35 @ 240, 160 BUTTON "Ok" OF oDlg @ 240, 300 BUTTON "Cancel" OF oDlg ACTIVATE DIALOG oDlg NOWAITreturn nil
Code: Select all | Expand
#include "FiveWeb.ch"function Main() local oDlg, oGet1, oGet2, oGet3 local cTitle := Space( 80 ), cFamilien := Space( 80 ), cVorname := Space( 80 ) SET BACKIMAGE TO "http://fiveweb.googlecode.com/svn/trunk/images/beach.jpg" SetTheme( "flick" ) DEFINE DIALOG oDlg TITLE "Otto example" SIZE 600, 400 @ 12, 10 SAY "Title:" OF oDlg @ 10, 160 GET oGet1 VAR cTitle OF oDlg SIZE 300, 35 @ 54, 10 SAY "FamilienName:" OF oDlg @ 52, 160 GET oGet2 VAR cFamilien OF oDlg SIZE 300, 35 @ 94, 10 SAY "Vorname:" OF oDlg @ 90, 160 GET oGet3 VAR cVorname OF oDlg SIZE 300, 35 @ 150, 160 SAY oSay PROMPT "Please fill this info and press ok" OF oDlg @ 260, 160 BUTTON "Ok" OF oDlg ; ACTION $( "#oSay" ).load( "../fiveweb/myproc.php?" + ; "title=" + document.getElementById( "oGet1" ).value + ; "&familien=" + document.getElementById( "oGet2" ).value + ; "&vorname=" + document.getElementById( "oGet3" ).value ) @ 260, 300 BUTTON "Cancel" OF oDlg ACTIVATE DIALOG oDlg NOWAITreturn nil