FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour FiveWeb de FiveTech (gratis hasta la versión 1.0)
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Tue Oct 30, 2012 10:10 AM
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 . :-) .
Frafive
Posts: 189
Joined: Wed Apr 05, 2006 09:48 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Tue Oct 30, 2012 11:39 AM

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

un saludo

mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Tue Oct 30, 2012 11:56 AM
Version preliminar ( falta las acciones de los botones ) de un msgYesNO :
Code (fw): Select all Collapse
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
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Tue Oct 30, 2012 12:24 PM
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
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Tue Oct 30, 2012 05:31 PM

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

saludos.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Tue Oct 30, 2012 06:51 PM
Usando el tema cupertino .Navegador Safari en windows 7 y como servidor IIS de win7
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Tue Oct 30, 2012 08:50 PM
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 (fw): Select all Collapse
#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..
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Tue Oct 30, 2012 09:13 PM
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 (fw): Select all Collapse
#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 (fw): Select all Collapse
#xcommand DEFAULT <uVar1> := <uVal1> ;
               [, <uVarN> := <uValN> ] => ;
                  If( <uVar1> == nil, <uVar1> := <uVal1>, ) ;;
                [ If( <uVarN> == nil, <uVarN> := <uValN>, ); ]
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Tue Oct 30, 2012 10:40 PM

Perfecto Mastitin,
ahora si ya compila,
gracias

de grande quiero ser como ustedes jeje.

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Wed Oct 31, 2012 03:05 AM
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

regards, saludos

Antonio Linares
www.fivetechsoft.com
mastintin
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Wed Oct 31, 2012 08:11 AM
Antonio , mejora para msginfo().
Añadido la posiblidad de cambiar el titulo , para compatibilidad con MsgInfo de fivewin:
Code (fw): Select all Collapse
function MsgInfo( cMsg , cTitle )
  DEFAULT cTitle := "Attention"

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

Saludos a todos.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Wed Oct 31, 2012 09:48 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
pcordonet
Posts: 111
Joined: Sat Jan 30, 2010 08:35 AM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Wed Oct 31, 2012 01:04 PM

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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Wed Oct 31, 2012 02:07 PM

Pere,

Es complementario. En un determinado momento se fusionaran ambos :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)
Posted: Sat Nov 03, 2012 12:23 PM
Comenzada la Clase TButton, nuevo ejemplo samples/tutor03.prg

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



Code (fw): Select all Collapse
// 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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Static archive · New replies & topics via GitHub Discussions