Estoy haciendo una ventana con una barra y xbrowse y un splitter
entonces hago esto..
- Code: Select all Expand view RUN
DEFINE WINDOW oWndRecauda OF oPanel1 ;
TITLE "Listado de Recaudaciones" ;
FROM 0,0 TO oPanel1:nBottom, oPanel1:nRight ;
COLOR CLR_BLACK, GetSysColor(15)-RGB(30,30,30) ;
NOSYSMENU
DEFINE SBUTTONBAR oBar2 TOP _3D SIZE 35,35 OF oWndRecauda
oBar2:bLClicked := {|| 0 }
oBar2:bRClicked := {|| 0 }
DEFINE SBUTTON oBtn2[1] OF oBar2 ;
RESOURCE "EXIT", "EXIT" ;
ACTION oWndRecauda:End() ;
MESSAGE " Salir del Listado de Recaudaciones" ;
TOOLTIP "Salir del Listado" ;
LOOK W97 UPDATE
oBrw := TXBrowse():New( oWndRecauda )
oBrw:SetArray(aDatos)
// y el demas codigo........
////
@ 450, 0 SPLITTER oSpl2 ;
HORIZONTAL ;
PREVIOUS CONTROLS oBrw ;
TOP MARGIN 400 ;
BOTTOM MARGIN 180 ;
SIZE 500, 4 PIXEL ;
OF oWndRecauda ;
_3DLOOK
oBrw:CreateFromCode()
oWndRecauda:oClient := oBrw /// Aqui sucede...
oWndRecauda:bResized := {|| oSpl2:Adjust }
ACTIVATE WINDOW oWndRecauda MAXIMIZED ;
ON INIT oBrw:SetFocus()
entonces....se me aparece asi... pero si se dan cuenta ahi esta el splitter.
(con rojo)
[img]
[/img]y he probado poner en el INIT oSpl2:Adjust, oSpl2:AdjTop() y nada, tambien he probado
quitando oWndRecauda:oClient := oBrw o poniendo oWndRecauda:oTop := oBrw y me queda esto
[img]
[/img]Alguien me podira dar una ayudadita, de antemano muchas gracias.
Saludos
Marco A. Delgado.
