Q5/ws_objects/Ew_email.pbl.src/uo_email_picture.sru

$PBExportHeader$uo_email_picture.sru
forward
global type uo_email_picture from userobject
end type
type p_1 from picture within uo_email_picture
end type
type r_1 from rectangle within uo_email_picture
end type
end forward

global type uo_email_picture from userobject
integer width = 1285
integer height = 748
long backcolor = 67108864
string text = "none"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
p_1 p_1
r_1 r_1
end type
global uo_email_picture uo_email_picture

event constructor;
p_1.x=0
p_1.y=0
p_1.width=this.width
p_1.height=this.height

r_1.x=0
r_1.y=0
r_1.width=this.width
r_1.height=this.height
end event

on uo_email_picture.create
this.p_1=create p_1
this.r_1=create r_1
this.Control[]={this.p_1,&
this.r_1}
end on

on uo_email_picture.destroy
destroy(this.p_1)
destroy(this.r_1)
end on

type p_1 from picture within uo_email_picture
integer x = 325
integer y = 208
integer width = 823
integer height = 340
boolean originalsize = true
boolean focusrectangle = false
end type

type r_1 from rectangle within uo_email_picture
long linecolor = 33554432
linestyle linestyle = dot!
integer linethickness = 4
long fillcolor = 134217739
integer x = 59
integer y = 48
integer width = 192
integer height = 168
end type