how to align xbrowse lines?

[shark]

Code: Select all  Expand view  RUN

aMainPanelCtrl[ "MAIN_OBRWREM" ] := TXBrowse():New( aMainPanelCtrl[ "MAIN_OFOLDER" ]:aDialogs[ RemRetGetDialog( "REM" ) ] )

aMainPanelCtrl[ "MAIN_OBRWREM" ]:SetArray( aMainPanelCtrl[ "MAIN_ABRWREM" ] )

aMainPanelCtrl[ "MAIN_OBRWREM" ]:oFont               := oFontLuc
aMainPanelCtrl[ "MAIN_OBRWREM" ]:oDataSelFont        := oFontLucB
aMainPanelCtrl[ "MAIN_OBRWREM" ]:nMarqueeStyle       := MARQSTYLE_HIGHLROW
aMainPanelCtrl[ "MAIN_OBRWREM" ]:nColDividerStyle    := 2
aMainPanelCtrl[ "MAIN_OBRWREM" ]:nRowDividerStyle    := 2
aMainPanelCtrl[ "MAIN_OBRWREM" ]:nHeaderLines        := 1
aMainPanelCtrl[ "MAIN_OBRWREM" ]:nDataLines          := 4
aMainPanelCtrl[ "MAIN_OBRWREM" ]:nTop                := 10
aMainPanelCtrl[ "MAIN_OBRWREM" ]:nLeft               := 5
aMainPanelCtrl[ "MAIN_OBRWREM" ]:nBottom             := aMainPanelCtrl[ "MAIN_OFOLDER" ]:aDialogs[ RemRetGetDialog( "REM" ) ]:nHeight - 38
aMainPanelCtrl[ "MAIN_OBRWREM" ]:nRight              := aMainPanelCtrl[ "MAIN_OFOLDER" ]:nRight - 10
aMainPanelCtrl[ "MAIN_OBRWREM" ]:bClrStd             := {|| { CLR_BLACK, IF( MOD( aMainPanelCtrl[ "MAIN_OBRWREM" ]:nArrayAt, 2 ) == 0, _PARM_BRWCLR[1], _PARM_BRWCLR[2] ) } }
aMainPanelCtrl[ "MAIN_OBRWREM" ]:bClrSel             := {|| { CLR_WHITE, CLR_BLACK } }
aMainPanelCtrl[ "MAIN_OBRWREM" ]:nStretchCol         := STRETCHCOL_LAST
aMainPanelCtrl[ "MAIN_OBRWREM" ]:cFileSaveWidth      := _PATH_TRM + "BRW_MAIN_REM.CFG"
aMainPanelCtrl[ "MAIN_OBRWREM" ]:lRecordSelector     := .F.
aMainPanelCtrl[ "MAIN_OBRWREM" ]:cToolTip            := "Listagem de Boletos Aguardando Remessa " + CRLF + CRLF + "Clique na primeira coluna para selecionar ou faça duplo clique para VISUALIZAR o boleto."
aMainPanelCtrl[ "MAIN_OBRWREM" ]:blDblClick          := {|| MainRemRetView( "REM" ) }
aMainPanelCtrl[ "MAIN_OBRWREM" ]:bKeyDown            := {|nKey| IF( nKey == VK_RETURN, MainRemRetView( "REM" ), NIL ) }
aMainPanelCtrl[ "MAIN_OBRWREM" ]:bChange             := NIL
aMainPanelCtrl[ "MAIN_OBRWREM" ]:SetColor( CLR_BLACK, _PARM_BRWCLR[1] )

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_SEL ]:cHeader := " "
aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_SEL ]:AddResource("Bmp_CheckOn"  )
aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_SEL ]:AddResource("Bmp_CheckOff" )
aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_SEL ]:bBmpData       := { || RemRetBmpSel( "REM" ) }
aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_SEL ]:nDataBmpAlign  := AL_CENTER
aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_SEL ]:bStrData       := NIL
aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_SEL ]:bLClickData    := {|| RemRetClickSelect( "REM" ) }

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_DAT ]:cHeader      := "Datas"

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_BOM ]:lHide        := .T.

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_NUM ]:cHeader      := "Número"
aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_NUM ]:nHeadStrAlign:= AL_CENTER

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_BCO ]:lHide        := .T.

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_NNU ]:cHeader      := "Nosso Número"
aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_NNU ]:nHeadStrAlign:= AL_CENTER

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_VAL ]:cHeader      := "Valor R$"
aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_VAL ]:nHeadStrAlign:= AL_CENTER

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_MAT ]:lHide        := .T.

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_NOM ]:cHeader      := "Aluno"
aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_NOM ]:nHeadStrAlign:= AL_CENTER

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_USU ]:cHeader      := "Usuário"
aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_USU ]:nHeadStrAlign:= AL_CENTER

aMainPanelCtrl[ "MAIN_OBRWREM" ]:aCols[ REM_COD ]:lHide        := .T.

aMainPanelCtrl[ "MAIN_OBRWREM" ]:CreateFromCode()