PBMiner

$PBExportHeader$u_tabpg_statictext.sru
forward
global type u_tabpg_statictext from u_base_tabpg
end type
type cb_escapement from commandbutton within u_tabpg_statictext
end type
type cb_color from commandbutton within u_tabpg_statictext
end type
type cb_border from commandbutton within u_tabpg_statictext
end type
type cb_gradient from commandbutton within u_tabpg_statictext
end type
type uo_statictext from u_cst_statictext within u_tabpg_statictext
end type
end forward

global type u_tabpg_statictext from u_base_tabpg
string text = "StaticText"
cb_escapement cb_escapement
cb_color cb_color
cb_border cb_border
cb_gradient cb_gradient
uo_statictext uo_statictext
end type
global u_tabpg_statictext u_tabpg_statictext

on u_tabpg_statictext.create
int iCurrent
call super::create
this.cb_escapement=create cb_escapement
this.cb_color=create cb_color
this.cb_border=create cb_border
this.cb_gradient=create cb_gradient
this.uo_statictext=create uo_statictext
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_escapement
this.Control[iCurrent+2]=this.cb_color
this.Control[iCurrent+3]=this.cb_border
this.Control[iCurrent+4]=this.cb_gradient
this.Control[iCurrent+5]=this.uo_statictext
end on

on u_tabpg_statictext.destroy
call super::destroy
destroy(this.cb_escapement)
destroy(this.cb_color)
destroy(this.cb_border)
destroy(this.cb_gradient)
destroy(this.uo_statictext)
end on

type cb_escapement from commandbutton within u_tabpg_statictext
integer x = 2267
integer y = 608
integer width = 517
integer height = 132
integer taborder = 30
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Escapement"
end type

event clicked;If uo_statictext.Escapement = 0 Then
   uo_statictext.SetEscapement(45)
   uo_statictext.SetOffsetTop(250)
Else
   uo_statictext.SetEscapement(0)
   uo_statictext.SetOffsetTop(0)
End If

end event

type cb_color from commandbutton within u_tabpg_statictext
integer x = 2267
integer y = 32
integer width = 517
integer height = 132
integer taborder = 10
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Color Chocolate"
end type

event clicked;n_colors ln_colors

uo_statictext.SetFontColor(ln_colors.CHOCOLATE)

end event

type cb_border from commandbutton within u_tabpg_statictext
integer x = 2267
integer y = 224
integer width = 517
integer height = 132
integer taborder = 20
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Toggle Border"
end type

event clicked;uo_statictext.SetBorder(Not uo_statictext.Border)

end event

type cb_gradient from commandbutton within u_tabpg_statictext
integer x = 2267
integer y = 416
integer width = 517
integer height = 132
integer taborder = 20
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Toggle Gradient"
end type

event clicked;n_colors ln_colors

uo_statictext.SetGradientColor(ln_colors.AQUAMARINE, ln_colors.SLATE_GRAY)

If uo_statictext.HorzGradientFill Then
   uo_statictext.SetHorzGradientFill(False)
Else
   uo_statictext.SetHorzGradientFill(True)
End If

end event

type uo_statictext from u_cst_statictext within u_tabpg_statictext
integer x = 37
integer y = 32
integer width = 2162
integer height = 1540
integer taborder = 10
string textvalue = "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."
boolean wordwrap = true
vtextalign valign = multiline!
long fontcolor = 255
end type

on uo_statictext.destroy
call u_cst_statictext::destroy
end on