$PBExportHeader$u_tabpg_combotest.sru forward global type u_tabpg_combotest from u_base_tabpg end type type uo_text from u_cst_statictext within u_tabpg_combotest end type type uo_pict from u_cst_picture within u_tabpg_combotest end type type uo_combo from u_cst_combotest within u_tabpg_combotest end type end forward global type u_tabpg_combotest from u_base_tabpg string text = "Combo Test" uo_text uo_text uo_pict uo_pict uo_combo uo_combo end type global u_tabpg_combotest u_tabpg_combotest on u_tabpg_combotest.create int iCurrent call super::create this.uo_text=create uo_text this.uo_pict=create uo_pict this.uo_combo=create uo_combo iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.uo_text this.Control[iCurrent+2]=this.uo_pict this.Control[iCurrent+3]=this.uo_combo end on on u_tabpg_combotest.destroy call super::destroy destroy(this.uo_text) destroy(this.uo_pict) destroy(this.uo_combo) end on event constructor;call super::constructor;n_colors ln_colors uo_combo.SetGradientColor(ln_colors.RED, ln_colors.YELLOW) uo_combo.uo_pict.LoadImage("brain.gif") end event type uo_text from u_cst_statictext within u_tabpg_combotest integer x = 37 integer y = 1024 integer width = 2021 integer taborder = 20 string textvalue = "This is a stand alone picture control: " integer fontsize = 12 end type on uo_text.destroy call u_cst_statictext::destroy end on type uo_pict from u_cst_picture within u_tabpg_combotest integer x = 37 integer y = 1152 integer taborder = 20 string imagename = "brain.gif" boolean transparent = true end type on uo_pict.destroy call u_cst_picture::destroy end on type uo_combo from u_cst_combotest within u_tabpg_combotest integer x = 37 integer y = 32 integer taborder = 20 string textvalue = "This is a test combo control" boolean horzgradientfill = true end type on uo_combo.destroy call u_cst_combotest::destroy end on
File: u_tabpg_combotest.sru
Size: 1963
Date: Mon, 31 Dec 2018 21:14:38 +0100
Size: 1963
Date: Mon, 31 Dec 2018 21:14:38 +0100
- u_base_tabpg u_tabpg_combotest(sru)
- u_cst_statictext uo_text
- u_cst_picture uo_pict
- u_cst_combotest uo_combo