Acabamos de publicar una versi贸n revisada de FWH 13.07 (en 32 y 64 bits)
gracias a todos por la ayuda prestada 
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Nuevo FWH 13.07
Antonio Linares wrote:Asi que este va a ser el c贸digo definitivo. Funciona bien samples/test2003.prg sin necesidad de la funci贸n WinRun() que incluye y funciona bien con FWH 64 tambien
Funciona perfectamante :- )
Respecto al codigo para rpreview , tengo una mejora en el funcionamiento del listview lateral con pocos cambios en el c贸digo que funciona perfectamante :
METHOD Activate() CLASS TPreview
ACTIVATE WINDOW ::oWnd MAXIMIZED ;
ON RESIZE ( ::PaintMeta() , ::ChangeListView() ) ; // a帽adido changelistview()
ON UP ::VScroll( GO_UP ) ;
.....
METHOD ChangeListView() CLASS TPreview
local oRect := ::oWnd:GetCliRect()
local nHeight := oRect:nHeight
local nWidth := oRect:nWidth
::oLvw:nHeight := nHeight - If( ::oWnd:oBar != nil, ::oWnd:oBar:nHeight() - 2,;
::oWnd:oTop:nHeight() ) - ;
If( ::oWnd:oMsgBar != nil, ::oWnd:oMsgBar:nHeight(),;
::oWnd:oBottom:nHeight() )
IF ::oLvw:nLeft == 0
if ::oMeta1:nLeft <= ::oLvw:nWidth
::olvw:hide()
else
::olvw:show()
endif
else
::oLvw:nLeft := nWidth - ::oLvw:nWidth
if ::lTwoPages
if ::oLvw:nLeft <= ::oMeta2:nRight
::oLvw:hide()
else
::oLvw:show()
endif
else
if ::oLvw:nLeft <= ::oMeta1:nRight
::oLvw:hide()
else
::oLvw:show()
endif
endif
endif
::oLvw:refresh()
Return nil
METHOD TwoPages( lMenu ) CLASS TPreview
.....
::oWnd:Refresh()
::PaintMeta()
::ChangelistView() // a帽adido para cambiarlo al activar boton two pages
SetResources( hOldRes )
return nilManuel,
Yo lo veo m谩s como que al seleccionar dos p谩ginas tenemos que ocultar el listview, como hacemos en zoom. Pero no mezclaria una cosa con la otra, porque cuando se va a mostrar no hace falta redimensionarlo porque ya lo est谩.
Igual se me escapa algo, por que lo propones asi ?
Antonio Linares wrote:Manuel,
Yo lo veo m谩s como que al seleccionar dos p谩ginas tenemos que ocultar el listview, como hacemos en zoom. Pero no mezclaria una cosa con la otra, porque cuando se va a mostrar no hace falta redimensionarlo porque ya lo est谩.
Igual se me escapa algo, por que lo propones asi ?
Antonio , en el c贸digo detecto si entran las dos ventanas y el listview , si entran no lo oculto si no entran lo oculto ( coloca la ventana redimensionada a todo el ancho y el alto a mitad de pantalla y pulsa a dos paginas veras que entra todo ) .Puedo tener el listview y las 2 ventanas a la vista .
Se podr铆a poner menos c贸digo en el metodo twopages pero se repetiria la mayor parte del c贸digo del metodo changelistview asi que casi tiene masa sentido as铆 :
Ser铆a algo asi :
METHOD TwoPages( lMenu ) CLASS TPreview
.....
聽::oWnd:Refresh()
聽 聽::PaintMeta()
聽 oRect 聽 聽 聽 聽 聽:= ::oWnd:GetCliRect()
聽 nWidth 聽 聽 聽 聽 := oRect:nWidth
聽 ::oLvw:nLeft := nWidth - 聽::oLvw:nWidth
聽 聽if ::oLvw:nLeft <= ::oMeta2:nRight
聽 聽 聽 聽 聽::oLvw:hide()
聽 聽 聽else
聽 聽 聽::oLvw:show()
聽 聽 聽endif
聽 聽 ::oLvw:refresh()
聽 聽SetResources( hOldRes )
return nil