PBMiner

$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