FiveTech Software tech support forums

Frafive wrote: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 . .

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

un saludo

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

Code: Select all  Expand view

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  
 

Frafive wrote: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

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

saludos.

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

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  Expand view

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

sysctrl2 wrote: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  Expand view

#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  Expand view

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

 

Perfecto Mastitin,
ahora si ya compila,
gracias

de grande quiero ser como ustedes jeje.

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

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

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

Code: Select all  Expand view

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

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

Saludos a todos.

Manuel,

muchas gracias! He modificado el código de MsgInfo() para que cambie el nombre de "oDlg" sucesivamente. Los cambios 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...

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

Pere,

Es complementario. En un determinado momento se fusionaran ambos

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

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

Code: Select all  Expand view

// 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/downloads/detail?name=fiveweb_0.5.zip&can=2&q=

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