FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsupport.com/

FiveTech's FiveWeb (free up to version 1.0)

https://forums.fivetechsupport.com/viewtopic.php?t=25072

Page 4 of 8

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Mon Nov 12, 2012 3:06 pm
by 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 :-)

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Tue Nov 13, 2012 10:21 am
by BrandelH
Antonio Linares wrote: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 ?

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Tue Nov 13, 2012 10:54 am
by Antonio Linares
Hubert,

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

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Tue Nov 13, 2012 2:30 pm
by Antonio Linares
Using progress bars:

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

testprog.prg

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


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.

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Wed Nov 14, 2012 9:33 am
by Antonio Linares
Added support for themes "Aristo" and "Bootstrap":

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

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

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Wed Nov 14, 2012 10:09 am
by Horizon
Very good Antonio,

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

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Wed Nov 14, 2012 10:17 am
by Antonio Linares
Added support to SET COLOR TO ... command:

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

tutor03.prg

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

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Wed Nov 14, 2012 10:20 am
by 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 :-)

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Wed Nov 14, 2012 10:55 am
by 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

#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

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Wed Nov 14, 2012 11:19 am
by 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

Image

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Wed Nov 14, 2012 12:33 pm
by Antonio Linares
Otto,

Implementing your example, not finished yet:

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

otto.prg

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 NOWAIT

return nil


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

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Wed Nov 14, 2012 1:11 pm
by Otto
Hello Antonio,
thank you.
What about database management. Is this functioning like in FWH.
Best regards,
Otto

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Wed Nov 14, 2012 1:26 pm
by 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

#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

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Wed Nov 14, 2012 2:06 pm
by Antonio Linares
Otto,

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

Re: FiveTech's FiveWeb (free up to version 1.0)

Posted: Wed Nov 14, 2012 2:13 pm
by Otto
Hello Antonio,
Yes to use use dbf this would be best for me.
Best regards,
Otto
All times are UTC
Page 4 of 8

Powered by phpBB® Forum Software © phpBB Limited