VFW Compilado con FWH 07.12

csincuir · Post by **csincuir** » Sun Dec 21, 2008 1:41 pm

Pues como comentaba anteriormente, en el mensaje http://fivetechsoft.com/forums/viewtopic.php?t=13881 si se puede compilar VFW con la versión de FWH 07.12, y quitando lo referente a xBrowse y la variable nOldOption en el TAB, VFW ya funciona con esta version de FiveWin 7.12, y para muestra un boton... miren la imagen:

Pero si se dan cuenta, en el Object Inpector de la izquierda no hay nada definido ya que estoy utilizando el antiguo Listbox o Browse de FiveWin:

Code: Select all

n := 1

  @ 28, 3 LISTBOX ::oBrw ;
      FIELDS aProps[n][1], aProps[n][2] ;
      HEADERS 'Property', 'Value' ;
      COLSIZES 80, 101 ;
      OF Self ;
      SIZE 203, ::nHeight - 82 PIXEL

   ::oBrw:bGotop    := { || n := 1 }
   ::oBrw:bGoBottom := { || n := EVAL( ::oBrw:bLogicLen ) }
   ::oBrw:bSkip     := { | nNuevo, nViejo | nViejo := n , n += nNuevo,;
      n := MAX( 1, MIN( n, EVAL( ::oBrw:bLogicLen ))),;
      n - nViejo }
   ::oBrw:bLogicLen := { || LEN( aProps ) }
   ::oBrw:cAlias    := "Array"

Que sustituye la definicion del xBrowse que tiene actualmente el programa Inspect.prg

Code: Select all

   @ 28, 3 XBROWSE ::oBrw ;
      FIELDS ::oBrw:aRow:cName, { |x| ::oBrw:aRow:Value( x ) } ;
      HEADERS 'Property', 'Value' ;
      COLSIZES 80, 101 ;
      ARRAY aProps OF Self ;
      PIXEL SIZE 203, ::nHeight - 82 ;
      ON CHANGE SetEditType( ::oBrw )

   ::oBrw:bClrStd          = { || If( ( ::oBrw:nArrayAt % 2 ) == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
   ::oBrw:bClrSel          = { || If( ( ::oBrw:nArrayAt % 2 ) == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
   ::oBrw:nMarqueeStyle    = MARQSTYLE_HIGHLROW
   ::oBrw:nColDividerStyle = LINESTYLE_DARKGRAY
   ::oBrw:aCols[ 1 ]:bLDClickData = { || ::oBrw:aCols[ 2 ]:Edit() }
   ::oBrw:oCol( "Property" ):bLDClickData := { || ::oBrw:Value:Edit() }
   ::oBrw:lRecordSelector = .F.

   ::oBrw:CreateFromCode() 
   ::oBrw:SetColor( 0, RGB( 224, 236, 255 ) )

Por lo que me pregunto:
No sera mejor que se utilice el Browse original de FiveWin, para que cualquier versión de FWH pueda generar el IDE de FiveWin?

Cuantos utilizan actualmente el xBrowse en sus prigramas actuales?

Ya que como les digo, solo cambie la definición del xBrowse en el inspect.prg por la el Listbox, y en el programa code.prg puse como comentario la linea que hace referencia al nOldOption:

Code: Select all

//----------------------------------------------------------------------------//

METHOD SetOption( nOption, nOldOption ) CLASS TWndCode

   if Len( ::aSources ) > 1 .and. nOption != nOldOption
      //::aSources[ nOldOption ]:Hide()
      ::oClient = ::oActiveEdit := ::aSources[ nOption ]
      ::aSources[ nOption ]:Show()
      ::ReSize()
   endif
   
return nil

Y listo!! VisualFw.Exe funciona sin problemas...bueeeeno pues, sin el "Object Inspector" de la izquierda, pero igual, creo que se puede hacer funcionar.

Bueno, no se que diga Antonio sobre esto, ya que la otra opcion que le decía a Antonio era la de proporcionar la mas reciente versión de xBrowse con los fuentes de VFW http://fivetechsoft.com/forums/viewtopic.php?t=13948, pero creo que esto llevaría mas cambios que solo enviar el xBrowse.prg y xBrowse.ch

Saludos cordiales.

Carlos Sincuir.

Post by **Antonio Linares** » Sun Dec 21, 2008 2:11 pm

Carlos,

Enhorabuena y gracias por hacerlo

Te vamos a proporcionar de forma privada el xbrowse actual, y asi igualmente ayudaremos a todos los que se animen a construir el IDE visual y a probarlo, y a colaborar en su desarrollo

csincuir · Post by **csincuir** » Sun Dec 21, 2008 2:43 pm

Gracias Antonio. Estare pendiente.

Por el momento, como ya lo pude hacer funcionar con la versión que tengo 7.12 de FW, ya puedo empezar hacer unas cosas para ayudar un poco en este desarrollo, y esa era mi idea original, al tratar de que VFW funcionara con las versiones anteriores, para que mas se animen a ayudar a que tengamos esta herramienta funcionando lo mas pronto posible.

Saludos cordiales.

Carlos Sincuir

Armando Picon · Post by **Armando Picon** » Sun Dec 21, 2008 6:03 pm

Carlos
Estaría super que pudieras "subir" tu codigo a algún repositorio para ir haciendo las mejores en esa misma línea... Por supuesto que se debería adoptar una nomenclatura diferente a la que está utilizando Antonio, para no confundir versiones.
Saludos

Post by **Antonio Linares** » Sun Dec 21, 2008 9:08 pm

Armando, Carlos,

Si quereis podemos hacer una carpeta 7.12 en el repositorio de Google code.

Armando Picon · Post by **Armando Picon** » Sun Dec 21, 2008 10:30 pm

Antonio...
Depende de Carlos, por mi parte estoy de acuerdo --creo que los que tienen versiones anteriores lo van a recibir con beneplácito---

csincuir · Post by **csincuir** » Mon Dec 22, 2008 1:45 pm

Antonio, Armando.
Yo tambien estoy de acuerdo, solo es que nos indique Antonio como tenemos que hacer para colocar _ en Google Code, que con gusto colocare _ que voy adaptando para la version 7.12, los cuales, les puedo contar que ya logre que aparezcan los valores en el object inspect.

Saludos Cordiales.

Carlos Sincuir

Armando Picon · Post by **Armando Picon** » Mon Dec 22, 2008 2:49 pm

Ok

Antonio, tiene la posta!!!

Post by **Antonio Linares** » Mon Dec 22, 2008 4:35 pm

Carlos,

Tienes que tener una cuenta en gmail y dime el nombre para darte de alta en el repositorio.

csincuir · Post by **csincuir** » Mon Dec 22, 2008 8:37 pm

Antonio, mi cuenta es: sincuir.romero

Carlos.

Post by **Antonio Linares** » Tue Dec 23, 2008 8:15 am

Carlos,

Ya estás dado de alta en google code

http://code.google.com/p/visualfw/

Has usado el SVN ó el Tortoise SVN ?

Aqui te proporcionan la llamada al SVN para hacer un checkout (descarga) del proyecto:

http://code.google.com/p/visualfw/source/checkout

Mike Serra · Post by **Mike Serra** » Tue Dec 23, 2008 10:36 am

Buenos días a todos.

La verdad es que me gustaría aportar mi granito de arena a este proyecto que creo que será importante para nuestra comunidad.

De todas maneras NO se por donde empezar, lo único que he hecho es coger el proyecto y con el fichero de xMate poder compilarlo y poner mi msginfo

.

De todas formas si podeis orientarme en lo que se puede ir haciendo o lo que sea, me gustaría mucho.

Un Saludo,

Miguel Angel.

Post by **Antonio Linares** » Tue Dec 23, 2008 11:19 am

Miguel Angel,

gracias por tu ofreciemiento

De momento te agradecemos si puedes descargarlo e intentar construirlo, gracias!

Mike Serra · Post by **Mike Serra** » Tue Dec 23, 2008 12:05 pm

Ok, Antonio,

¿de dónde me puedo bajar lo último?

Gracias.

csincuir · Post by **csincuir** » Tue Dec 23, 2008 1:19 pm

Antonio.
Gracias por darme de alta en Google Code. Ya instale y configure el SVN, y ya descargué los _ por esta vía.

Ahora te pregunto.
Puedo generar otra carpeta en mi disco, con _ para FW 7.12, y luego al hacer el checkout del SVN generar esa carpeta?

Lo que no quiero es cambiar nada de la versión general.

O tu me diras que es lo que tengo que hacer.

Saludos cordiales.

Carlos Sincuir.