PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show( 1 )
RETURN



DEFINE CLASS form1 AS form


	Top =  0 
	Left =  0 
	Height =  210 
	Width =  375 
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		Alignment =  3 , ;
		Value = (date()), ;
		Height =  23 , ;
		Left =  200 , ;
		Top =  84 , ;
		Width =  100 , ;
		Name = "Text1"


	ADD OBJECT text2 AS textbox WITH ;
		Enabled = .F., ;
		Height =  23 , ;
		Left =  200 , ;
		Top =  132 , ;
		Width =  100 , ;
		Name = "Text2"


	ADD OBJECT text3 AS textbox WITH ;
		Alignment =  3 , ;
		Value = (date()), ;
		Enabled = .F., ;
		Height =  23 , ;
		Left =  200 , ;
		Top =  36 , ;
		Width =  100 , ;
		Name = "Text3"


	ADD OBJECT label1 AS label WITH ;
		Caption = "Введи дату", ;
		Height =  17 , ;
		Left =  90 , ;
		Top =  87 , ;
		Width =  75 , ;
		Name = "Label1"


	ADD OBJECT label2 AS label WITH ;
		Caption = "Сегодня", ;
		Height =  17 , ;
		Left =  93 , ;
		Top =  40 , ;
		Width =  75 , ;
		Name = "Label2"


	ADD OBJECT label3 AS label WITH ;
		Caption = "Осталось дней", ;
		Height =  17 , ;
		Left =  93 , ;
		Top =  135 , ;
		Width =  85 , ;
		Name = "Label3"


	PROCEDURE Load
		Set Date BRITISH
	ENDPROC


	PROCEDURE Init
		this.text1.InteractiveChange()
	ENDPROC


	PROCEDURE text1.InteractiveChange
		With thisform
			.text2.value = .text3.value - .text1.value
			.text2.refresh()
		EndWith
	ENDPROC


ENDDEFINE

проблема в другом, она изложена на первой странице.....