FiveWeb de FiveTech (gratis hasta la versión 1.0)

[hmpaquito]

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

[mastintin]

añadido estilo botton al checkbox:

Code: Select all

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
 

[Jairo Barbosa]

Antonio Buen dia

con este codigo

Code: Select all

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

[Antonio Linares]

Jairo,

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

http://code.google.com/p/fiveweb/source ... ource%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)

[Jairo Barbosa]

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

[Antonio Linares]

Jairo,

El EXE tiene que ir a la carpeta cgi-bin y el fichero fiveweb.js a la carpeta htdocs/fiveweb/fiveweb.js

[Antonio Linares]

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

[hmpaquito]

Antonio,

Para los que no usamos paypal y estamos en España ¿ puedes hacer publico un numero de cuenta ?

Saludos

[Antonio Linares]

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

[Antonio Linares]

Usando barras de progreso:

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

testprog.prg

Code: Select all

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

[mastintin]

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

Code: Select all

 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
 

[Antonio Linares]

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

[mastintin]

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.

[Antonio Linares]

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!

[Antonio Linares]

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

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

Code: Select all

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