PBMiner

$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