PBMiner

$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