$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
- Sources
- Kodigo
- OpenExplorer
- u_controls_gradienttext.sru
File: u_controls_gradienttext.sru
Size: 6508
Date: Mon, 07 Apr 2008 21:32:56 +0200
Size: 6508
Date: Mon, 07 Apr 2008 21:32:56 +0200
- u_explorer u_controls_gradienttext(sru)
- u_cb cb_3
- u_st st_font
- u_st st_4
- u_cb cb_2
- u_st st_end
- u_st st_3
- u_cb cb_1
- u_st st_start
- u_st st_2
- u_cbx cbx_3
- u_cbx cbx_2
- u_cbx cbx_1
- u_sle sle_1
- u_st st_1
- u_st_gradient uo_1