FiveTech Support Forums

   oLbx := TXoLbxse():New( oDlgoLbx )



    oLbx:nColDividerStyle  := LINESTYLE_RAISED  //LINESTYLE_BLACK
    oLbx:nRowDividerStyle  := LINESTYLE_RAISED // LINESTYLE_BLACK
    oLbx:nMarqueeStyle     := MARQSTYLE_HIGHLROW  //MARQSTYLE_HIGHLROWRC // con otree no deja salir del formulario
    if memvar->x_brom2007;oLbx:l2007 := .T.;else;oLbx:l2007 := .F.;endif

    oLbx:bClrFooter   := { || { 0,0 } }   // antes   0,0
    oLbx:bClrSelFocus := { || { 0,0 } }   //{ || { 16777215,16288063 } }
    oLbx:bClrSelFocus = { || { CLR_BLACK,X_BROFOCU } }  

    oLbx:Setcolor(CLR_BLACK,X_BROFOND)     //oLBx:SetColor(CLR_BLACK, RGB(255,255,235))


    oLbx:nRecSelColor := 16745090   // coloca el selector si lRecordSelector es .t.
    oLbx:lFastEdit  := .F.
    oLbx:nHeaderHeight := X_BALTHED //25  35
    oLbx:nFooterHeight := X_BALTFOT  //25 35
    oLbx:nRowHeight    := X_BALTROW //22

    aClrCol := { { CLR_BLACK, X_BROPAN1 }, {CLR_BLACK, X_BROPAN2 } }  //{ { 0, 16579010 }, { 0, 16777215 } }
    oLbx:bClrStd := { || aClrCol[ oLbx:KeyNo % 2 + 1 ] }



    oCol := oLbx:AddCol()
    oCol:bStrData  := { || ::oDbfxls:Fields("planta"):value }
    oCol:cHeader   := "Codigo"
    oCol:cFooter  := " "
    oCol:nWidth   := 60 
    oCol:nHeadStrAlign := AL_LEFT    //AL_RIGHT  AL_CENTER
    oCol:nDataStrAlign := AL_LEFT 

 
    oCol := oLbx:AddCol()
    oCol:bStrData := { || ::oDbfxls:Fields("nombre"):value }
    oCol:cHeader  := "Nombre"
    oCol:cFooter  := " "
    oCol:nWidth   := 360 

    oCol := oLbx:AddCol()
    oCol:AddResource("CHECK_SI")
    oCol:AddResource("CHECK_NO")
    oCol:bBmpData      := { || iif(::oDbfxls:Fields("status"):value=1, 1, 2) }
    oCol:bStrData := { || IIF(::oDbfxls:Fields("status"):value=1, "Si","No") }
    oCol:cHeader  := "Status"
    oCol:cFooter  := " "
    oCol:nWidth   := 60 
    oCol:nHeadStrAlign := AL_LEFT 
    oCol:nDataStrAlign := AL_LEFT 

    oLbx:oFont   := ::oBrwFont  //oLbx:SetFont( oBrwFont )

  
   i := 1
   FOR i := 1 TO LEN( oLbx:aCols )
    WITH OBJECT oLbx:aCols[i]
      oLbx:aCols[i]:oHeaderFont := ::oHeadFont
      oLbx:aCols[i]:oFooterFont := ::oFootFont
 END
  NEXT
  Endif
 
       oLbx:SetAdo(::oDbfxls)  //oLbx:SetRDD()
    oLbx:CreateFromResource( 4001 )
    oDlgoLbx:oClient := oLbx