FiveWeb - Tutorial (paso a paso)

[Antonio Linares]

tutor01.prg

Code: Select all  Expand view  RUN

#include "FiveWeb.ch"

function Main()

   MsgInfo( "Hello world from FiveWeb" )

return nil

Pruébalo:
http://www.fivetechsoft.net/cgi-bin/tutor01

[Antonio Linares]

tutor02.prg

Code: Select all  Expand view  RUN

#include "FiveWeb.ch"

function Main()

   local oDlg
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
   ACTIVATE DIALOG oDlg

return nil

Pruébalo:
http://www.fivetechsoft.net/cgi-bin/tutor02

[Antonio Linares]

tutor03.prg

Code: Select all  Expand view  RUN

#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

Pruébalo:
http://www.fivetechsoft.net/cgi-bin/tutor03

[Antonio Linares]

testmenu.prg

Code: Select all  Expand view  RUN

#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

Pruébalo:
http://www.fivetechsoft.net/cgi-bin/testmenu

[Antonio Linares]

testfold.prg

Code: Select all  Expand view  RUN

#include "FiveWeb.ch"

function Main()

   local oDlg, oFld

   DEFINE DIALOG oDlg TITLE "Using folders"

   @ 10, 10 FOLDER oFld PROMPTS "One", "Two", "Three" OF oDlg SIZE 400, 300

   ACTIVATE DIALOG oDlg

return nil

Pruébalo:
http://www.fivetechsoft.net/cgi-bin/testfold

[Patricio Avalos Aguirre]

Hola

Excelente, me funcionan todos correctamente en mi mozilla firefox

[FranciscoA]

Hola.
Probados en Chrome.
Saludos.

[Enrrique Vertiz]

Interesante, me quede en el tiempo, debo instalar primero el servidor web y copiar las aplicaciones, esto ya lo habian explicado, si tiene el link a la mano, gracias ...
Otra consulta, es la impresion, PDF o la que sea, ya hay algo de eso ??
Gracias.

[Enrrique Vertiz]

Probado en Chrome, todas funcionan Ok, en IE10 todas Ok menos el ejemplo de Menu, no habre ninguna opcion

[sysctrl2]

probado en opera.com

saludos..

[Antonio Linares]

Un login típico desde la web:

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

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



login.prg

Code: Select all  Expand view  RUN

#include "FiveWeb.ch"

function Main()

   local oDlg, oImg
   local oGetName, cUserName := Space( 30 )
   local oGetPass, cPassword := ""

   DEFINE DIALOG oDlg TITLE "Login" SIZE 650, 400

   @  30,  30 IMAGE oImg FILENAME "../images/user.png" SIZE 120, 120 OF oDlg

   @  69, 190 SAY "User" SIZE 110, 40 OF oDlg

   @ 124, 190 SAY "Password" SIZE 110, 40 OF oDlg

   @  66, 315 GET oGetName VAR cUserName SIZE 300, 40 OF oDlg

   @ 124, 315 GET oGetPass VAR cPassword SIZE 300, 40 OF oDlg PASSWORD

   @ 265, 189 BUTTON "Ok" SIZE 110, 40 OF oDlg ;
      ACTION MsgInfo( oGetName.value + CRLF + oGetPass.value ); // executed in the client in javascript

   @ 265, 335 BUTTON "Cancel" SIZE 110, 40 OF oDlg ;
      ACTION ( oDlg:End() ) // Executed in the server in advance

   ACTIVATE DIALOG oDlg

return nil

[Sistem]

tener un paso a paso TortoiseSVN?

Paramos aquí

[Antonio Linares]

No hay que especificar ningun username ni password y darle a ok y ya está

Luego ir a la carpeta de FiveWeb y ejecutar go.bat

[Antonio Linares]

Toolbars:

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



testfold.prg

Code: Select all  Expand view  RUN

#include "FiveWeb.ch"

function Main()

   local oDlg, oTbr, oBtn1, oBtn2

   DEFINE DIALOG oDlg TITLE "Using toolbars"

   DEFINE TOOLBAR oTbr OF oDlg

   DEFINE BUTTON RESOURCE "ui-icon-seek-start" ;
      OF oTbr ACTION MsgInfo( "one" )

   DEFINE BUTTON RESOURCE "ui-icon-seek-prev" ;
      OF oTbr ACTION MsgInfo( "two" )

   DEFINE BUTTON RESOURCE "ui-icon-play" ;
      OF oTbr ACTION MsgInfo( "three" )

   DEFINE BUTTON RESOURCE "ui-icon-pause" ;
      OF oTbr ACTION MsgInfo( "four" )

   DEFINE BUTTON RESOURCE "ui-icon-seek-next" ;
      OF oTbr ACTION MsgInfo( "five" )

   DEFINE BUTTON RESOURCE "ui-icon-seek-end" ;
      OF oTbr ACTION MsgInfo( "six" )

   ACTIVATE DIALOG oDlg NOWAIT

return nil

standard jquery ui images:
http://jquery-ui.googlecode.com/svn/tags/1.6rc5/tests/static/icons.html