DEFINE CLASS Ric_Col AS Column PROCEDURE INIT DODEFAULT() THIS.REMOVEOBJECT("header1") THIS.ADDOBJECT("header1", "Myheadric") ENDPROCIn your code, you have two (2) header objects created. The default and the new one you created. The active one will probably be the first one in the list of headers. You need to kill the default header, and then create your new one. Enjoy!
>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 > >>