Headers always had Click event, but I am not sure if VFP7 can use custom column and header class in Grid. If I remember correctly they were introduced in VFP8.




>the poin is not that Boris, but the act that I cannot click the header but I think to remember that headers do not have click event in VFP7, do them ?
>
>>>I have this class associated to a grid
>>>
>>>

>>>DEFINE CLASS Ric_Col AS Column
>>> 	backcolor = Rgb(192,192,192)
>>> 	fontsize = 8
>>>    ADD OBJECT 'header' AS Myheadric   && puoi utilizzare un Header personalizzato
>>>    ADD OBJECT 'text' AS Txtgrdric   && puoi utilizzare un textBox personalizzato
>>>  ENDDEFINE
>>>
>>>Define Class Myheadric as Header
>>>	alignment = 2
>>>	Ordine	     = .f.  && se vero l'ordine è impostato su questa colonna
>>>	Procedure Click
>>>		If !Empty(this.tag)
>>>			For each oCol in this.Parent.parent.objects
>>>				oCol.controls(1).NoOrder()
>>>			EndFor 	
>>>			this.OkOrder()
>>>		EndIf 	
>>>	EndProc
>>>		
>>>	Procedure OkOrder
>>>		If !this.ordine
>>>			this.ordine = .t.
>>>			Set Order To (this.tag)
>>>			this.Parent.parent.refresh()
>>>			this.BackColor = RGB(255,0,0)
>>>		EndIf
>>>	EndProc
>>>	
>>>	Procedure init
>>>		If Version(5) >= 900
>>>			themes  = .f.
>>>		EndIf 	
>>>
>>>	EndProc
>>>	
>>>	Procedure NoOrder
>>>		this.ordine = .f.
>>>		this.ResetToDefault('BackColor')
>>>	EndProc
>>>		
>>>EndDefine 				
>>>
>>>

>>>
>>>The problem is that I expected something to happen when I click on a header,
>>>but nothing happens while if I run it in VFP9 environment it does !
>>>Where is the problem ? I tried to put the themes property setting in the init event to avoid the processing of properties belonging to the new version but I still have the problem.
>>
>>
>>If there is no typo in your code, you just define a variable named themes in init event of the header class.
>>

>>Procedure init
>>  If Version(5) >= 900
>>     this.Parent.Parent.themes  = .f. && Set Grid Themes to .f.
>>  EndIf
>>EndProc
>>