forward
global type n_cst_timing from timing
end type
end forward

global type n_cst_timing from timing
end type
global n_cst_timing n_cst_timing

type variables
w_test2	iw
String	is_message
//Long		il_number
end variables
on n_cst_timing.create
call super::create
TriggerEvent( this, "constructor" )
end on

on n_cst_timing.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

event timer;
iw.st_message.Text = is_message//"Timer № " + String(il_number) //+ String(Now(), "hh:mm:ss")
end event

forward
global type w_test2 from window
end type
type st_message from statictext within w_test2
end type
type sle_count from singlelineedit within w_test2
end type
type cb_stop from commandbutton within w_test2
end type
type cb_start from commandbutton within w_test2
end type
end forward

global type w_test2 from window
integer width =  1440 
integer height =  444 
boolean titlebar = true
string title = "Untitled"
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor =  67108864 
string icon = "AppIcon!"
boolean center = true
st_message st_message
sle_count sle_count
cb_stop cb_stop
cb_start cb_start
end type
global w_test2 w_test2

type variables
n_cst_timing	inv_timing[]
end variables

on w_test2.create
this.st_message=create st_message
this.sle_count=create sle_count
this.cb_stop=create cb_stop
this.cb_start=create cb_start
this.Control[]={this.st_message,&
this.sle_count,&
this.cb_stop,&
this.cb_start}
end on

on w_test2.destroy
destroy(this.st_message)
destroy(this.sle_count)
destroy(this.cb_stop)
destroy(this.cb_start)
end on

type st_message from statictext within w_test2
integer x =  201 
integer y =  52 
integer width =  1125 
integer height =  92 
integer textsize = - 8 
integer weight =  400 
fontcharset fontcharset = russiancharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial CYR"
long textcolor =  33554432 
long backcolor =  67108864 
boolean border = true
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type sle_count from singlelineedit within w_test2
integer x =  55 
integer y =  44 
integer width =  96 
integer height =  100 
integer taborder =  10 
integer textsize = - 8 
integer weight =  400 
fontcharset fontcharset = russiancharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial CYR"
long textcolor =  33554432 
boolean enabled = false
string text = "10"
borderstyle borderstyle = stylelowered!
end type

type cb_stop from commandbutton within w_test2
integer x =  992 
integer y =  192 
integer width =  343 
integer height =  100 
integer taborder =  20 
integer textsize = - 8 
integer weight =  400 
fontcharset fontcharset = russiancharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial CYR"
string text = "Stop"
end type

event clicked;Long	ll_count, i, ll_ret

ll_count = Long(sle_count.Text)
IF ll_count <  1  THEN RETURN  0 

FOR i =  1  TO ll_count
	inv_timing[i].Stop()
	DESTROY inv_timing[i]
NEXT
Close(Parent)
RETURN  1 
end event

type cb_start from commandbutton within w_test2
integer x =  599 
integer y =  188 
integer width =  343 
integer height =  100 
integer taborder =  10 
integer textsize = - 8 
integer weight =  400 
fontcharset fontcharset = russiancharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial CYR"
string text = "Start"
end type

event clicked;Long	ll_count, i, ll_ret
n_cst_timing	lnv_timing


ll_count = Long(sle_count.Text)
IF ll_count <  1  THEN RETURN  0 

FOR i =  1  TO ll_count
	inv_timing[i] = CREATE n_cst_timing
	inv_timing[i].iw = Parent
	inv_timing[i].is_message = "Таймер № " + String(i, "00")
	inv_timing[i].Start(i +  1 )
NEXT
MessageBox("Все ли остановилось?","Подождем-с...")
RETURN  1 
end event