Tengo un pequeño problema en una ventana mdichild, no logro que el xbrowse se ajuste con el splitter
este es mi codigo
- Code: Select all Expand view RUN
DEFINE WINDOW aWChild[1] MDICHILD OF oWndPrinc ;
TITLE "Listado de Recaudaciones" ;
FONT oWndPrinc:oFont ;
ICON oIconReca ;
COLOR CLR_BLACK, CLR_NBLUE
@ -1, -1 OUTLOOK oOut ;
SIZE 100, aWChild[1]:nHeight() ;
FONT aWChild[1]:oFont ;
PIXEL ;
OF aWChild[1]
DEFINE GROUP OF OUTLOOK oOut PROMPT "&Departamentos"
DEFINE BITMAP OF OUTLOOK oOut ;
GROUP 1 RESOURCE "Recauda" ;
PROMPT "Recaudación" ;
TOOLTIP "Recaudaciones de Unidades"
WITH OBJECT oBrw := TXBrowse():New( aWChild[1] )
:SetMySQL(@oTable)
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:nColDividerStyle := LINESTYLE_RAISED
:SetColor(CLR_BLACK, RGB(255,255,235))
:bClrSelFocus := {|| { CLR_WHITE, RGB(24, 116, 205) } }
:nFreeze := 4
:nHeaderLines := 2
:lColDividerComplete := .t.
WITH OBJECT :AddCol()
:bStrData := { || FormFec('[DDD]/[MMM]/[AA]', oTable:Fecha) }
:cHeader := "Fecha de" + CRLF + "Recaudación"
:nHeadStrAlign := AL_CENTER
:nDataStrAlign := AL_CENTER
:nWidth := 80
END
WITH OBJECT :AddCol()
:bStrData := { || oTable:Recaudador }
:cHeader := "Nombre de" + CRLF + "Recaudadora"
:nHeadStrAlign := AL_CENTER
:nDataStrAlign := AL_LEFT
:nWidth := 150
END
END
@ 0, 100 SPLITTER oSpl1 ;
VERTICAL ;
PREVIOUS CONTROLS oOut ;
HINDS CONTROLS oBrw ;
LEFT MARGIN 70 ;
RIGHT MARGIN 200 ;
SIZE 4, 1000 PIXEL ;
OF aWChild[1] ;
_3DLOOK UPDATE
oBrw:CreateFromCode()
aWChild[1]:oLeft() := oOut
//aWChild[1]:oRight() := oBrw
aWChild[1]:oClient := oBrw
ACTIVATE WINDOW aWChild[1] MAXIMIZED ;
ON RESIZE ( oSpl1:AdjRight()) ;
VALID ((aWChild[1] := Nil, SalirC(oIni)), .T. )
y esto es lo que obtengo
[img]
[/img]en la figura no se ve bien el splitter, he probado con:
ospl1:Adjust(.f., .f., .t., .t.)
ospl1:AdjRight()
ospl1:adjLeft()
y nada he visto que en otras aplicaciones si se ajusta, que es lo que estoy haciendo mal, alguien me podria orientar
De antemano muchas gracias
Saludos
Marco A. Delgado
