PBMiner

$PBExportHeader$u_controls_sheettabs.sru
forward
global type u_controls_sheettabs from u_explorer
end type
type cbx_6 from u_cbx within u_controls_sheettabs
end type
type cbx_5 from u_cbx within u_controls_sheettabs
end type
type cb_3 from u_cb within u_controls_sheettabs
end type
type cb_2 from u_cb within u_controls_sheettabs
end type
type dw_3 from u_dwlv within u_controls_sheettabs
end type
type dw_2 from datawindow within u_controls_sheettabs
end type
type dw_1 from datawindow within u_controls_sheettabs
end type
type cb_1 from u_cb within u_controls_sheettabs
end type
type cbx_icons from u_cbx within u_controls_sheettabs
end type
type cbx_3 from u_cbx within u_controls_sheettabs
end type
type cbx_2 from u_cbx within u_controls_sheettabs
end type
type cbx_1 from u_cbx within u_controls_sheettabs
end type
type rb_3 from u_rb within u_controls_sheettabs
end type
type rb_2 from u_rb within u_controls_sheettabs
end type
type rb_1 from u_rb within u_controls_sheettabs
end type
type uo_sheets from u_sheets within u_controls_sheettabs
end type
type gb_1 from u_gb within u_controls_sheettabs
end type
end forward

global type u_controls_sheettabs from u_explorer
integer width = 2158
integer height = 1464
cbx_6 cbx_6
cbx_5 cbx_5
cb_3 cb_3
cb_2 cb_2
dw_3 dw_3
dw_2 dw_2
dw_1 dw_1
cb_1 cb_1
cbx_icons cbx_icons
cbx_3 cbx_3
cbx_2 cbx_2
cbx_1 cbx_1
rb_3 rb_3
rb_2 rb_2
rb_1 rb_1
uo_sheets uo_sheets
gb_1 gb_1
end type
global u_controls_sheettabs u_controls_sheettabs

on u_controls_sheettabs.create
int iCurrent
call super::create
this.cbx_6=create cbx_6
this.cbx_5=create cbx_5
this.cb_3=create cb_3
this.cb_2=create cb_2
this.dw_3=create dw_3
this.dw_2=create dw_2
this.dw_1=create dw_1
this.cb_1=create cb_1
this.cbx_icons=create cbx_icons
this.cbx_3=create cbx_3
this.cbx_2=create cbx_2
this.cbx_1=create cbx_1
this.rb_3=create rb_3
this.rb_2=create rb_2
this.rb_1=create rb_1
this.uo_sheets=create uo_sheets
this.gb_1=create gb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_6
this.Control[iCurrent+2]=this.cbx_5
this.Control[iCurrent+3]=this.cb_3
this.Control[iCurrent+4]=this.cb_2
this.Control[iCurrent+5]=this.dw_3
this.Control[iCurrent+6]=this.dw_2
this.Control[iCurrent+7]=this.dw_1
this.Control[iCurrent+8]=this.cb_1
this.Control[iCurrent+9]=this.cbx_icons
this.Control[iCurrent+10]=this.cbx_3
this.Control[iCurrent+11]=this.cbx_2
this.Control[iCurrent+12]=this.cbx_1
this.Control[iCurrent+13]=this.rb_3
this.Control[iCurrent+14]=this.rb_2
this.Control[iCurrent+15]=this.rb_1
this.Control[iCurrent+16]=this.uo_sheets
this.Control[iCurrent+17]=this.gb_1
end on

on u_controls_sheettabs.destroy
call super::destroy
destroy(this.cbx_6)
destroy(this.cbx_5)
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.dw_3)
destroy(this.dw_2)
destroy(this.dw_1)
destroy(this.cb_1)
destroy(this.cbx_icons)
destroy(this.cbx_3)
destroy(this.cbx_2)
destroy(this.cbx_1)
destroy(this.rb_3)
destroy(this.rb_2)
destroy(this.rb_1)
destroy(this.uo_sheets)
destroy(this.gb_1)
end on

type cbx_6 from u_cbx within u_controls_sheettabs
integer x = 750
integer y = 1296
integer width = 489
string text = "Highlight Selected"
boolean #anchorbottom = true
end type

event clicked;call super::clicked;uo_sheets.#HighlightSelected = Checked
uo_sheets.of_Refresh()
end event

type cbx_5 from u_cbx within u_controls_sheettabs
integer x = 750
integer y = 1208
integer width = 489
string text = "Bold Selected Text"
boolean checked = true
boolean #anchorbottom = true
end type

event clicked;call super::clicked;uo_sheets.#BoldSelectedText = Checked
uo_sheets.of_Refresh()
end event

type cb_3 from u_cb within u_controls_sheettabs
integer x = 1280
integer y = 1064
integer taborder = 60
string text = "Close Tab"
boolean #anchorbottom = true
end type

event clicked;call super::clicked;uo_sheets.of_CloseTab(uo_sheets.of_TotalItems())
end event

type cb_2 from u_cb within u_controls_sheettabs
integer x = 1280
integer y = 948
integer taborder = 50
string text = "Dynamic Tab"
boolean #anchorbottom = true
end type

event clicked;call super::clicked;long ll

IF cbx_icons.Checked THEN
   ll = Rand(CResource.TOTAL_ALL)
   uo_sheets.of_Opentab("Something else", "u_controls_splitcontainer_child", ll)
ELSE
   uo_sheets.of_Opentab("Something else", "u_controls_splitcontainer_child")
END IF

uo_sheets.of_refresh()
end event

type dw_3 from u_dwlv within u_controls_sheettabs
boolean visible = false
integer x = 1189
integer y = 352
integer taborder = 50
string dataobject = "d_employees"
boolean border = false
end type

type dw_2 from datawindow within u_controls_sheettabs
boolean visible = false
integer x = 1097
integer y = 272
integer width = 686
integer height = 400
integer taborder = 40
string title = "none"
string dataobject = "d_2tv"
boolean border = false
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_1 from datawindow within u_controls_sheettabs
boolean visible = false
integer x = 1006
integer y = 192
integer width = 686
integer height = 400
integer taborder = 30
string title = "none"
string dataobject = "d_2toolbar"
boolean border = false
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type cb_1 from u_cb within u_controls_sheettabs
integer x = 1280
integer y = 832
integer taborder = 40
string text = "Add Tabs"
boolean #anchorbottom = true
end type

event clicked;call super::clicked;uo_sheets.of_CloseAlltabs( )

long ll

IF cbx_icons.Checked THEN
   uo_sheets.of_Addtabs( &
         {"This is one", "And then another", "And another"}, &
         {dw_1, dw_2, dw_3}, &
         {Rand(CResource.TOTAL_ALL), Rand(CResource.TOTAL_ALL), Rand(CResource.TOTAL_ALL)})
ELSE
   uo_sheets.of_Addtabs( &
         {"This is one", "And then another", "And another"}, &
         {dw_1, dw_2, dw_3})
END IF
end event

type cbx_icons from u_cbx within u_controls_sheettabs
integer x = 750
integer y = 1112
integer width = 347
string text = "Draw Icons"
boolean #anchorbottom = true
end type

type cbx_3 from u_cbx within u_controls_sheettabs
integer x = 750
integer y = 1024
integer width = 347
string text = "Show Border"
boolean checked = true
boolean #anchorbottom = true
end type

event clicked;call super::clicked;uo_sheets.of_ShowBorder(Checked)
end event

type cbx_2 from u_cbx within u_controls_sheettabs
integer x = 750
integer y = 936
string text = "Show Tabs"
boolean checked = true
boolean #anchorbottom = true
end type

event clicked;call super::clicked;uo_sheets.of_ShowTabs(Checked)
end event

type cbx_1 from u_cbx within u_controls_sheettabs
integer x = 750
integer y = 848
string text = "Bottom Tabs"
boolean checked = true
boolean #anchorbottom = true
end type

event clicked;call super::clicked;uo_sheets.of_Bottomtabs(checked)
end event

type rb_3 from u_rb within u_controls_sheettabs
integer x = 128
integer y = 1088
integer width = 521
string text = "VS 2005 (not quite)"
boolean #anchorbottom = true
end type

event clicked;call super::clicked;uo_sheets.of_SetTabStyle(3)
end event

type rb_2 from u_rb within u_controls_sheettabs
integer x = 128
integer y = 1000
string text = "Tabs"
boolean #anchorbottom = true
end type

event clicked;call super::clicked;uo_sheets.of_SetTabStyle(2)
end event

type rb_1 from u_rb within u_controls_sheettabs
integer x = 128
integer y = 912
string text = "Excel"
boolean checked = true
boolean #anchorbottom = true
end type

event clicked;call super::clicked;uo_sheets.of_SetTabStyle(1)
end event

type uo_sheets from u_sheets within u_controls_sheettabs
integer x = 37
integer y = 32
integer width = 2085
integer height = 720
integer taborder = 20
boolean #anchortop = true
boolean #anchorleft = true
boolean #anchorright = true
boolean #anchorbottom = true
boolean #bottomtabs = true
boolean #highlightselected = false
end type

on uo_sheets.destroy
call u_sheets::destroy
end on

type gb_1 from u_gb within u_controls_sheettabs
integer x = 73
integer y = 816
integer width = 613
integer height = 388
integer taborder = 30
string text = "Tab Style"
borderstyle borderstyle = stylebox!
boolean #anchorbottom = true
end type