Xailer & OZ Software

Tengo una situacion.
Tengo un TOOLBOX dentro de un TFOLDER, pero una de las pestañas de este
tiene demasiado botones y no me lo visualiza,,he estado probando con el
TPAGER, pero realmente no logro ver el scrolling que me debe hacer este al
tener mas controles que el espacio disponible.
WITH OBJECT ::oPag1 := TPager():New( ::oRebar1 )
*:InsertControl( ::oTB1 )
:lAutoScroll := .T.
:nPosition := 1
:Create()
END
WITH OBJECT ::oTB1 := TToolBar():New( ::oPag1 )
:nBtnHeight := 16
:nBtnWidth := 16
:Create()
:AddButton("&Gestión de Ventas", "PuntoVenta",,, "Procesos de Ventas",
{ || ::Pagina(3) } )
:AddSeparator()
:AddButton("&Puntos de Ventas", "PuntoVenta",,, "Puntos de Ventas",
{ || ::oEditUser:SetFocus() } )
:AddSeparator()
:AddButton("Catálogo de Productos", "Nomencla1",,, "Catalogo de
Productos", { || ::Pagina(3) } )
:AddButton("&Tablas y Parámetros", "ApSaldo",,, "Tablas y Parámetros
de Ventas", { || ::oEditUser:SetFocus() } )
:AddButton("Consulta de &Ventas", "AnalSaldo",,, "Consultar las
Ventas", { || ::oEditUser:SetFocus() } )
:AddSeparator()
:AddButton("Análisis de Costos", "Analisis",,, "Analizar el Costos" ,
{ || ::oPaginas:nIndex := 2 } )
:AddButton("Análisis de Ventas", "Buscar1",,, "Analizar las Ventas" ,
{ || ::oPaginas:nIndex := 2 } )
END
WITH OBJECT ::oTools := TRebarBand():New( ::oRebar1)
:oControl := ::oTB1
:Create()
END
Alguna idea mejor?
GRacas de antemanos

Carlos,
vamos a ver... si estás usando una rebar para meter la toolbar, entonces
tienes que poner el TPager en una banda de la rebar, y después tienes que
poner la toolbar dentro del TPager, no en la rebar.
Por otro lado, si no necesitas la rebar, sólo tienes que poner el TPager y
la toolbar dentro de él. Y asegúrate de poner las dimensiones del TPager.
--
Un saludo,
José F. Giménez