$PBExportHeader$w_main.srw forward global type w_main from window end type type tab_main from tab within w_main end type type tabpage_picture from u_tabpg_picture within tab_main end type type tabpage_picture from u_tabpg_picture within tab_main end type type tabpage_statictext from u_tabpg_statictext within tab_main end type type tabpage_statictext from u_tabpg_statictext within tab_main end type type tabpage_combotest from u_tabpg_combotest within tab_main end type type tabpage_combotest from u_tabpg_combotest within tab_main end type type tabpage_gradient from u_tabpg_gradient within tab_main end type type tabpage_gradient from u_tabpg_gradient within tab_main end type type tab_main from tab within w_main tabpage_picture tabpage_picture tabpage_statictext tabpage_statictext tabpage_combotest tabpage_combotest tabpage_gradient tabpage_gradient end type type cb_cancel from commandbutton within w_main end type end forward global type w_main from window integer width = 3991 integer height = 2540 boolean titlebar = true string title = "Canvas - Native" boolean controlmenu = true boolean minbox = true boolean maxbox = true boolean resizable = true long backcolor = 67108864 string icon = "AppIcon!" boolean center = true tab_main tab_main cb_cancel cb_cancel end type global w_main w_main on w_main.create this.tab_main=create tab_main this.cb_cancel=create cb_cancel this.Control[]={this.tab_main,& this.cb_cancel} end on on w_main.destroy destroy(this.tab_main) destroy(this.cb_cancel) end on type tab_main from tab within w_main integer x = 37 integer y = 32 integer width = 3845 integer height = 2212 integer taborder = 10 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long backcolor = 67108864 boolean raggedright = true boolean focusonbuttondown = true integer selectedtab = 1 tabpage_picture tabpage_picture tabpage_statictext tabpage_statictext tabpage_combotest tabpage_combotest tabpage_gradient tabpage_gradient end type on tab_main.create this.tabpage_picture=create tabpage_picture this.tabpage_statictext=create tabpage_statictext this.tabpage_combotest=create tabpage_combotest this.tabpage_gradient=create tabpage_gradient this.Control[]={this.tabpage_picture,& this.tabpage_statictext,& this.tabpage_combotest,& this.tabpage_gradient} end on on tab_main.destroy destroy(this.tabpage_picture) destroy(this.tabpage_statictext) destroy(this.tabpage_combotest) destroy(this.tabpage_gradient) end on type tabpage_picture from u_tabpg_picture within tab_main integer x = 18 integer y = 100 integer height = 2096 end type type tabpage_statictext from u_tabpg_statictext within tab_main integer x = 18 integer y = 100 integer height = 2096 end type type tabpage_combotest from u_tabpg_combotest within tab_main integer x = 18 integer y = 100 integer height = 2096 end type type tabpage_gradient from u_tabpg_gradient within tab_main integer x = 18 integer y = 100 integer height = 2096 end type type cb_cancel from commandbutton within w_main integer x = 3547 integer y = 2272 integer width = 334 integer height = 100 integer taborder = 10 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "Cancel" boolean cancel = true end type event clicked;Close(Parent) end event
File: w_main.srw
Size: 3599
Date: Mon, 31 Dec 2018 21:14:38 +0100
Size: 3599
Date: Mon, 31 Dec 2018 21:14:38 +0100
- window w_main(srw)
- tab tab_main
- u_tabpg_picture tabpage_picture
- u_tabpg_statictext tabpage_statictext
- u_tabpg_combotest tabpage_combotest
- u_tabpg_gradient tabpage_gradient
- commandbutton cb_cancel
- tab tab_main