FiveTech Software tech support forums

... color oLbxin:setColor( {14}, {{ CLR_HEADERTOP, CLR_HEADERBOT }} ) // degraded headers background color // Show alternating color in rows lClrFlag:=.f. oLbxin:bSkip := {|nRecs| nRecs := oInv:skipper( nRecs) } oLbxin:setColor( {2}, {{|| IIF(ADSKeyNo() % 2 == 0, CLR_PANE1, CLR_PANE2 ) }} )

... := LINESTYLE_BLACK oBrw5:lColDividerComplete := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) oCol := oBrw5:aCols[ nFor ] oBrw5:bSkip:={| nRecs | ( if(nRecs == nil, nRecs := 1,), ; nRecs:= (1)->(dbskipper( ...

... --------------------------- FUNCTION PROG_4(oDlg,aCtrl,nPage,aCors) LOCAL oFile1, oBrw5 LOCAL oFilter, oSUCH, aSCOPE, oINDKEY LOCAL oOemAnsi, lClrFlag :=.f. LOCAL nSCOPE := 1 LOCAL cFilter := SPACE( 70 ) LOCAL cFELD := "", l_INDEX := .F. LOCAL lOemAnsi := .T., cOemAnsi := "" LOCAL cFile1 := ...

... := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:lOemToAnsi := lOemAnsi // New OemToAnsi oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) // Error-Message // NO WORKAREA in USE !!!! // as a ARRAYS it is OK // ------------------------------------ ...

... work when the number of visible rows is an odd number. Continuous colors can be seen in many ways of navigation. I think you are referring to my lClrFlag method, not the OrdKeyNo() method. The ordKeyNo() should not be affected by the number of rows visible in the browse. With ordKeyNo() and 13 ...

... := LINESTYLE_BLACK oBrw5:lColDividerComplete := .t. oBrw5:nHeaderLines := 1 oBrw5:nDataLines := 1 oBrw5:lAllowColSwapping := .t. oBrw5:SetRDD() lClrFlag:=.f. for nFor := 1 to len( oBrw5:aCols ) oCol := oBrw5:aCols[ nFor ] oBrw5:bSkip:={| nRecs | ; ( if(nRecs == nil, nRecs := 1,),nRecs:= (1)->(dbskipper( ...

AHF,

Here is a skipblock that doesn't use a database object:

oBrw:bSkip:={| nRecs | (nRecs:= (cAlias)->(_dbskipper( nRecs )), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) }

James

... is an undocumented function _dbskipper() that does return the number of records skipped, so perhaps this could be done without a database object.] lClrFlag:=.f. oLbx:bSkip:={| nRecs | (nRecs:= ::oInvmast:skipper( nRecs ), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) } oLbx:nClrPane ...

... background color oLbu1:setColor( {14}, {{ CLR_HEADERTOP, CLR_HEADERBOT }} ) // degraded headers background color // Show alternating color in rows lClrFlag:=.f. oLbu1:bSkip:={| nRecs | (nRecs:= oCod:skipper( nRecs ), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) } oLbu1:setColor( ...