PBMiner

$PBExportHeader$u_controls_toolbarwin32.sru
forward
global type u_controls_toolbarwin32 from u_explorer
end type
type cbx_2 from u_cbx within u_controls_toolbarwin32
end type
type cbx_1 from u_cbx within u_controls_toolbarwin32
end type
type cb_2 from u_cb within u_controls_toolbarwin32
end type
type cb_1 from u_cb within u_controls_toolbarwin32
end type
type uo_tb2 from u_toolbar within u_controls_toolbarwin32
end type
type uo_tb from u_toolbar within u_controls_toolbarwin32
end type
end forward

global type u_controls_toolbarwin32 from u_explorer
integer width = 1970
integer height = 1088
long backcolor = 1073741824
cbx_2 cbx_2
cbx_1 cbx_1
cb_2 cb_2
cb_1 cb_1
uo_tb2 uo_tb2
uo_tb uo_tb
end type
global u_controls_toolbarwin32 u_controls_toolbarwin32

on u_controls_toolbarwin32.create
int iCurrent
call super::create
this.cbx_2=create cbx_2
this.cbx_1=create cbx_1
this.cb_2=create cb_2
this.cb_1=create cb_1
this.uo_tb2=create uo_tb2
this.uo_tb=create uo_tb
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_2
this.Control[iCurrent+2]=this.cbx_1
this.Control[iCurrent+3]=this.cb_2
this.Control[iCurrent+4]=this.cb_1
this.Control[iCurrent+5]=this.uo_tb2
this.Control[iCurrent+6]=this.uo_tb
end on

on u_controls_toolbarwin32.destroy
call super::destroy
destroy(this.cbx_2)
destroy(this.cbx_1)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.uo_tb2)
destroy(this.uo_tb)
end on

type cbx_2 from u_cbx within u_controls_toolbarwin32
integer x = 128
integer y = 472
integer width = 549
long backcolor = 1073741824
string text = "Show Paste Button"
boolean checked = true
end type

event clicked;call super::clicked;uo_tb.of_ButtonVisible("5", this.checked)
end event

type cbx_1 from u_cbx within u_controls_toolbarwin32
integer x = 128
integer y = 384
integer width = 576
long backcolor = 1073741824
string text = "Enable Retrieve Button"
boolean checked = true
end type

event clicked;call super::clicked;uo_tb.of_ButtonEnable("1", this.checked)
end event

type cb_2 from u_cb within u_controls_toolbarwin32
integer x = 1006
integer y = 388
integer width = 613
integer taborder = 40
string text = "Popmenu w/ custom items"
end type

event clicked;call super::clicked;str_menuitem lstr[], lstr_sub[]
long ll_upper

//make subitems
lstr_sub[1].menutext = "This is another level"
lstr_sub[1].subscriber = parent
lstr_sub[1].eventname = "ke_custom"

lstr[1].menutext = "This menu added on top!"
lstr[1].subscriber = parent
lstr[1].eventname = "ke_custom"
lstr[1].items = lstr_sub

//add separator
lstr[2].menutext = "-"
lstr[2].subscriber = parent
lstr[2].eventname = "ke_custom"
//build toolbar menu
uo_tb.of_makemenuitems(lstr)

ll_upper = UPPERBOUND(lstr)

//add separator
lstr[ll_upper + 1].menutext = "-"
lstr[ll_upper + 1].subscriber = parent
lstr[ll_upper + 1].eventname = "ke_custom"
//last one
lstr[ll_upper + 2].menutext = "This menu added below!"
lstr[ll_upper + 2].subscriber = parent
lstr[ll_upper + 2].eventname = "ke_custom"

lstr_sub[2].menutext = "This has 2 items :)"
lstr_sub[2].subscriber = parent
lstr_sub[2].eventname = "ke_custom"

lstr[ll_upper + 2].items = lstr_sub

//popmenu
uo_tb.of_popmenu(lstr, &
   parent.of_GetParentwindow(TRUE).PointerX(), &
   parent.of_GetParentwindow(TRUE).PointerY())
end event

type cb_1 from u_cb within u_controls_toolbarwin32
integer x = 1006
integer y = 272
integer width = 613
integer taborder = 30
string text = "Popmenu"
end type

event clicked;call super::clicked;uo_tb.of_popmenu(parent.of_GetParentwindow(TRUE).PointerX(), &
   parent.of_GetParentwindow(TRUE).PointerY())
end event

type uo_tb2 from u_toolbar within u_controls_toolbarwin32
integer x = 238
integer y = 240
integer taborder = 20
long #sizeorder = 2
boolean #dock = true
long #docktype = 4
string #dataobject = "d_2toolbar"
end type

on uo_tb2.destroy
call u_toolbar::destroy
end on

event ke_dropdown;call super::ke_dropdown;m_poptest m

m = CREATE m_poptest

m.PopMenu(popx, popy)

DESTROY m
end event

event ke_buttonclicked;call super::ke_buttonclicked;MessageBox("ID = " + buttonid, "Text = " + buttontext&
            + "~nData = " + buttondata)
end event

type uo_tb from u_toolbar within u_controls_toolbarwin32
integer x = 238
integer y = 112
integer taborder = 10
boolean #dock = true
long #docktype = 1
string #dataobject = "d_2toolbar"
boolean #largeicons = true
boolean #createonparent = true
end type

on uo_tb.destroy
call u_toolbar::destroy
end on

event ke_dropdown;call super::ke_dropdown;m_poptest m

m = CREATE m_poptest

m.PopMenu(popx, popy)

DESTROY m
end event

event ke_buttonclicked;call super::ke_buttonclicked;IF buttonid = "5" THEN
   of_buttoncheck(buttonid, NOT of_isbuttonchecked(buttonid))
END IF

MessageBox("ID = " + buttonid, "Text = " + buttontext&
            + "~nData = " + buttondata)

end event