Antonio,
Dos cosas por si sirve de algo:
Primero: El inter茅s del foro por el nuevo FiveWeb es patente. Con esta ya son 2431 las "vistas" de este hilo, en muy poco tiempo.
Segundo: Que no funcione en IE, no debe determinar nada; e incluso, quiz谩 en el futuro, cuando IE sea un navegador como tendr铆a que ser, FiveWeb podr铆a autom谩ticamente obtener compatibilidad.. Chrome debe ser la referencia.
Felicidades y adelante ! Algunos te estamos esperando.
Saludos
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, 220 CHECKBOX lValue PROMPT "Tested" SIZE 150, 40 OF oDlg BUTTON
ACTIVATE DIALOG oDlg
return nil
// 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 nilAntonio gracias por la respuesta
s铆 uso xampp como servidor local, pero tengo dos problemas.
1 Disculpa mi falta de conocimiento, como uso el archivo que baje Fiveweb.js
2 Cuando pongo el exe en la carpeta "cgi-bin" puedo ver la aplicaci贸n en el servidos y cuando coloco el exe en la carpeta"htdocs" el servidor no la encuentra.
Un Abrazo
jairo
Jairo,
El EXE tiene que ir a la carpeta cgi-bin y el fichero fiveweb.js a la carpeta htdocs/fiveweb/fiveweb.js
Antonio,
Para los que no usamos paypal y estamos en Espa帽a 驴 puedes hacer publico un numero de cuenta ?
Saludos
Estos son nuestros datos bancarios para los que quieran contribuir 贸 agradecer por el trabajo que estamos realizando con FiveWeb:
Banco Popular
Direcci贸n: Ctra. de C谩diz, Marbella. Espa帽a
IBAN: ES75 0075 3072 9606 0052 8005
BIC: POPUESMM
Titular: FiveTech Software S.L
Gracias por vuestra ayuda 
// 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 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 40, 40 ;
ACTION ( oPrg:SetStep( -1 ) )
@ 200, 400 BUTTON ">>" OF oDlg SIZE 40, 40 ;
ACTION ProgressInc( "oPrg", 10 )
ACTIVATE DIALOG oDlg
return nilManuel,
No funcionar谩, ya que hay que distinguir (y esto es todo un arte entre acciones en la parte cliente y acciones en la parte servidor.
De momento las acciones de los botones estan definidas como acciones locales (parte cliente) que ejecutaran codigo en javascript. De ah铆 que las acciones las convirtamos en "cadenas" (strings) en vez de guardarlas en bloques de c贸digo (con la ayuda del preprocesador).
Fijate en el resultante de preprocesar el c贸digo:
TButton():New( 200, 140, "<<", 40, 40, oDlg,, "oPrg:SetStep( -1 )" ) // No existe oPrg de Harbour
TButton():New( 200, 400, ">>", 40, 40, oDlg,, 'ProgressInc( "oPrg", 10 )' ) // Si existe $( "#oPrg" ) de javascript
por el momento, las variables de Harbour solo existen en la parte servidor. En el cliente se han transformado en objetos DOM (document object model) que se manejan desde Javascript. El desafio es ver hasta que punto somos capaces de modificar datos en el servidor desde objetos DOM (al reves). Invocar acciones lo podemos hacer usando Ajax (usado ya en la clase TBrowse).
Es un tema interesante para todos por eso he preferido comentarlo en publico ya que puede ayudar a otros usuarios a entenderlo, y darnos a todos una mejor compresi贸n
Antonio , pues me ha funcionado con el ejemplo publicado ... el enfoque de la solucion que he tomado es otro ...
El tema es que al button ya llega sustituido por 'ProgressInc( "oPrg", 10 )' gracias al parentesis :
oPrg:SetStep( 10 ) -> genera una cadena ->'ProgressInc( "oPrg", 10 )' , como est谩 entre par茅ntesis se ejecuta antes que la macro sustitucion del include . y el codigo genrado es :
TButton():New( 200, 400, ">>", 40, 40, oDlg,, 'ProgressInc( "oPrn",10 )' )
Saludos.
Manuel,
Un descubrimiento muy interesante por tu parte: Al usar par茅ntesis alrededor, el preprocesador no lo convierte en cadena
Eso nos puede venir muy bien para decidir acciones en el servidor 贸 en la parte cliente!
#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