Perguntas Objeto Tfolder

Pessoal boa tarde,

Sempre usei, programando naquele esquema que a janela do Protheus obtém a resolução automática (com MsAdvSize etc. etc.), como que eu utilizaria um objeto tFolder dentro de um panel, com medidas automáticas?

Alguém poderia me dar uma luz ?

Obrigado!

Private aSize := MsAdvSize()


DEFINE FONT oFntTit NAME "ARIAL" SIZE 0,-12 BOLD
DEFINE FONT oFntInf NAME "ARIAL" SIZE 0,-12
DEFINE FONT oFnt NAME "ARIAL" SIZE 0,-10
DEFINE MSDIALOG oTela FROM 0,0 TO aSize[6],aSize[5] TITLE "GRUPO SHOEBIZ X CONCIL" Of oMainWnd PIXEL
oTela:lEscClose := .F.
oPnlSE1010:= TPanel():New(010,010, "",oTela, NIL, .T., .F., NIL, NIL,310,250, .T., .F. )
oPnlSE1010:NCLRPANE := 14803406
@ 005,015 Say "Registros de Não Vendas Conciliadas - Grupo Shoebiz"Size 200,010 Font oFntTit Color CLR_BLUE Pixel Of oPnlSE1010
@ 025,015 ListBox oBrwSE1010 Var cVar Fields Header "Ok","Registros","DT. Venda","Nr do NSU","Operadora","Bandeiras","Par","Vlr Bruto","Vlr Liqu.","DT Previs","Nr. Cartao","Autorizacao","Loja/Filial";
On dblClick( aDadoSE1[oBrwSE1010:nAT,1] := !aDadoSE1[oBrwSE1010:nAT,1], oBrwSE1010:Refresh(), nTse1 += Iif(aDadoSE1[oBrwSE1010:nAT,1],aDadoSE1[oBrwSE1010:nAT,7],-aDadoSE1[oBrwSE1010:nAT,7]), oTse1:Refresh(), nPse1 += Iif(aDadoSE1[oBrwSE1010:nAT,1],1 ,-1), oPse1:Refresh() ) Size 295,225 Of oDlg Pixel ColSizes 30,30
oBrwSE1010:bHeaderClick := {| oBrwSE1010,nCol | u_vOrdse1(nCol)}
oBrwSE1010:SetArray(aDadoSE1)
If Len(aDadoSE1) <> 0
oBrwSE1010:bLine := {|| { IIf(aDadoSE1[oBrwSE1010:nAt,1],oOks,oNos), aDadoSE1[oBrwSE1010:nAt,2], aDadoSE1[oBrwSE1010:nAt,3], aDadoSE1[oBrwSE1010:nAt,4],aDadoSE1[oBrwSE1010:nAt,13], aDadoSE1[oBrwSE1010:nAt,5], aDadoSE1[oBrwSE1010:nAt,6], Transform(aDadoSE1[oBrwSE1010:nAt,7],"@E 9,999.99"), Transform(aDadoSE1[oBrwSE1010:nAt,8],"@E 9,999.99"), aDadoSE1[oBrwSE1010:nAt,9], aDadoSE1[oBrwSE1010:nAt,10], aDadoSE1[oBrwSE1010:nAt,11], aDadoSE1[oBrwSE1010:nAt,12] }}
Endif

oPnlAINSTEC:= TPanel():New(010,330, "",oTela, NIL, .T., .F., NIL, NIL,310,250, .T., .F. )
oPnlAINSTEC:NCLRPANE := 14803406
@ 005,015 Say "Registros de Não Vendas Conciliadas - CONCIL"Size 200,010 Font oFntTit Color CLR_BLUE Pixel Of oPnlAINSTEC
@ 025,335 ListBox oBrwAINSTEC Var cVar Fields Header "Ok","Registros","DT. Venda","Nr do NSU","Operadora","Bandeiras","Par","Vlr Bruto","Vlr Liqu.","DT Previs","Nr. Cartao","Autorizacao","Loja/Filial";
On dblClick( aDadoAIS[oBrwAINSTEC:nAT,1] := !aDadoAIS[oBrwAINSTEC:nAT,1], oBrwAINSTEC:Refresh(), nTais+=Iif(aDadoAIS[oBrwAINSTEC:nAT,1],aDadoAIS[oBrwAINSTEC:nAT,7],-aDadoAIS[oBrwAINSTEC:nAT,7]), oTais:Refresh(),nPais+=Iif(aDadoAIS[oBrwAINSTEC:nAT,1],1,-1), oPais:Refresh() ) Size 295,225 Of oDlg Pixel ColSizes 30,30
oBrwAINSTEC:bHeaderClick := {| oBrwAINSTEC,nCol| u_Ordais(nCol)}
oBrwAINSTEC:SetArray(aDadoAIS)
If Len(aDadoAIS) <> 0
oBrwAINSTEC:bLine := {|| { IIf(aDadoAIS[oBrwAINSTEC:nAt,1],oOka,oNoa), aDadoAIS[oBrwAINSTEC:nAt,2], aDadoAIS[oBrwAINSTEC:nAt,3], aDadoAIS[oBrwAINSTEC:nAt,4],aDadoAIS[oBrwAINSTEC:nAt,13], aDadoAIS[oBrwAINSTEC:nAt,5], aDadoAIS[oBrwAINSTEC:nAt,6], Transform(aDadoAIS[oBrwAINSTEC:nAt,7],"@E 9,999.99"), Transform(aDadoAIS[oBrwAINSTEC:nAt,8],"@E 9,999.99"), aDadoAIS[oBrwAINSTEC:nAt,9], aDadoAIS[oBrwAINSTEC:nAt,10], aDadoAIS[oBrwAINSTEC:nAt,11], aDadoAIS[oBrwAINSTEC:nAt,12] }}
Endif
oBtnCor:= TButton():New( 265,450, "Corrigir" , oTela , {||},030,012, , , , .T. , , , , { ||})
oBtnCor:BLCLICKED:= {|| nBtn := 1 , oTela:End() }
oBtnSair:= TButton():New( 265,170, "Sair" , oTela , {||},030,012, , , , .T. , , , , { ||})
oBtnSair:BLCLICKED:= {|| nBtn := 4 , oTela:End()}



ACTIVATE DIALOG oTela CENTERED

Valeu Eduardo, muito obrigado!