PBMiner

$PBExportHeader$u_controls_dwlv.sru
forward
global type u_controls_dwlv from u_explorer
end type
type cbx_3 from u_cbx within u_controls_dwlv
end type
type cb_1 from u_cb within u_controls_dwlv
end type
type cbx_2 from u_cbx within u_controls_dwlv
end type
type cbx_1 from u_cbx within u_controls_dwlv
end type
type dw_1 from u_dwlv within u_controls_dwlv
end type
type uo_1 from u_borderpanel within u_controls_dwlv
end type
end forward

global type u_controls_dwlv from u_explorer
cbx_3 cbx_3
cb_1 cb_1
cbx_2 cbx_2
cbx_1 cbx_1
dw_1 dw_1
uo_1 uo_1
end type
global u_controls_dwlv u_controls_dwlv

on u_controls_dwlv.create
int iCurrent
call super::create
this.cbx_3=create cbx_3
this.cb_1=create cb_1
this.cbx_2=create cbx_2
this.cbx_1=create cbx_1
this.dw_1=create dw_1
this.uo_1=create uo_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_3
this.Control[iCurrent+2]=this.cb_1
this.Control[iCurrent+3]=this.cbx_2
this.Control[iCurrent+4]=this.cbx_1
this.Control[iCurrent+5]=this.dw_1
this.Control[iCurrent+6]=this.uo_1
end on

on u_controls_dwlv.destroy
call super::destroy
destroy(this.cbx_3)
destroy(this.cb_1)
destroy(this.cbx_2)
destroy(this.cbx_1)
destroy(this.dw_1)
destroy(this.uo_1)
end on

type cbx_3 from u_cbx within u_controls_dwlv
integer x = 1408
integer y = 32
integer width = 535
string text = "Fixed Header Height"
end type

event clicked;call super::clicked;dw_1.#FixedHeaderHeight = Checked
cbx_1.Checked = FALSE
cbx_2.Checked = FALSE
cb_1.Enabled = FALSE
string ls

ls = dw_1.DataObject
dw_1.DataObject = CString.EMPTY
parent.SetRedraw(FALSE)
dw_1.DataObject = ls
dw_1.of_Initdwlv()
dw_1.of_EditMode(FALSE)
parent.SetRedraw(TRUE)
end event

type cb_1 from u_cb within u_controls_dwlv
integer x = 1024
integer y = 16
integer taborder = 20
boolean enabled = false
string text = "Validate"
end type

event clicked;call super::clicked;dw_1.of_ValidateFields()
end event

type cbx_2 from u_cbx within u_controls_dwlv
integer x = 421
integer y = 32
integer width = 535
string text = "Alternate Row Colors"
end type

event clicked;call super::clicked;dw_1.of_Alternaterowcolors(checked)
end event

type cbx_1 from u_cbx within u_controls_dwlv
integer x = 55
integer y = 32
string text = "Edit Mode"
end type

event clicked;call super::clicked;dw_1.of_EditMode(this.checked)
cb_1.Enabled = this.checked
end event

type dw_1 from u_dwlv within u_controls_dwlv
integer x = 384
integer y = 304
integer taborder = 30
string dataobject = "d_employees"
boolean border = false
borderstyle borderstyle = stylebox!
long #sizeorder = -1
boolean #fixedheaderheight = false
end type

type uo_1 from u_borderpanel within u_controls_dwlv
integer x = 37
integer y = 128
integer width = 1609
integer height = 784
integer taborder = 20
boolean #anchortop = true
boolean #anchorleft = true
boolean #anchorright = true
boolean #anchorbottom = true
string #childobject = "dw_1"
boolean #showheader = true
boolean #usetheme = true
integer #themepanelstyle = 1
integer #headerfontsize = 11
string #headertext = "Employees"
end type

on uo_1.destroy
call u_borderpanel::destroy
end on