FiveTech Software tech support forums

www.FiveTechSoft.com
https://fivetechsupport.com/forums/

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

https://fivetechsupport.com/forums/viewtopic.php?t=25073

Page 3 of 19

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

Posted: Tue Oct 30, 2012 10:10 am
by mastintin
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 . :-) .

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

Posted: Tue Oct 30, 2012 11:39 am
by Frafive
Es que utilizo xharbour, de donde me puedo descargar harbour para fiveweb ?

un saludo

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

Posted: Tue Oct 30, 2012 11:56 am
by mastintin
Version preliminar ( falta las acciones de los botones ) de un msgYesNO :

Code: Select all | Expand



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  
 

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

Posted: Tue Oct 30, 2012 12:24 pm
by mastintin
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

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

Posted: Tue Oct 30, 2012 5:31 pm
by sysctrl2
Mastintin,
tienes una img de como se ve el msgyesno ?

saludos.

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

Posted: Tue Oct 30, 2012 6:51 pm
by mastintin
Usando el tema cupertino .Navegador Safari en windows 7 y como servidor IIS de win7
Image

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

Posted: Tue Oct 30, 2012 8:50 pm
by 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 | Expand

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

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

Posted: Tue Oct 30, 2012 9:13 pm
by mastintin
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

#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



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

 

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

Posted: Tue Oct 30, 2012 10:40 pm
by sysctrl2
Perfecto Mastitin,
ahora si ya compila,
gracias

de grande quiero ser como ustedes jeje.

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

Posted: Wed Oct 31, 2012 3:05 am
by Antonio Linares
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

Image

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

Posted: Wed Oct 31, 2012 8:11 am
by mastintin
Antonio , mejora para msginfo().
Añadido la posiblidad de cambiar el titulo , para compatibilidad con MsgInfo de fivewin:

Code: Select all | Expand



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

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

Saludos a todos.

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

Posted: Wed Oct 31, 2012 9:48 am
by Antonio Linares
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...

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

Posted: Wed Oct 31, 2012 1:04 pm
by 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

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

Posted: Wed Oct 31, 2012 2:07 pm
by Antonio Linares
Pere,

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

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

Posted: Sat Nov 03, 2012 12:23 pm
by Antonio Linares
Comenzada la Clase TButton, nuevo ejemplo samples/tutor03.prg

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

Image

Code: Select all | Expand

// 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
All times are UTC
Page 3 of 19

Powered by phpBB® Forum Software © phpBB Limited