FiveTech Software tech support forums

Code: Select all

 aCampos := {oDbDiario:Fields( 0):NAME,oDbDiario:Fields( 1):NAME,;
                   oDbDiario:Fields( 2):NAME,oDbDiario:Fields( 3):NAME,;
                   oDbDiario:Fields( 4):NAME,oDbDiario:Fields( 5):NAME,;
                   oDbDiario:Fields( 6):NAME,oDbDiario:Fields( 7):NAME,;
                   oDbDiario:Fields( 8):NAME,oDbDiario:Fields( 9):NAME,;
                   oDbDiario:Fields(10):NAME,oDbDiario:Fields(11):NAME,;
                   oDbDiario:Fields(12):NAME,oDbDiario:Fields(13):NAME,;
                   oDbDiario:Fields(14):NAME,oDbDiario:Fields(15):NAME,;                                                         
                   oDbDiario:Fields(16):NAME,oDbDiario:Fields(17):NAME,;
                   oDbDiario:Fields(18):NAME }
                   
       oLbx := TXBrowse():New( oWChild ) 
       oLbx:SetAdo( oDbDiario, .T.,.T.,aCampos)
    
       WITH OBJECT oLbx
            :lColDividerComplete := .t. 
            :nMarqueeStyle       := 3
            :nColDividerStyle    := 1
            :nHeaderLines        := 2
            :lFooter             := .t.
            :nStretchCol         := 1
            :bClrSelFocus  := { || { CLR_BLACK, aSelGrad } }
            :bClrRowFocus  := { || { CLR_BLACK, aRowGrad } }  
            :bClrStd       := {|| IIF(oDbDiario:AbsolutePosition % 2 == 0,{ CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } )} 
            :CreateFromCode()  
            :Adjust() 
            :l2007 := .T.
       END
    
       for nFor := 1 to len( oLbx:aCols ) 
           oCol := oLbx:aCols[ nFor ] 
           oCol:nEditType := 0 
           oCol:blDClickData := {|| CtrDiario(ID_MOD),oLbx:Gotop(),oLbx:Refresh() }
           If nFor == 3 .or. nFor == 14
              oLbx:aCols[nFor]:cEditPicture := "@D"
           EndIf    
       EndFor
       oLbx:aCols[11]:SetCheck ({"CHECKON","CHECKOFF"} )
       oLbx:aCols[15]:SetCheck ({"CHECKON","CHECKOFF"} )    
       oLbx:aCols[17]:SetCheck ({"CHECKON","CHECKOFF"} )                    
    
       oWChild:oClient := oLbx