FiveTech Software tech support forums

www.FiveTechSoft.com
http://forums.fivetechsoft.com/

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

http://forums.fivetechsoft.com/viewtopic.php?f=6&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


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

#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

#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>, ); ]

 

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


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

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

Powered by phpBB® Forum Software © phpBB Limited