how to align xbrowse lines?
Posted: Thu Oct 25, 2018 7:07 pm
Code: Select all
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()