$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
File: u_tabpg_gradient.sru
Size: 3089
Date: Wed, 08 Nov 2017 18:49:32 +0100
Size: 3089
Date: Wed, 08 Nov 2017 18:49:32 +0100
- u_base_tabpg u_tabpg_gradient(sru)
- u_cst_gradient uo_gradient
- datawindow dw_choose
- radiobutton rb_horizontal
- radiobutton rb_vertical