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:
Que sustituye la definicion del xBrowse que tiene actualmente el programa Inspect.prg
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:
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.
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:
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
@ 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:
//----------------------------------------------------------------------------//
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 nilY 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.
.