>oForm = CREATEOBJECT([form1]) >oForm.Show(1) > >************************************************** >*-- Form: form1 (d:\all_zapl\additional_programs\upgrade\test.scx) >*-- ParentClass: form >*-- BaseClass: form >*-- Time Stamp: 01/30/12 07:51:00 PM >* >DEFINE CLASS form1 AS form > > > DoCreate = .T. > Caption = "Form1" > starttyping = .F. > Name = "Form1" > > > ADD OBJECT text1 AS textbox WITH ; > Value = ("ClaimNo./Claimant"), ; > Height = 23, ; > Left = 162, ; > Top = 39, ; > Width = 171, ; > ForeColor = RGB(192,192,192), ; > Name = "Text1" > > > PROCEDURE text1.KeyPress > LPARAMETERS nKeyCode, nShiftAltCtrl > > NODEFAULT > IF nKeyCode > 31 AND NOT thisform.Starttyping > thisform.Starttyping = .t. > this.ForeColor = RGB(0,0,0) > this.Value = CHR(nKeyCode) > this.SelStart = 1 > RETURN > ENDIF > > DODEFAULT(nKeyCode, nShiftAltCtrl) > > IF EMPTY(this.Value) > thisform.Starttyping = .f. > this.ForeColor = RGB(192,192,192) > this.Value = "ClaimNo./Claimant" > this.SelStart = 0 > ENDIF > > IF NOT thisform.Starttyping > NODEFAULT > ENDIF > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: form1 >************************************************** > >