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
>>> ADD OBJECT 'text' AS Txtgrdric
>>> ENDDEFINE
>>>
>>>Define Class Myheadric as Header
>>> alignment = 2
>>> Ordine = .f.
>>> 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.
>> EndIf
>>EndProc
>>
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.