FiveTech's FiveWeb (free up to version 1.0)

[norberto]

Works fine in IE10, desktop and Modern UI version.
Dont work in IE9, Windows phone version (mobile).
very good job, but unfortunately we get on that tortuous terrain that web apps fall: works in browse, does not work at that, works one way in one, another in another way in other browse. a nightmare.

[Antonio Linares]

Norberto,

I agree but it is better to have something (I mean: a way to deliver quick Web apps) instead of nothing...

And it is not such big requirement to ask someone to use Google Chrome, in example...

[norberto]

Antonio, certainly yes.

best regards

[Antonio Linares]

Testing the FiveWeb error system:

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

testerr.prg

Code: Select all  Expand view

#include "FiveWeb.ch"

memvar n

function Main()

   n++  // Here we generate an error

return nil

[Enrico Maria Giordano]

And it is not such big requirement to ask someone to use Google Chrome, in example...

Yes, for developers, no problem. But customers would hardly agree to change browser.

EMG

[hmpaquito]

Antonio,

I think too is better to have something, instead of nothing. Thank you for your efforts.

Regards.

[Horizon]

Norberto,

I agree but it is better to have something (I mean: a way to deliver quick Web apps) instead of nothing...

And it is not such big requirement to ask someone to use Google Chrome, in example...

I agree with you too. Thanks for all.

[Antonio Linares]

Browses based on MySQL, using Ajax:

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

Please notice the URL clause of the browse that loads using Ajax the browse contents from whatever we may want. In this case is a standard FiveWeb php that retrieves the data from a MySQL database table.

testbrow.prg

Code: Select all  Expand view

#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

[Antonio Linares]

New version to download:

http://code.google.com/p/fiveweb/downloads/detail?name=fiveweb_0.8.zip&can=2&q=

[Antonio Linares]

Implemented clause ACTION for Buttons. Actually the actions are executed on the client side, further on we will implement them for the server side too. Implemented function MsgInfo() for javascript using jquery ui and DOM (document object model).

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

PullDown menus already implemented:

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

testmenu.prg

Code: Select all  Expand view

#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

[Antonio Linares]

Dynamically changing themes:

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

themes.prg

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

[norberto]

Menus and themes dont work in IE10 (desktop and Modern UI).

[Antonio Linares]

Norberto,

We are using standard JQuery UI so it seems as it is not compatible with IE 10...

[Antonio Linares]

Starting a forms designer. We have the problem that when a control is activated as redimensionable and draggable, the others loose that feature. If we fix that, then we are on a the right way

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

Code: Select all  Expand view

#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