PBMiner

$PBExportHeader$u_controls_gradienttext.sru
forward
global type u_controls_gradienttext from u_explorer
end type
type cb_3 from u_cb within u_controls_gradienttext
end type
type st_font from u_st within u_controls_gradienttext
end type
type st_4 from u_st within u_controls_gradienttext
end type
type cb_2 from u_cb within u_controls_gradienttext
end type
type st_end from u_st within u_controls_gradienttext
end type
type st_3 from u_st within u_controls_gradienttext
end type
type cb_1 from u_cb within u_controls_gradienttext
end type
type st_start from u_st within u_controls_gradienttext
end type
type st_2 from u_st within u_controls_gradienttext
end type
type cbx_3 from u_cbx within u_controls_gradienttext
end type
type cbx_2 from u_cbx within u_controls_gradienttext
end type
type cbx_1 from u_cbx within u_controls_gradienttext
end type
type sle_1 from u_sle within u_controls_gradienttext
end type
type st_1 from u_st within u_controls_gradienttext
end type
type uo_1 from u_st_gradient within u_controls_gradienttext
end type
end forward

global type u_controls_gradienttext from u_explorer
integer height = 1184
cb_3 cb_3
st_font st_font
st_4 st_4
cb_2 cb_2
st_end st_end
st_3 st_3
cb_1 cb_1
st_start st_start
st_2 st_2
cbx_3 cbx_3
cbx_2 cbx_2
cbx_1 cbx_1
sle_1 sle_1
st_1 st_1
uo_1 uo_1
end type
global u_controls_gradienttext u_controls_gradienttext

on u_controls_gradienttext.create
int iCurrent
call super::create
this.cb_3=create cb_3
this.st_font=create st_font
this.st_4=create st_4
this.cb_2=create cb_2
this.st_end=create st_end
this.st_3=create st_3
this.cb_1=create cb_1
this.st_start=create st_start
this.st_2=create st_2
this.cbx_3=create cbx_3
this.cbx_2=create cbx_2
this.cbx_1=create cbx_1
this.sle_1=create sle_1
this.st_1=create st_1
this.uo_1=create uo_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_3
this.Control[iCurrent+2]=this.st_font
this.Control[iCurrent+3]=this.st_4
this.Control[iCurrent+4]=this.cb_2
this.Control[iCurrent+5]=this.st_end
this.Control[iCurrent+6]=this.st_3
this.Control[iCurrent+7]=this.cb_1
this.Control[iCurrent+8]=this.st_start
this.Control[iCurrent+9]=this.st_2
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.sle_1
this.Control[iCurrent+14]=this.st_1
this.Control[iCurrent+15]=this.uo_1
end on

on u_controls_gradienttext.destroy
call super::destroy
destroy(this.cb_3)
destroy(this.st_font)
destroy(this.st_4)
destroy(this.cb_2)
destroy(this.st_end)
destroy(this.st_3)
destroy(this.cb_1)
destroy(this.st_start)
destroy(this.st_2)
destroy(this.cbx_3)
destroy(this.cbx_2)
destroy(this.cbx_1)
destroy(this.sle_1)
destroy(this.st_1)
destroy(this.uo_1)
end on

event ke_postopen;call super::ke_postopen;long lls, lle

uo_1.of_GetColors(lls, lle)

st_start.BackColor = lls
st_end.BackColor = lle
st_font.BackColor = uo_1.of_GetFontColor()
end event

type cb_3 from u_cb within u_controls_gradienttext
integer x = 567
integer y = 852
integer width = 160
integer height = 84
integer taborder = 60
string text = "..."
end type

event clicked;call super::clicked;IF ChooseColor(st_font.BackColor) = 1 THEN
   uo_1.of_SetFontColor(st_font.BackColor)
END IF
end event

type st_font from u_st within u_controls_gradienttext
integer x = 293
integer y = 852
integer width = 233
integer height = 84
long backcolor = 255
string text = ""
boolean border = true
end type

type st_4 from u_st within u_controls_gradienttext
integer x = 55
integer y = 852
integer width = 197
string text = "Font:"
end type

type cb_2 from u_cb within u_controls_gradienttext
integer x = 567
integer y = 744
integer width = 160
integer height = 84
integer taborder = 50
string text = "..."
end type

event clicked;call super::clicked;IF ChooseColor(st_end.BackColor) = 1 THEN
   uo_1.of_SetColors(st_start.BackColor, st_end.BackColor)
END IF
end event

type st_end from u_st within u_controls_gradienttext
integer x = 293
integer y = 744
integer width = 233
integer height = 84
long backcolor = 255
string text = ""
boolean border = true
end type

type st_3 from u_st within u_controls_gradienttext
integer x = 55
integer y = 744
integer width = 197
string text = "End:"
end type

type cb_1 from u_cb within u_controls_gradienttext
integer x = 567
integer y = 636
integer width = 160
integer height = 84
integer taborder = 40
string text = "..."
end type

event clicked;call super::clicked;IF ChooseColor(st_start.BackColor) = 1 THEN
   uo_1.of_SetColors(st_start.BackColor, st_end.BackColor)
END IF
end event

type st_start from u_st within u_controls_gradienttext
integer x = 293
integer y = 636
integer width = 233
integer height = 84
long backcolor = 255
string text = ""
boolean border = true
end type

type st_2 from u_st within u_controls_gradienttext
integer x = 55
integer y = 636
integer width = 197
string text = "Start:"
end type

type cbx_3 from u_cbx within u_controls_gradienttext
integer x = 293
integer y = 528
integer width = 430
string text = "Bold Text"
end type

event clicked;call super::clicked;uo_1.of_SetFontbold(this.checked)
end event

type cbx_2 from u_cbx within u_controls_gradienttext
integer x = 293
integer y = 440
integer width = 430
string text = "Vertical Gradient"
end type

event clicked;call super::clicked;uo_1.of_Setverticalgradient(this.checked)
end event

type cbx_1 from u_cbx within u_controls_gradienttext
integer x = 293
integer y = 352
integer width = 347
string text = "Show Border"
end type

event clicked;call super::clicked;uo_1.of_ShowBorder(this.checked)
end event

type sle_1 from u_sle within u_controls_gradienttext
integer x = 293
integer y = 240
integer width = 818
integer taborder = 30
string text = "Edit Text"
end type

event modified;call super::modified;uo_1.of_settext(TRIM(this.text))
end event

type st_1 from u_st within u_controls_gradienttext
integer x = 55
integer y = 256
integer width = 197
string text = "Text:"
end type

type uo_1 from u_st_gradient within u_controls_gradienttext
integer x = 55
integer y = 48
integer width = 1582
integer taborder = 20
boolean #anchortop = true
boolean #anchorleft = true
boolean #anchorright = true
integer #fontsize = 14
end type

on uo_1.destroy
call u_st_gradient::destroy
end on