Problem with using TBColumn:ColorBlock - Clipper

Mel

Does you Colorspec have 8 elements or more??

You might show us the code for Column #1 to see what happens there
Also if using Clipper 5.3 you need to return an array with 4 values { 1, 2, 3,
4 }

One way is to put the test in a function (easier to debug as well<g>)
Eg
COL = TBCOLUMNNEW("Amount Owed",{||ITEMAMT-PAYAMT})
COL:COLORBLOCK := {|| ColourMe( B ) }

Function ColourMe( oTB )
local oCol
local anArray

anArray := { 7, 8 }
oCol := oTB:GetColumn(1)
IF Eval( oCol:Block ) = CHR(255)
anArray := { 5, 5 }
ENDIF
RETURN anArray

HTH
Steve

Stephen said

> Does you Colorspec have 8 elements or more??

Yes, I have nine elements

> You might show us the code for Column #1 to see what happens there

Arrgggg ( (I'm very embarassed ..)
I just looked at the col 1 definition and am now very embarassed ! I had
the column 1 block specified wrongly as Picture "###" rather than Picture
"XXX"

Then when I changed my eval block to check for chr(255) $
Eval(....,etc), it worked correctly.

Sorry to put you to all that work. I fussed and fussed and fussed
*until* your note prompted me to look again at the definition for column
1 -- and then saw my error

> Also if using Clipper 5.3 you need to return an array with 4 values { 1,
2, 3,
> 4 }

No, I'm using 5.2e


> One way is to put the test in a function (easier to debug as well<g>)
> Eg
> COL = TBCOLUMNNEW("Amount Owed",{||ITEMAMT-PAYAMT})
> COL:COLORBLOCK := {|| ColourMe( B ) }
>
> Function ColourMe( oTB )
> local oCol
> local anArray
>
> anArray := { 7, 8 }
> oCol := oTB:GetColumn(1)
> IF Eval( oCol:Block ) = CHR(255)
> anArray := { 5, 5 }
> ENDIF
> RETURN anArray
>
> HTH
> Steve
>

This is also a good way for me to use more complex code for later
purposes.

So, it now works perfectly and I Thank yo very much Stephen !

-Mel Smith