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

[Enrrique Vertiz]

Antonio, compilo y funciona Ok, algunos comentarios :

Para los que usan WAMP, los archivos EXE se deben colocar en la carpeta CGI-BIN que esta dentro del directorio Wamp\Bin\apache\......cgi-bin.

En Windows 7 y Harbour los compilo sin problemas y los ejecuto.

Cuando compilo en WinXP con Harbour o en Win7 con xHarbour me bota el siguiente error al enlazar :

Error : Unresolved external '_HB_FUN_HB_GT_STD_DEFAULT' referenced from Fiveweb\Lib\FIVEWEB.LIB|fiveweb
Error : Unresolved external '_HB_FUN_HB_GT_STD' referenced from Fiveweb\Lib\FIVEWEB.LIB|fiveweb

Falta alguna LIB, alguna ruta ??, gracias

[Antonio Linares]

Enrique,

Estas usando FiveWeb/samples/build,bat para construir los ejemplos ?

La libreria gtstd.lib hay que enlazarla, pero ya lo hace build.bat

[Enrrique Vertiz]

Gracias Antonio, por alguna razon no lo tenia en el Build.bat, incluyendo esa LIB compilo sin problema con HARBOUR, ya esta Ok

Ahora con xHarbour, uso el Build.bat lo copio como Buildx.bat y saco las LIBs de HARBOUR y traigo las que estan en el FWH\Samples en el Buildx.bat, al parecer me falta algo porque me bota un error :
Unresolved external _HB_FUN__CLSLOCKDEF
Unresolved external _HB_FUN__CLSUNLOCKDEF
Falta alguna LIB en xHb ?, gracias

[Antonio Linares]

Browses basados en MySQL, usando Ajax:

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

Fijaros en la claúsula URL del browse que carga mediante Ajax el contenido a partir de donde queramos. En este caso desde un php estandard de FiveWeb que accede a una tabla de una base de datos de MySQL.

testbrow.prg

Code: Select all  Expand view

#include "FiveWeb.ch"

function Main()

   local oDlg, oBrw

   DEFINE DIALOG oDlg TITLE "MySQL browse" ;
      SIZE 1000, 600

   @ 10, 10 BROWSE oBrw SIZE 980, 500 OF oDlg ;
      URL "../fiveweb/mybrowse.php?name=clients"

   @ 500, 30 BUTTON "<<" OF oDlg SIZE 50, 35

   @ 500, 110 BUTTON ">>" OF oDlg SIZE 50, 35

   @ 500, 200 BUTTON "Add" OF oDlg

   @ 500, 330 BUTTON "Edit" OF oDlg

   @ 500, 460 BUTTON "Delete" OF oDlg

   @ 500, 590 BUTTON "Search" OF oDlg

   @ 500, 720 BUTTON "Print" OF oDlg

   @ 500, 850 BUTTON "Exit" OF oDlg

   ACTIVATE DIALOG oDlg

return nil

[hmpaquito]

Enrique,

Esos unresolved external siempre me han salido a mi cuando desde el ambiente (sets) de harbour he invocado una compilacion de xHarbour (o viceversa, ya no me acuerdo). Es decir, la solucion, al menos para mi, siempre pasa por abrir una sesion nueva de CMD.

Saludos

[Antonio Linares]

Nueva versión para descargar:

http://code.google.com/p/fiveweb/downloads/detail?name=fiveweb_0.8.zip&can=2&q=

[Enrrique Vertiz]

hmpaquito, gracias por el tip, probare con lo indicado.

[sysctrl2]

la solucion que pone paco,
es la correcta,
abrir una nueva ventana de COMMAND.COM ( CMD )

saludos.

[Antonio Linares]

Implementada la claúsula ACTION en los botones. De momento ejecutan acciones en la parte cliente, más adelante implementaremos las acciones en la aprte servidor tambien. Implementada la función MsgInfo() en javascript usando jquery ui y DOM.

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

tutor03.prg

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

[Antonio Linares]

Implementados los menues de persiana:

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

testmenu.prg

Code: Select all  Expand view

#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

[mastintin]

tutor01 compilado y funcionando en macosx (servidor apache integrado en el sistema )

[mastintin]

Añadidos al repositorio los archivos mac_build.sh makefilemac para compilar fiveweb en mac ...
Saludos a Todos.

[Antonio Linares]

Manuel.

gracias!

[Antonio Linares]

Dinamicamente cambiando temas:

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

themes.prg

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 "Base"         ACTION SetTheme( "base" )
            MENUITEM "Black-tie"    ACTION SetTheme( "black-tie" )
            MENUITEM "Blitzer"      ACTION SetTheme( "blitzer" )
            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

[Antonio Linares]

Comenzando un diseñador. Existe el problema de que cuando un control se activa como redimensionable y movible, los demas pierden esa capacidad. Si solucionamos esto, vamos por buen camino

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

Code: Select all  Expand view

#include "FiveWeb.ch"

function Main()

   local oDlg

   BuildMenu()

   DEFINE DIALOG oDlg SIZE 600, 400

   ACTIVATE DIALOG oDlg NOWAIT  

return nil

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "Controls"
      MENU
         MENUITEM "Add control"
         MENU
            MENUITEM "Say"    ACTION AddSay( "oDlg" )
            MENUITEM "Button" ACTION AddButton( "oDlg" )
         ENDMENU
      ENDMENU  
   ENDMENU

return oMenu