Ajustes de posicionamiento en la ventana

[AngelSalom]

Buenos días, tengo un pequeño problema con el posicionamiento de un objeto en una ventana.
Creo una ventana con una ButtonBar, una ExplorerBar, un Listbox y un Tab. Posiciono automáticamente todos los objetos y el único que se me 'sale' de lugar es el Tab.

Adjunto imagen y código fuente.

Code: Select all  Expand view

#include "fivewin.ch"
Function Main()
   local oWnd, oBar, oBrw, oExplBar, oTab

   use C:\FWH\samples\customer

   define window oWnd title "Test"
   define buttonbar oBar of oWnd
   @ 0,50 Listbox oBrw fields of oWnd
   
   oTab:=TTabs():New( 0,0,{"Opción 1","Opción 2"},,oWnd,,,,.T.,.F.,100,30, "")

   oWnd:oTop   := oBar
   oWnd:oLeft  := buildExbar( oWnd )
   oWnd:oBottom:= oTab
   oWnd:oClient:= oBrw

   activate window oWnd

return nil


Function BuildExbar( oWnd )

   local oExBar, oPanel1, oPanel2, oPanel3, oPanel4, bClick

   // test only
   bClick:={|| msgInfo( "clicked") }

   oExBar = TExplorerBar():New(0,0,150,400,oWnd)

   oPanel1 = oExBar:AddPanel( "One", "c:\fwh\bitmaps\32x32\people.bmp" )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "c:\fwh\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "c:\fwh\bitmaps\16x16\copy.bmp" )

   oPanel2 = oExBar:AddPanel( "Two", "c:\fwh\bitmaps\32x32\case.bmp" )
   oPanel2:AddLink( "First item", bClick, "c:\fwh\bitmaps\16x16\adddbf.bmp" )
   oPanel2:AddLink( "Second item", bClick, "c:\fwh\bitmaps\16x16\delete0.bmp" )
   oPanel2:AddLink( "Third item", bClick, "c:\fwh\bitmaps\16x16\envelope.bmp" )
   oPanel2:AddLink( "Fourth item", bClick, "c:\fwh\bitmaps\16x16\copy.bmp" )

   oPanel3 = oExBar:AddPanel( "Three", "c:\fwh\bitmaps\32x32\graphics.bmp" )
   oPanel3:AddLink( "First item", bClick, "c:\fwh\bitmaps\16x16\adddbf.bmp" )
   oPanel3:AddLink( "Second item", bClick, "c:\fwh\bitmaps\16x16\delete0.bmp" )
   oPanel3:AddLink( "Third item", bClick, "c:\fwh\bitmaps\16x16\envelope.bmp" )

   oPanel4 = oExBar:AddPanel( "Four", "c:\fwh\bitmaps\32x32\graphics.bmp" )
   oPanel4:AddLink( "First item", bClick, "c:\fwh\bitmaps\16x16\additem.bmp" )
   oPanel4:AddLink( "Second item", bClick, "c:\fwh\bitmaps\16x16\copy.bmp" )
   oPanel4:AddLink( "Third item", bClick, "c:\fwh\bitmaps\16x16\adddbf.bmp" )
   oPanel4:AddLink( "Fourth item", bClick, "c:\fwh\bitmaps\16x16\delete0.bmp" )
   oPanel4:AddLink( "Fifth item", bClick, "c:\fwh\bitmaps\16x16\envelope.bmp" )

return oExBar
 

Aunque el tTab lo creo en la posición 0,0 es indiferente ya que luego se recoloca automáticamente.
También he probado a sustituir

Code: Select all  Expand view

oWnd:oBottom:= oTab

por

Code: Select all  Expand view

oBrw:oBottom:= oTab

pero sigue sin funcionar.
Me gustaría saber si es posible que se alinee con el listbox.

Desde ya, gracias.

Angel Salom
FWH10.11/Habour/BCC582

[José Luis Sánchez]

Hola,
Yo creo que la única manera de solucionar esto es con un Splitter entre el taskbar y la rejilla de datos. Al menos esa es la única manera que he encontrado. Si te descargas el fichero con mi clase TInforme que publiqué ayer verás que en los ejemplos viene la manera de montar ventanas como estas con mi clase TFSDI, que creo que es lo que estás buscando.

Saludos,
José Luis Sánchez

[AngelSalom]

Hola Jose Luis, gracias por la info. Hasta ahora lo he tenido con un splitter, pero estaba buscando la forma de eliminarlo.

Le hecho un vistazo.
Saludos,

Angel

[Bayron]

Angel, quieres eliminarlo o simplemente evitar que el usuario pueda moverlo???

Si el caso es el segundo, usa oSplit:lStatic:= .T.

[AngelSalom]

Trato de eliminarlo ya que me da problemas cuando redimensiono las ventanas.

Angel

[AngelSalom]

Bueeeeno, asunto solucionado.
Después de activar la ventana hago un :

Code: Select all  Expand view

oTab:nLeft:=oBrw:nLeft; oTab:Refresh()

Y listos!

Angel