$PBExportHeader$u_cst_combotest.sru forward global type u_cst_combotest from u_cst_statictext end type type uo_pict from u_cst_picture within u_cst_combotest end type end forward global type u_cst_combotest from u_cst_statictext integer width = 1582 integer height = 964 integer fontsize = 16 uo_pict uo_pict end type global u_cst_combotest u_cst_combotest on u_cst_combotest.create int iCurrent call super::create this.uo_pict=create uo_pict iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.uo_pict end on on u_cst_combotest.destroy call super::destroy destroy(this.uo_pict) end on event constructor;call super::constructor;// use parent (u_combo) to paint background of child (uo_pict) uo_pict.SetPaintBackground(True) end event type st_name from u_cst_statictext`st_name within u_cst_combotest end type type uo_pict from u_cst_picture within u_cst_combotest integer x = 151 integer y = 160 integer width = 224 integer height = 132 integer taborder = 10 boolean bringtotop = true boolean resizecontrol = true boolean transparent = true end type on uo_pict.destroy call u_cst_picture::destroy end on
File: u_cst_combotest.sru
Size: 1177
Date: Mon, 05 Aug 2013 01:09:26 +0200
Size: 1177
Date: Mon, 05 Aug 2013 01:09:26 +0200
- u_cst_statictext u_cst_combotest(sru)
- u_cst_statictext`st_name st_name
- u_cst_picture uo_pict