Ajustes de posicionamiento en la ventana

Board index FiveWin para Harbour/xHarbour Ajustes de posicionamiento en la ventana

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Ajustes de posicionamiento en la ventana
Posted: Fri Feb 11, 2011 09:41 AM

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 (fw): Select all Collapse

#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 (fw): Select all Collapse

oWnd:oBottom:= oTab

por

Code (fw): Select all Collapse

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

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

José Luis Sánchez

Posts: 564

Joined: Thu Oct 13, 2005 09:23 AM

Re: Ajustes de posicionamiento en la ventana
Posted: Fri Feb 11, 2011 10:12 AM

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

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: Ajustes de posicionamiento en la ventana
Posted: Fri Feb 11, 2011 10:25 AM

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

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

Bayron

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

Re: Ajustes de posicionamiento en la ventana
Posted: Fri Feb 11, 2011 11:38 AM

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

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

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: Ajustes de posicionamiento en la ventana
Posted: Fri Feb 11, 2011 12:01 PM

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

Angel

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: Ajustes de posicionamiento en la ventana
Posted: Fri Feb 11, 2011 02:53 PM

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

Code (fw): Select all Collapse

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

Y listos!

Angel

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

FiveTech Support Forums

Continue the discussion