>>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 >> >>>>
>Procedure init > If Version(5) >= 900 > this.Parent.Parent.themes = .f. && Set Grid Themes to .f. > EndIf >EndProc >