PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (c:\temp\textboxvalue.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 10/31/02 04:06:12 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Century = 0, ; Alignment = 3, ; Value = {}, ; Format = "D", ; Height = 23, ; Left = 64, ; Top = 92, ; Name = "Text1" ADD OBJECT label1 AS label WITH ; AutoSize = .T., ; Caption = ("Set CENTURY = " + SET('CENTURY')), ; Height = 17, ; Left = 64, ; Top = 28, ; Width = 112, ; Name = "Label1" ADD OBJECT label2 AS label WITH ; AutoSize = .T., ; Caption = ("Set DATE = " + SET('DATE')), ; Height = 17, ; Left = 64, ; Top = 53, ; Width = 131, ; Name = "Label2" ADD OBJECT command1 AS commandbutton WITH ; Top = 118, ; Left = 64, ; Height = 27, ; Width = 99, ; Caption = "View debugout", ; Name = "Command1" PROCEDURE Load SET CENTURY ON SET DATE AMERICAN SET DEBUGOUT TO DebugDateText.TXT ENDPROC PROCEDURE text1.InteractiveChange IF TYPE('this.value')='U' DEBUGOUT 'This.Value is Missing! '+TIME() ELSE DEBUGOUT TRANSFORM(THIS.VALUE)+' '+TIME() ENDIF ENDPROC PROCEDURE text1.Valid SET DEBUGOUT TO ENDPROC PROCEDURE command1.Click SET DEBUGOUT TO MODIFY FILE DebugDateText.TXT ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************