#include "FiveWeb.ch"
function Main()
MsgInfo( "Hello world from FiveWeb" )
return nil#include "FiveWeb.ch"
function Main()
local oDlg
DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
ACTIVATE DIALOG oDlg
return nil#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#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#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 nilHola
Excelente, me funcionan todos correctamente en mi mozilla firefox
Hola.
Probados en Chrome.
Saludos.
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.
Probado en Chrome, todas funcionan Ok, en IE10 todas Ok menos el ejemplo de Menu, no habre ninguna opcion
probado en opera.com
saludos..
#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
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
#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