PBMiner

$PBExportHeader$w_dropdown_custom.srw
forward
global type w_dropdown_custom from w_base_dropdown
end type
type mle_1 from u_mle within w_dropdown_custom
end type
type uo_1 from u_st_gradient within w_dropdown_custom
end type
type cb_1 from u_cb within w_dropdown_custom
end type
end forward

global type w_dropdown_custom from w_base_dropdown
integer width = 1326
integer height = 620
mle_1 mle_1
uo_1 uo_1
cb_1 cb_1
end type
global w_dropdown_custom w_dropdown_custom

on w_dropdown_custom.create
int iCurrent
call super::create
this.mle_1=create mle_1
this.uo_1=create uo_1
this.cb_1=create cb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.mle_1
this.Control[iCurrent+2]=this.uo_1
this.Control[iCurrent+3]=this.cb_1
end on

on w_dropdown_custom.destroy
call super::destroy
destroy(this.mle_1)
destroy(this.uo_1)
destroy(this.cb_1)
end on

event ke_initvalue;call super::ke_initvalue;mle_1.Text = STRING(value)
end event

event ke_preopen;call super::ke_preopen;uo_1.of_setcolor(CColor.ORANGE)
uo_1.of_setfontcolor(RGB(1, 0, 0))
end event

type mle_1 from u_mle within w_dropdown_custom
integer x = 146
integer y = 192
integer taborder = 20
string text = ""
long #sizeorder = 1
boolean #dock = true
long #docktype = 5
string #dock_control_top = "uo_1"
end type

type uo_1 from u_st_gradient within w_dropdown_custom
integer height = 92
integer taborder = 20
boolean #dock = true
long #docktype = 1
string #text = "This is a sample custom dropdown"
integer #fontsize = 12
boolean #fontbold = true
end type

on uo_1.destroy
call u_st_gradient::destroy
end on

type cb_1 from u_cb within w_dropdown_custom
integer x = 640
integer y = 368
integer taborder = 30
boolean default = true
long #sizeorder = -1
end type

event clicked;call super::clicked;inv_dropdown.of_SetReturnValue(mle_1.Text)
end event