I am having trouble instantiating a non-visual custom column class. The docs say to use the HeaderClass (and not the grid's MemberClass) property for custom columns but does show an example. (I don't understand why you wouldn't use the grid's Memberclass, since the only child members in a grid are columns) Can someone pls show me an example?

This is what I have so far...

DEFINE CLASS kr_Column AS COLUMN
PROCEDURE INIT
DODEFAULT()
THIS.ADDOBJECT('kr_Text','kr_TextBox')
THIS.CURRENTCONTROL='kr_text'
ENDPROC
ENDDEFINE

DEFINE CLASS kr_TextBox AS TEXTBOX
CURRENT=.F.
ENDDEFINE

TIA,
Larry Long