>Hi. I have code in a method that reads someething like:
>ThisForm.pgItems.conItems.grdQuoteList.Column9.visible = .t.
>
>When I run the code, I get the message that Column9 is not found.
>
>Does anyone have any ideas how I can make column9 visible (with no error).
>
>Thanks, Randy
You might find this handy. A popup menu if you rightclick on a header.
DEFINE CLASS BaseHeader AS HEADER
PROCEDURE RIGHTCLICK
LOCAL laMenu[4], loShortCutMenu AS menulib OF Utility
laMenu[1] = "\<Hide Column"
laMenu[2] = "\<Show All Columns"
laMenu[3] = "\-"
laMenu[4] = "E\<xit Menu"
loShortCutMenu = CREATEOBJECT("menulib")
loShortCutMenu.ShowMenu(@laMenu)
DO CASE
CASE BAR() = 1
THIS.PARENT.VISIBLE = .F.
CASE BAR() = 2
FOR EACH oColumn AS COLUMN IN THIS.PARENT.PARENT.COLUMNS
oColumn.VISIBLE = .T.
ENDFOR
ENDCASE
ENDPROC
ENDDEFINE