FiveTech's FiveWeb (free up to version 1.0)

[Antonio Linares]

If you like this FiveWeb project, now you can help us with a little donation by PayPal:

http://code.google.com/p/fiveweb/

Thanks for your support

[BrandelH]

Yes, thats why we prefer the other FiveWeb implementation based on php and MySQL

PHP and MySQL sounds interesting, is this in the same package ?

[Antonio Linares]

Hubert,

Yes, the PHP and MySQL source code is included in FiveWeb also

[Antonio Linares]

Using progress bars:

http://www.fivetechsoft.net/cgi-bin/testprog

testprog.prg

Code: Select all  Expand view

// 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

Please remember that you can support FiveWeb development with a little PayPal donation from:
http://code.google.com/p/fiveweb/ (PayPal orange button)

FiveWeb is free, full source code included.

[Antonio Linares]

Added support for themes "Aristo" and "Bootstrap":

http://www.fivetechsoft.net/cgi-bin/themes

Code: Select all  Expand view

#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 "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  
   ENDMENU

return oMenu

Please remember that you can support FiveWeb development with a little PayPal donation from:
http://code.google.com/p/fiveweb/ (PayPal orange button)
FiveWeb is free, full source code included.

[Horizon]

Very good Antonio,

But I think The themes is not the our main target.

[Antonio Linares]

Added support to SET COLOR TO ... command:

http://www.fivetechsoft.net/cgi-bin/tutor03

tutor03.prg

Code: Select all  Expand view

// 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

[Antonio Linares]

Hakan,

We are exploring the possibilities that jquery ui provides, but of course we are open to all the feedback that you all provide.

If you want us to focus on MySQL, or whatever, thats fine

[Antonio Linares]

Setting the background image and dinamically selecting the theme to use:

http://www.fivetechsoft.net/cgi-bin/tutor04

tutor04.prg

Code: Select all  Expand view

#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 NOWAIT

return nil

[Otto]

Hello Antonio,

At the moment we have following task to do.
We need an online registration form like the screenshot.
If you click on ok the data should be stored in a TXT or dbf file online on the server.
Do you think this is possible.
Best regards,
Otto

[Antonio Linares]

Otto,

Implementing your example, not finished yet:

http://www.fivetechsoft.net/cgi-bin/otto

otto.prg

Code: Select all  Expand view

#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 NOWAIT

return nil

Full source code is at FiveWeb site: http://code.google.com/p/fiveweb/

[Otto]

Hello Antonio,
thank you.
What about database management. Is this functioning like in FWH.
Best regards,
Otto

[Antonio Linares]

Otto,

I have updated your example:

http://www.fivetechsoft.net/cgi-bin/otto

Now, when you press "Ok", the typed info goes to the server and can already be stored on a MySQL database. In fact what I am doing is returning back and painting what the server is receiving

Is MySQL fine for you ? Then we can proceed storing the info in the server...

Current code used in Otto.prg

Code: Select all  Expand view

#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 NOWAIT

return nil

[Antonio Linares]

Otto,

For a better understanding of FiveWeb, I am going to save the results in a DBF first

[Otto]

Hello Antonio,
Yes to use use dbf this would be best for me.
Best regards,
Otto