Hi all,
i am creating a grid on a form. If the user clicks on the header of a column, i want to execute a procedure. What do i have to do? See syntax below.
thanks
With Thisform
.AddObject("gridz","grid"
ENDWITH
*
With Thisform.gridz
.enabled = .t.
.visible = .t.
.top=230
.left=10
.height=450
.width=800
.allowheadersizing=.F.
.allowrowsizing=.F.
.columncount=9
.deletemark=.F.
.enabled=.T.
.fontbold=.T.
.fontname="Courier New"
.fontsize=8
.headerheight=25
.recordsource="cl_client"
ENDWITH
*
With Thisform.gridz.column1
.columnorder=1
.fontbold=.T.
.fontname="Courier New"
.fontsize=8
.enabled=.T.
.readonly=.F.
.width=100
.header1.alignment=2
.header1.caption="CLIENT"
.header1.fontbold=.T.
.header1.fontname="Courier New"
.header1.fontsize=10
.header1.click ????????????????????
ENDWITH
*
i am creating a grid on a form. If the user clicks on the header of a column, i want to execute a procedure. What do i have to do? See syntax below.
thanks
With Thisform
.AddObject("gridz","grid"
ENDWITH
*
With Thisform.gridz
.enabled = .t.
.visible = .t.
.top=230
.left=10
.height=450
.width=800
.allowheadersizing=.F.
.allowrowsizing=.F.
.columncount=9
.deletemark=.F.
.enabled=.T.
.fontbold=.T.
.fontname="Courier New"
.fontsize=8
.headerheight=25
.recordsource="cl_client"
ENDWITH
*
With Thisform.gridz.column1
.columnorder=1
.fontbold=.T.
.fontname="Courier New"
.fontsize=8
.enabled=.T.
.readonly=.F.
.width=100
.header1.alignment=2
.header1.caption="CLIENT"
.header1.fontbold=.T.
.header1.fontname="Courier New"
.header1.fontsize=10
.header1.click ????????????????????
ENDWITH
*