>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