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
>