FiveTech Software tech support forums

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

añadido estilo botton al checkbox:

Code: Select all  Expand view

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
 

Antonio Buen dia

con este codigo

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

Compila bien como muestra la imagen, solo que no me muestra los msginfo cuando hago click sobre los botones
que me puede esta haciendo falta

Un abrazo
Jairo

http://img16.imageshack.us/img16/8399/fiveweb.jpg

Jairo,

Tienes que tener la versión actualizada de fiveweb.js que la puedes descargar desde aqui:

http://code.google.com/p/fiveweb/source/browse/#svn%2Ftrunk%2Fsource%2Fjs

y tiene que estar no en la carpeta cgi-bin sino en la carpeta en donde se situen las páginas HTML, que suele ser la carpeta htdocs (si usas xampp como servidor local)

Antonio 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

Si te gusta el proyecto FiveWeb, ahora puedes realizarnos una pequeña donación por PayPal:

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

Gracias por apoyarnos

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

Usando barras de progreso:

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

testprog.prg

Code: Select all  Expand view

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

Por favor recuerda que puedes apoyar el desarrollo de FiveWeb con una pequeña donación por PayPal desde:
http://code.google.com/p/fiveweb/ (PayPal botón naranja)

FiveWeb es gratis y libre, todo el código fuente esta incluido.

Antonio añadido el methodo SetStep( nStepInc ) a la clase :
Ahora podemos usarlo de una forma mas natural para nosotros :

Code: Select all  Expand view

 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 nil
 

Manuel,

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!

Añadido soporte para los temas "Aristo" y "Bootstrap":

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

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

Por favor recuerda que puedes apoyar el desarrollo de FiveWeb con una pequeña donación por PayPal desde:
http://code.google.com/p/fiveweb/ (PayPal botón naranja)
FiveWeb es gratis y libre, todo el código fuente esta incluido.