forward
global type w_demo from window
end type
type cb_5 from commandbutton within w_demo
end type
type cb_4 from commandbutton within w_demo
end type
type cb_3 from commandbutton within w_demo
end type
type cb_2 from commandbutton within w_demo
end type
type cb_1 from commandbutton within w_demo
end type
type dw_1 from datawindow within w_demo
end type
end forward

global type w_demo from window
integer width = 3168
integer height = 1876
boolean titlebar = true
string title = "Demo window"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_5 cb_5
cb_4 cb_4
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
dw_1 dw_1
end type
global w_demo w_demo

on w_demo.create
this.cb_5=create cb_5
this.cb_4=create cb_4
this.cb_3=create cb_3
this.cb_2=create cb_2
this.cb_1=create cb_1
this.dw_1=create dw_1
this.Control[]={this.cb_5,&
this.cb_4,&
this.cb_3,&
this.cb_2,&
this.cb_1,&
this.dw_1}
end on

on w_demo.destroy
destroy(this.cb_5)
destroy(this.cb_4)
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.dw_1)
end on

event open;dw_1.settransobject(sqlca)
end event

type cb_5 from commandbutton within w_demo
integer x = 1792
integer y = 1600
integer width = 402
integer height = 112
integer taborder = 60
integer textsize = -10
integer weight = 400
fontcharset fontcharset = greekcharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Export"
end type

event clicked;dw_1.saveas()
end event

type cb_4 from commandbutton within w_demo
integer x = 1353
integer y = 1600
integer width = 402
integer height = 112
integer taborder = 50
integer textsize = -10
integer weight = 400
fontcharset fontcharset = greekcharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Delete"
end type

event clicked;dw_1.deleterow(dw_1.getrow())
end event

type cb_3 from commandbutton within w_demo
integer x = 914
integer y = 1600
integer width = 402
integer height = 112
integer taborder = 40
integer textsize = -10
integer weight = 400
fontcharset fontcharset = greekcharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Insert"
end type

event clicked;dw_1.insertrow(0)
end event

type cb_2 from commandbutton within w_demo
integer x = 475
integer y = 1600
integer width = 402
integer height = 112
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = greekcharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Save"
end type

event clicked;dw_1.update()
end event

type cb_1 from commandbutton within w_demo
integer x = 37
integer y = 1600
integer width = 402
integer height = 112
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = greekcharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Retrieve"
end type

event clicked;dw_1.retrieve()
end event

type dw_1 from datawindow within w_demo
integer y = 32
integer width = 3072
integer height = 1472
integer taborder = 10
string title = "none"
string dataobject = "dw_demo"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

