PBMiner

$PBExportHeader$u_tabpg_gradient.sru
forward
global type u_tabpg_gradient from u_base_tabpg
end type
type uo_gradient from u_cst_gradient within u_tabpg_gradient
end type
type dw_choose from datawindow within u_tabpg_gradient
end type
type rb_horizontal from radiobutton within u_tabpg_gradient
end type
type rb_vertical from radiobutton within u_tabpg_gradient
end type
end forward

global type u_tabpg_gradient from u_base_tabpg
string text = "Gradient"
uo_gradient uo_gradient
dw_choose dw_choose
rb_horizontal rb_horizontal
rb_vertical rb_vertical
end type
global u_tabpg_gradient u_tabpg_gradient

on u_tabpg_gradient.create
int iCurrent
call super::create
this.uo_gradient=create uo_gradient
this.dw_choose=create dw_choose
this.rb_horizontal=create rb_horizontal
this.rb_vertical=create rb_vertical
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.uo_gradient
this.Control[iCurrent+2]=this.dw_choose
this.Control[iCurrent+3]=this.rb_horizontal
this.Control[iCurrent+4]=this.rb_vertical
end on

on u_tabpg_gradient.destroy
call super::destroy
destroy(this.uo_gradient)
destroy(this.dw_choose)
destroy(this.rb_horizontal)
destroy(this.rb_vertical)
end on

type uo_gradient from u_cst_gradient within u_tabpg_gradient
integer x = 37
integer y = 32
integer width = 2784
integer height = 1092
integer taborder = 10
boolean horzgradientfill = true
end type

on uo_gradient.destroy
call u_cst_gradient::destroy
end on

type dw_choose from datawindow within u_tabpg_gradient
integer x = 37
integer y = 1184
integer width = 992
integer height = 228
integer taborder = 10
string title = "none"
string dataobject = "d_choose"
boolean border = false
boolean livescroll = true
end type

event itemchanged;Long ll_color1, ll_color2

this.AcceptText()

ll_color1 = this.GetItemNumber(1, "color1")
ll_color2 = this.GetItemNumber(1, "color2")

uo_gradient.SetGradientColor(ll_color1, ll_color2)

end event

event constructor;this.InsertRow(0)

end event

type rb_horizontal from radiobutton within u_tabpg_gradient
integer x = 1061
integer y = 1244
integer width = 343
integer height = 80
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Horizontal"
boolean checked = true
end type

event clicked;uo_gradient.SetHorzGradientFill(True)
uo_gradient.SetVertGradientFill(False)

end event

type rb_vertical from radiobutton within u_tabpg_gradient
integer x = 1463
integer y = 1244
integer width = 343
integer height = 80
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Vertical"
end type

event clicked;uo_gradient.SetHorzGradientFill(False)
uo_gradient.SetVertGradientFill(True)

end event