PBMiner

$PBExportHeader$u_controls_toolbar_dw.sru
forward
global type u_controls_toolbar_dw from u_explorer
end type
type sle_1 from u_sle within u_controls_toolbar_dw
end type
type cb_3 from u_cb within u_controls_toolbar_dw
end type
type cb_2 from u_cb within u_controls_toolbar_dw
end type
type cb_1 from u_cb within u_controls_toolbar_dw
end type
type cbx_4 from u_cbx within u_controls_toolbar_dw
end type
type cbx_3 from u_cbx within u_controls_toolbar_dw
end type
type cbx_2 from u_cbx within u_controls_toolbar_dw
end type
type uo_panel from u_borderpanel within u_controls_toolbar_dw
end type
type dw_employees from u_dwlv within u_controls_toolbar_dw
end type
type cbx_1 from u_cbx within u_controls_toolbar_dw
end type
type rb_5 from u_rb within u_controls_toolbar_dw
end type
type rb_4 from u_rb within u_controls_toolbar_dw
end type
type rb_3 from u_rb within u_controls_toolbar_dw
end type
type rb_2 from u_rb within u_controls_toolbar_dw
end type
type rb_1 from u_rb within u_controls_toolbar_dw
end type
type uo_dwtoolbargroup from u_dwtoolbar_group within u_controls_toolbar_dw
end type
type uo_dwtoolbar3 from u_dwtoolbar within u_controls_toolbar_dw
end type
type uo_dwtoolbar2 from u_dwtoolbar within u_controls_toolbar_dw
end type
type uo_dwtoolbar from u_dwtoolbar within u_controls_toolbar_dw
end type
type gb_1 from u_gb within u_controls_toolbar_dw
end type
type gb_2 from u_gb within u_controls_toolbar_dw
end type
end forward

global type u_controls_toolbar_dw from u_explorer
integer width = 2373
integer height = 1608
event ke_sort ( )
sle_1 sle_1
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
cbx_4 cbx_4
cbx_3 cbx_3
cbx_2 cbx_2
uo_panel uo_panel
dw_employees dw_employees
cbx_1 cbx_1
rb_5 rb_5
rb_4 rb_4
rb_3 rb_3
rb_2 rb_2
rb_1 rb_1
uo_dwtoolbargroup uo_dwtoolbargroup
uo_dwtoolbar3 uo_dwtoolbar3
uo_dwtoolbar2 uo_dwtoolbar2
uo_dwtoolbar uo_dwtoolbar
gb_1 gb_1
gb_2 gb_2
end type
global u_controls_toolbar_dw u_controls_toolbar_dw

type variables
n_base_dropdown inv_dd
end variables

forward prototypes
public subroutine of_updatetheme ()
end prototypes

event ke_sort();dw_employees.of_Showsortarrows()
end event

public subroutine of_updatetheme ();n_svc_mgr lnv_svc
n_svc_theme lnv_t
str_theme lstr

lnv_svc.of_LoadSvc(lnv_t, CSvc.THEME)
lstr = lnv_t.of_GetTheme()

uo_panel.of_settheme(lstr)

this.BackColor = lstr.window
dw_employees.of_SetTheme(lstr)
//gb_1.BackColor = this.BackColor
end subroutine

on u_controls_toolbar_dw.create
int iCurrent
call super::create
this.sle_1=create sle_1
this.cb_3=create cb_3
this.cb_2=create cb_2
this.cb_1=create cb_1
this.cbx_4=create cbx_4
this.cbx_3=create cbx_3
this.cbx_2=create cbx_2
this.uo_panel=create uo_panel
this.dw_employees=create dw_employees
this.cbx_1=create cbx_1
this.rb_5=create rb_5
this.rb_4=create rb_4
this.rb_3=create rb_3
this.rb_2=create rb_2
this.rb_1=create rb_1
this.uo_dwtoolbargroup=create uo_dwtoolbargroup
this.uo_dwtoolbar3=create uo_dwtoolbar3
this.uo_dwtoolbar2=create uo_dwtoolbar2
this.uo_dwtoolbar=create uo_dwtoolbar
this.gb_1=create gb_1
this.gb_2=create gb_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.sle_1
this.Control[iCurrent+2]=this.cb_3
this.Control[iCurrent+3]=this.cb_2
this.Control[iCurrent+4]=this.cb_1
this.Control[iCurrent+5]=this.cbx_4
this.Control[iCurrent+6]=this.cbx_3
this.Control[iCurrent+7]=this.cbx_2
this.Control[iCurrent+8]=this.uo_panel
this.Control[iCurrent+9]=this.dw_employees
this.Control[iCurrent+10]=this.cbx_1
this.Control[iCurrent+11]=this.rb_5
this.Control[iCurrent+12]=this.rb_4
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_dwtoolbargroup
this.Control[iCurrent+17]=this.uo_dwtoolbar3
this.Control[iCurrent+18]=this.uo_dwtoolbar2
this.Control[iCurrent+19]=this.uo_dwtoolbar
this.Control[iCurrent+20]=this.gb_1
this.Control[iCurrent+21]=this.gb_2
end on

on u_controls_toolbar_dw.destroy
call super::destroy
destroy(this.sle_1)
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.cbx_4)
destroy(this.cbx_3)
destroy(this.cbx_2)
destroy(this.uo_panel)
destroy(this.dw_employees)
destroy(this.cbx_1)
destroy(this.rb_5)
destroy(this.rb_4)
destroy(this.rb_3)
destroy(this.rb_2)
destroy(this.rb_1)
destroy(this.uo_dwtoolbargroup)
destroy(this.uo_dwtoolbar3)
destroy(this.uo_dwtoolbar2)
destroy(this.uo_dwtoolbar)
destroy(this.gb_1)
destroy(this.gb_2)
end on

event ke_postopen;call super::ke_postopen;of_Updatetheme()
uo_dwtoolbargroup.of_AddToolbars({uo_dwtoolbar, uo_dwtoolbar2, uo_dwtoolbar3})
end event

event destructor;call super::destructor;IF ISVALID(inv_dd) THEN DESTROY inv_dd
end event

type sle_1 from u_sle within u_controls_toolbar_dw
integer x = 18
integer y = 320
integer width = 1019
integer taborder = 30
string text = "Click a toolbar button..."
end type

type cb_3 from u_cb within u_controls_toolbar_dw
integer x = 37
integer y = 1200
integer taborder = 60
string text = "Popmenu 3"
end type

event clicked;call super::clicked;window lw

lw = parent.of_GetParentwindow(TRUE)

uo_dwtoolbar3.of_PopMenu(lw.PointerX(), lw.PointerY())
end event

type cb_2 from u_cb within u_controls_toolbar_dw
integer x = 37
integer y = 1104
integer taborder = 50
string text = "Popmenu 2"
end type

event clicked;call super::clicked;window lw

lw = parent.of_GetParentwindow(TRUE)

uo_dwtoolbar2.of_PopMenu(lw.PointerX(), lw.PointerY())
end event

type cb_1 from u_cb within u_controls_toolbar_dw
integer x = 37
integer y = 1008
integer taborder = 50
string text = "Popmenu 1"
end type

event clicked;call super::clicked;window lw

lw = parent.of_GetParentwindow(TRUE)

uo_dwtoolbar.of_PopMenu(lw.PointerX(), lw.PointerY())
end event

type cbx_4 from u_cbx within u_controls_toolbar_dw
integer x = 603
integer y = 792
integer width = 416
string text = "Enable Delete"
end type

event clicked;call super::clicked;uo_dwtoolbar.of_buttonenable("6", checked)
end event

type cbx_3 from u_cbx within u_controls_toolbar_dw
integer x = 603
integer y = 704
integer width = 416
string text = "Enable New"
boolean checked = true
end type

event clicked;call super::clicked;uo_dwtoolbar.of_buttonenable("3", checked)
end event

type cbx_2 from u_cbx within u_controls_toolbar_dw
integer x = 603
integer y = 616
integer width = 416
string text = "Enable Retrieve"
boolean checked = true
end type

event clicked;call super::clicked;uo_dwtoolbar.of_buttonenable("1", checked)
end event

type uo_panel from u_borderpanel within u_controls_toolbar_dw
integer x = 1134
integer y = 1008
integer taborder = 50
long #sizeorder = 10
boolean #dock = true
long #docktype = 5
long #dockpadleft = 48
string #dock_control_top = "uo_dwtoolbargroup"
string #dock_control_left = "gb_2"
string #childobject = "dw_employees"
end type

on uo_panel.destroy
call u_borderpanel::destroy
end on

type dw_employees from u_dwlv within u_controls_toolbar_dw
integer x = 1134
integer y = 592
integer taborder = 40
string dataobject = "d_employees"
boolean border = false
borderstyle borderstyle = stylebox!
long #sizeorder = -1
end type

type cbx_1 from u_cbx within u_controls_toolbar_dw
integer x = 603
integer y = 528
string text = "Large Icons"
end type

event clicked;call super::clicked;IF checked THEN
   uo_dwtoolbar.of_Largeicons()
   uo_dwtoolbar2.of_Largeicons()
   uo_dwtoolbar3.of_Largeicons()
ELSE
   uo_dwtoolbar.of_Smallicons()
   uo_dwtoolbar2.of_Smallicons()
   uo_dwtoolbar3.of_Smallicons()
END IF

uo_dwtoolbargroup.of_UpdateLayout()

parent.TriggerEvent("resize")
end event

type rb_5 from u_rb within u_controls_toolbar_dw
integer x = 91
integer y = 880
integer width = 375
string text = "Mixed Custom"
end type

event clicked;call super::clicked;uo_dwtoolbargroup.of_SetTheme(5)
of_UpdateTheme()
end event

type rb_4 from u_rb within u_controls_toolbar_dw
integer x = 91
integer y = 792
string text = "Unthemed"
end type

event clicked;call super::clicked;uo_dwtoolbargroup.of_SetTheme(4)
of_UpdateTheme()
end event

type rb_3 from u_rb within u_controls_toolbar_dw
integer x = 91
integer y = 704
string text = "Silver"
end type

event clicked;call super::clicked;uo_dwtoolbargroup.of_SetTheme(3)
of_UpdateTheme()
end event

type rb_2 from u_rb within u_controls_toolbar_dw
integer x = 91
integer y = 616
string text = "Olive Green"
end type

event clicked;call super::clicked;uo_dwtoolbargroup.of_SetTheme(2)
of_UpdateTheme()
end event

type rb_1 from u_rb within u_controls_toolbar_dw
integer x = 91
integer y = 528
string text = "Blue"
end type

event clicked;call super::clicked;uo_dwtoolbargroup.of_SetTheme(1)
of_UpdateTheme()
end event

type uo_dwtoolbargroup from u_dwtoolbar_group within u_controls_toolbar_dw
integer taborder = 20
boolean #dock = true
long #docktype = 1
end type

on uo_dwtoolbargroup.destroy
call u_dwtoolbar_group::destroy
end on

type uo_dwtoolbar3 from u_dwtoolbar within u_controls_toolbar_dw
integer x = 1115
integer y = 400
integer taborder = 30
long #sizeorder = -1
string #toolbardataobject = "d_toolbar_dw_tools"
boolean #fixedwidth = true
boolean #newline = false
end type

on uo_dwtoolbar3.destroy
call u_dwtoolbar::destroy
end on

event ke_dropdown;call super::ke_dropdown;n_svc_dropdown lnv_dd
n_svc_mgr lnv_svc
string ls_classname, ls_event

lnv_svc.of_LoadSvc(lnv_dd, CSvc.DROPDOWN)

ls_classname = "n_dropdown_dw_sort"
ls_event = "ke_sort"

lnv_dd.of_showdropdowntoolbar(this, &
   inv_dd, &
   ls_classname, &
   parent, &
   ls_event, &
   dw_employees, &
   popx, &
   popy)

end event

event ke_buttonclicked;call super::ke_buttonclicked;CHOOSE CASE buttonid
   CASE "2"
      boolean lb
      
      lb = NOT this.of_IsButtonChecked(buttonid)
      this.of_ButtonCheck(buttonid, lb)
      
      dw_employees.of_Alternaterowcolors(lb)
END CHOOSE
end event

type uo_dwtoolbar2 from u_dwtoolbar within u_controls_toolbar_dw
integer x = 1115
integer y = 192
integer taborder = 20
long #sizeorder = -1
string #toolbardataobject = "d_toolbar_save_cancel"
boolean #fixedwidth = true
end type

on uo_dwtoolbar2.destroy
call u_dwtoolbar::destroy
end on

event ke_buttonclicked;call super::ke_buttonclicked;sle_1.Text = "Clicked: " + buttontext + " (" + buttonid + ")"
end event

type uo_dwtoolbar from u_dwtoolbar within u_controls_toolbar_dw
integer x = 1115
integer taborder = 20
long #sizeorder = -1
string #toolbardataobject = "d_dwtoolbar_with_dwobject"
string #dataobject = "my_dw_toolbar"
boolean #fixedwidth = true
end type

on uo_dwtoolbar.destroy
call u_dwtoolbar::destroy
end on

event ke_buttonclicked;call super::ke_buttonclicked;sle_1.Text = "Clicked: " + buttontext + " (" + buttonid + ")"
end event

type gb_1 from u_gb within u_controls_toolbar_dw
integer x = 37
integer y = 432
integer width = 485
integer height = 548
integer taborder = 40
string text = "Theme"
borderstyle borderstyle = stylebox!
end type

type gb_2 from u_gb within u_controls_toolbar_dw
integer x = 567
integer y = 432
integer width = 503
integer height = 548
integer taborder = 50
string text = "Properties"
borderstyle borderstyle = stylebox!
end type