************************************************** *-- Class: gcheck (f:\rad\vfprc\generall.vcx) *-- ParentClass: checkbox *-- BaseClass: checkbox *-- Time Stamp: 07/08/2006 07:13:01 PM * DEFINE CLASS gcheck AS checkbox Alignment = 0 BackStyle = 0 Caption = ("*******") *-- caption for .t. caption_yes = ("") *-- caption for .f. caption_no = ("") Name = "gcheck" PROCEDURE value_assign LPARAMETERS vNewVal *To do: Modify this routine for the Assign method if !empt(m.vNewVal) and !empt(this.caption_yes) this.caption=this.caption_yes endif if Empty(m.vNewVal) and !empt(this.caption_no) this.caption=this.caption_no endif this.refresh() THIS.Value = m.vNewVal ENDPROC PROCEDURE Init this.value=this.value ENDPROC PROCEDURE Click dodefault() this.refresh() nodefault ENDPROC PROCEDURE InteractiveChange this.value=this.value ENDPROC ENDDEFINE * *-- EndDefine: gcheck **************************************************