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

Post Reply
hmpaquito
Posts: 1200
Joined: Thu Oct 30, 2008 2:37 pm

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

Post by 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
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

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

Post by 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
 
Image
User avatar
Jairo Barbosa
Posts: 188
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia
Contact:

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

Post by 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
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

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

Post by 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)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Jairo Barbosa
Posts: 188
Joined: Fri Jan 23, 2009 2:50 am
Location: Cali Valle Colombia
Contact:

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

Post by 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
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

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

Post by 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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

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

Post by 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 :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
hmpaquito
Posts: 1200
Joined: Thu Oct 30, 2008 2:37 pm

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

Post by hmpaquito »

Antonio,

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

Saludos
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

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

Post by 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 :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

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

Post by 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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

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

Post by 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
 
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

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

Post by 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 :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
mastintin
Posts: 1502
Joined: Thu May 27, 2010 2:06 pm

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

Post by 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.
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

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

Post by 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! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

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

Post by 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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
Post Reply