Tal vez les distraiga el uso de nClrM, LightColor() y SR_DBRefresh() pueden quitarlas o comentarlas y debe funcionar.
Estos son unos ejemplos del código usado en RC-eXtended:
Code: Select all
--- Muestra el Catalogo Contable
REDEFINE LISTBOX oBrw ;
FIELDS Desp_Cur(hBmp), Desp_Fld1(), Desp_Fld2();
HEADERS "", "Número de Cuenta","Descripción" ;
SIZES 15,110,315 ;
ALIAS (oDCat)->(Alias()) ID 110 OF oDlg
oBrw:nColAct:=2
oBrw:lFirst :=.T.
oBrw:lCellStyle :=.T.
oBrw:lAdjLastCol:=.F.
oBrw:nHeaderHeight:=15
oBrw:nClrForeHead:=CLR_BLUE
oBrw:bChange :={|| Refresca()}
oBrw:bLDblClick:={|| Desp_Mov()}
oBrw:bKeyDown :={|nKey| Val_nKey(nKey)}
oBrw:bRClicked :={|nRow,nCol| Pop_Menu(nRow,nCol,oDlg)}
IF DbSetDriver()<>"SQLRDD"
oBrw:nClrPane:={|| IF((oBrw:cAlias)->(OrdKeyNo())%2==0,nClrB,CLR_LGRAY)}
ENDIF
---
STAT FUNC Desp_Cur(hBmp) // cursor
RETURN (IF(oBrw:lSelect,bBmp,""))
STAT FUNC Desp_Fld1()
RETURN (IF((oDCat)->(IndexOrd())=1,Forma_Cta((oDCat)->CveCta,1),(oDCat)->DesCta))
STAT FUNC Desp_Fld2()
RETURN (IF((oDCat)->(IndexOrd())=1,(oDCat)->DesCta,Forma_Cta((oDCat)->CveCta,1)))
Code: Select all
--- Control del Registro de Pólizas
FOR nI=1 TO 12
REDEFINE LISTBOX oBrw[nI] ;
FIELDS Desp_Fld1(), Desp_Fld2(), Desp_Fld3(), ;
(oDPol)->ConCor, DesI_Deb(), DesI_Hab(), Desp_Sta(aX,oBtn) ;
HEADER "Tipo", "Número", "Fecha", "Concepto", "Debe", "Haber", "S" ;
SIZES 50, 50, 80,279,100,100, 15 ;
ALIAS (oDPol)->(Alias()) ID 110 OF oFld:aDialogs[nI]
oBrw[nI]:lCellStyle :=.T.
oBrw[nI]:lAdjLastCol :=.F.
oBrw[nI]:lDrawFooters:=.T.
oBrw[nI]:nHeaderHeight:=15
oBrw[nI]:nFooterHeight:=15
oBrw[nI]:nClrForeHead:=CLR_BLUE
oBrw[nI]:aJustify :={0,2,2,0,1,1,2}
oBrw[nI]:aFJustify :={2,0,1,0,1,1,2}
oBrw[nI]:bChange :={|| Refr_Ref()}
oBrw[nI]:bLDblClick:={|| Sol_Datos(.F.)}
oBrw[nI]:bKeyDown :={|nKey| Val_nKey(nKey)}
oBrw[nI]:bRClicked :={|nRow,nCol| Pop_Menu(nRow,nCol,oDlg)}
oBrw[nI]:aFooters :={|| {"","",Tran(oT:aTot[1],"9999 ")," Póliza(s) ", ;
Tran(oT:aTot[2],"9999,999,999.99"),Tran(oT:aTot[3],"9999,999,999.99")}}
IF DbSetDriver()<>"SQLRDD"
oBrw[nI]:nClrPane:={|| IF((oDPol)->(OrdKeyNo())%2==0,nClrB,CLR_LGRAY)}
ENDIF
NEXT nI
---