>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.