$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
File: u_tabpg_statictext.sru
Size: 4419
Date: Sun, 04 Aug 2013 12:50:42 +0200
Size: 4419
Date: Sun, 04 Aug 2013 12:50:42 +0200
- u_base_tabpg u_tabpg_statictext(sru)
- commandbutton cb_escapement
- commandbutton cb_color
- commandbutton cb_border
- commandbutton cb_gradient
- u_cst_statictext uo_statictext