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

[mastintin]

Hoia

De donde me puedo descargar la versión harbour para compilar en windows ?

Un saludo

Yo estoy usando la misma que uso para harbour . .

[Frafive]

Es que utilizo xharbour, de donde me puedo descargar harbour para fiveweb ?

un saludo

[mastintin]

Version preliminar ( falta las acciones de los botones ) de un msgYesNO :

Code: Select all

function MsgYesNo( cMsg , cTitle , cIcon )
local cUiIcon
DEFAULT cTitle:= "Attention"
DEFAULT cIcon := "ALERT"

if cIcon == "ALERT"
  cUiIcon:="ui-icon ui-icon-alert"
elseif cIcon == "CHECK"  
   cUiIcon:= "ui-icon ui-icon-circle-check"
else
   cUiIcon:="ui-icon ui-icon-alert"
endif

   ? '<div id="oMsgYesNo" class="dialog_window" title="'+ cTitle+'">'
   ? "<p>"
   ? "<span class='"+cUiIcon+"' style='float: left; margin: 0 7px 20px 0;'></span>"
   ? cMsg
   ? "</p>"
   ? "</div>"
   ? "<script>"
   ? "$('#oMsgYesNo').dialog( { width: 400, " +;
                                              "height: 250 , " +;
                          "modal: true , " +;
                          "buttons: { " +;
                          "'Yes': function() { " +;
                          " $( this ).dialog( 'close' ); "+;
                          " }, "+;
                          "'No': function() { " +;
                          "  $( this ).dialog( 'close' ); "+;
                          "} "+;
                          "} "+;
                         "} );"
   ? "</script>"

   
return nil  
 

[mastintin]

Es que utilizo xharbour, de donde me puedo descargar harbour para fiveweb ?

un saludo

aqui lo tienes :
http://code.google.com/p/harbour-and-xh ... loads/list

[sysctrl2]

Mastintin,
tienes una img de como se ve el msgyesno ?

saludos.

[mastintin]

Usando el tema cupertino .Navegador Safari en windows 7 y como servidor IIS de win7

[sysctrl2]

Amigo Mastintin,

compilando con build.bat de fiveweb, marca error en la linea 5 y 6 de MsgYesNo.prg

┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWeb builder Harbour development power │▄
│ (c) FiveTech, 1993-2012 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 │█
└────────────────────────────────────────────────────────────────────────────┘█
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
MsgYesNo.prg(5) Error E0030 Syntax error "syntax error at 'CTITLE'"
MsgYesNo.prg(6) Error E0030 Syntax error "syntax error at 'CICON'"
Harbour 3.2.0dev (Rev. 17475)
Copyright (c) 1999-2012, http://harbour-project.org/
Compiling 'MsgYesNo.prg' and generating preprocessed output to 'MsgYesNo.ppo'...

2 errors

No code generated.
* Compile errors *

C:\fiveweb\fiveweb_0.4\samples>

Code: Select all

#include "FiveWeb.ch"

function MsgYesNo( cMsg , cTitle , cIcon )
   local cUiIcon
   DEFAULT cTitle:= "Attention"
   DEFAULT cIcon := "ALERT"

   if cIcon == "ALERT"
     cUiIcon:="ui-icon ui-icon-alert"
   elseif cIcon == "CHECK"  
      cUiIcon:= "ui-icon ui-icon-circle-check"
   else
      cUiIcon:="ui-icon ui-icon-alert"
   endif

   ? '<div id="oMsgYesNo" class="dialog_window" title="'+ cTitle+'">'
   ? "<p>"
   ? "<span class='"+cUiIcon+"' style='float: left; margin: 0 7px 20px 0;'></span>"
   ? cMsg
   ? "</p>"
   ? "</div>"
   ? "<script>"
   ? "$('#oMsgYesNo').dialog( { width: 400, " +;
                                              "height: 250 , " +;
                          "modal: true , " +;
                          "buttons: { " +;
                          "'Yes': function() { " +;
                          " $( this ).dialog( 'close' ); "+;
                          " }, "+;
                          "'No': function() { " +;
                          "  $( this ).dialog( 'close' ); "+;
                          "} "+;
                          "} "+;
                         "} );"
   ? "</script>"

   
return nil  

Saludos..

[mastintin]

Amigo Mastintin,

compilando con build.bat de fiveweb, marca error en la linea 5 y 6 de MsgYesNo.prg

┌────────────────────────────────────────────────────────────────────────────┐
│ FiveWeb builder Harbour development power │▄
│ (c) FiveTech, 1993-2012 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 │█
└────────────────────────────────────────────────────────────────────────────┘█
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Compiling...
MsgYesNo.prg(5) Error E0030 Syntax error "syntax error at 'CTITLE'"
MsgYesNo.prg(6) Error E0030 Syntax error "syntax error at 'CICON'"
Harbour 3.2.0dev (Rev. 17475)
Copyright (c) 1999-2012, http://harbour-project.org/
Compiling 'MsgYesNo.prg' and generating preprocessed output to 'MsgYesNo.ppo'...

2 errors

No code generated.
* Compile errors *

C:\fiveweb\fiveweb_0.4\samples>

Code: Select all

#include "FiveWeb.ch"

function MsgYesNo( cMsg , cTitle , cIcon )
   local cUiIcon
   DEFAULT cTitle:= "Attention"
   DEFAULT cIcon := "ALERT"

   if cIcon == "ALERT"
     cUiIcon:="ui-icon ui-icon-alert"
   elseif cIcon == "CHECK"  
      cUiIcon:= "ui-icon ui-icon-circle-check"
   else
      cUiIcon:="ui-icon ui-icon-alert"
   endif

   ? '<div id="oMsgYesNo" class="dialog_window" title="'+ cTitle+'">'
   ? "<p>"
   ? "<span class='"+cUiIcon+"' style='float: left; margin: 0 7px 20px 0;'></span>"
   ? cMsg
   ? "</p>"
   ? "</div>"
   ? "<script>"
   ? "$('#oMsgYesNo').dialog( { width: 400, " +;
                                              "height: 250 , " +;
                          "modal: true , " +;
                          "buttons: { " +;
                          "'Yes': function() { " +;
                          " $( this ).dialog( 'close' ); "+;
                          " }, "+;
                          "'No': function() { " +;
                          "  $( this ).dialog( 'close' ); "+;
                          "} "+;
                          "} "+;
                         "} );"
   ? "</script>"

   
return nil  

Saludos..

Añade al fiveweb.ch estas lineas :

Code: Select all

#xcommand DEFAULT <uVar1> := <uVal1> ;
               [, <uVarN> := <uValN> ] => ;
                  If( <uVar1> == nil, <uVar1> := <uVal1>, ) ;;
                [ If( <uVarN> == nil, <uVarN> := <uValN>, ); ]

 

[sysctrl2]

Perfecto Mastitin,
ahora si ya compila,
gracias

de grande quiero ser como ustedes jeje.

[Antonio Linares]

Mejorada la función MsgInfo() y añadidos _ a la clase TDialog propuestos por Manuel aunque modificado para mantener compatibilidad con FWH:

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

[mastintin]

Antonio , mejora para msginfo().
Añadido la posiblidad de cambiar el titulo , para compatibilidad con MsgInfo de fivewin:

Code: Select all

function MsgInfo( cMsg , cTitle )
  DEFAULT cTitle := "Attention"

     ? '<div id="oDlg" class="dialog_window" title="'+cTitle+'">'
   <br>
   .........
 

Saludos a todos.

[Antonio Linares]

Manuel,

muchas gracias! He modificado el código de MsgInfo() para que cambie el nombre de "oDlg" sucesivamente. _ estan en el repositorio.

Te he dado de alta en el proyecto para que puedas subir cambios, etc. Gracias!

Tenemos el problema de que dos MsgInfo() seguidos el ultimo sale primero...

[pcordonet]

Hola Antonio,

Me esta gustando este proyecto, pero hace dias que estoy dando vueltas a una pregunta.

El proyecto de fiveweb con sockets, esta parado? , es el mismo?

Que diferencias hay entre este y el otro?

Muchas Gracias.
Estais haciendo un gran trabajo.

Pere

[Antonio Linares]

Pere,

Es complementario. En un determinado momento se fusionaran ambos

[Antonio Linares]

Comenzada la Clase TButton, nuevo ejemplo samples/tutor03.prg

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

Code: Select all

// Using controls

#include "FiveWeb.ch"

function Main()

   local oDlg
   
   DEFINE DIALOG oDlg TITLE "Hello FiveWeb" SIZE 600, 400
   
   @ 100,  50 BUTTON "One" SIZE 80, 20 OF oDlg

   @ 100, 150 BUTTON "Two" SIZE 80, 20 OF oDlg

   @ 100, 250 BUTTON "Three" SIZE 80, 20 OF oDlg
   
   ACTIVATE DIALOG oDlg 

return nil

http://code.google.com/p/fiveweb/downlo ... p&can=2&q=

http://code.google.com/p/fiveweb/source ... button.prg