Q5/ws_objects/Ew_mainface.pbl.src/w_genapp_about_q6.srw

$PBExportHeader$w_genapp_about_q6.srw
$PBExportComments$Generated About window
forward
global type w_genapp_about_q6 from window
end type
type st_publish from statictext within w_genapp_about_q6
end type
type st_4 from statictext within w_genapp_about_q6
end type
type st_tele1 from statictext within w_genapp_about_q6
end type
type cb_ok from uo_imflatbutton within w_genapp_about_q6
end type
type cb_reg from uo_imflatbutton within w_genapp_about_q6
end type
type st_internet from statictext within w_genapp_about_q6
end type
type st_address from statictext within w_genapp_about_q6
end type
type st_tele from statictext within w_genapp_about_q6
end type
type p_1 from picture within w_genapp_about_q6
end type
type st_copyright from statictext within w_genapp_about_q6
end type
type st_3 from statictext within w_genapp_about_q6
end type
type st_2 from statictext within w_genapp_about_q6
end type
type st_1 from statictext within w_genapp_about_q6
end type
end forward

global type w_genapp_about_q6 from window
integer x = 777
integer y = 436
integer width = 2249
integer height = 1228
boolean titlebar = true
string title = "关于"
boolean controlmenu = true
windowtype windowtype = popup!
long backcolor = 16777215
st_publish st_publish
st_4 st_4
st_tele1 st_tele1
cb_ok cb_ok
cb_reg cb_reg
st_internet st_internet
st_address st_address
st_tele st_tele
p_1 p_1
st_copyright st_copyright
st_3 st_3
st_2 st_2
st_1 st_1
end type
global w_genapp_about_q6 w_genapp_about_q6

on w_genapp_about_q6.create
this.st_publish=create st_publish
this.st_4=create st_4
this.st_tele1=create st_tele1
this.cb_ok=create cb_ok
this.cb_reg=create cb_reg
this.st_internet=create st_internet
this.st_address=create st_address
this.st_tele=create st_tele
this.p_1=create p_1
this.st_copyright=create st_copyright
this.st_3=create st_3
this.st_2=create st_2
this.st_1=create st_1
this.Control[]={this.st_publish,&
this.st_4,&
this.st_tele1,&
this.cb_ok,&
this.cb_reg,&
this.st_internet,&
this.st_address,&
this.st_tele,&
this.p_1,&
this.st_copyright,&
this.st_3,&
this.st_2,&
this.st_1}
end on

on w_genapp_about_q6.destroy
destroy(this.st_publish)
destroy(this.st_4)
destroy(this.st_tele1)
destroy(this.cb_ok)
destroy(this.cb_reg)
destroy(this.st_internet)
destroy(this.st_address)
destroy(this.st_tele)
destroy(this.p_1)
destroy(this.st_copyright)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.st_1)
end on

event open;environment   exerun_env
GetEnvironment(exerun_env )
This.Move ( (PixelsToUnits(exerun_env.ScreenWidth, XPixelsToUnits!) - This.Width)/2,&
	(PixelsToUnits(exerun_env.ScreenHeight, XPixelsToUnits!) - This.Height - 300 )/2) //
	
st_1.Text = '系    统：'+sys_message_title
st_2.Text = '版    本：'+sys_cur_version //sys_message_copyright_inc
st_3.Text = '用    户：'+sys_message_report_title

If sys_ifoem = 1 Then
//	st_publish.Text = '发 行 者：'+ProfileString ( sys_inioem, 'oem', 'publish', '立想咨询' )
	st_tele.Text = '电    话：' +ProfileString ( sys_inioem, 'oem', 'tele', '0757 - 23873986 , 23635986' )
//	st_tele1.Text = '传    真：' +ProfileString ( sys_inioem, 'oem', 'fax', '0757 - 23635987' )
	
	st_internet.Text = '网    站：'+ProfileString ( sys_inioem, 'oem', 'internet', 'www.longserve.com , www.longjoe.com' )
	st_address.Text = ProfileString ( sys_inioem, 'oem', 'address', '佛山市顺德区龙江镇西溪工业区雄塑科技大厦二楼' )
	
	
	
	st_copyright.Text = '系统开发：'+ProfileString ( sys_inioem, 'oem', 'copyright', 'www.longserve.com , www.longjoe.com' )
	
Else
	
	
//	st_publish.Text = '发 行 者：'+ProfileString ( sys_inifilename, 'cr', 'publish', '顺德龙嘉软件' )
	st_tele.Text = '电    话：0757-23873986,23393986,23635988'
	st_internet.Text = '网    站：www.longjoe.com'
	st_address.Text = '佛山市顺德区龙江镇西溪工业区雄塑科技大厦二楼' 
	st_copyright.Text = '版权所有：佛山市顺德区龙嘉软件有限公司'

End If


end event

type st_publish from statictext within w_genapp_about_q6
boolean visible = false
integer x = 238
integer y = 728
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "发 行 者："
boolean focusrectangle = false
end type

type st_4 from statictext within w_genapp_about_q6
integer x = 229
integer y = 984
integer width = 283
integer height = 68
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "地    址："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_tele1 from statictext within w_genapp_about_q6
boolean visible = false
integer x = 238
integer y = 892
integer width = 1810
integer height = 60
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "传    真："
boolean focusrectangle = false
end type

type cb_ok from uo_imflatbutton within w_genapp_about_q6
boolean visible = false
integer x = 864
integer y = 1252
integer width = 384
integer height = 108
integer taborder = 20
integer textsize = -10
boolean default = true
string normalpicname = "ok.bmp"
integer picsize = 16
end type

event clicked;call super::clicked;// Close "About" window

Close (parent)
end event

type cb_reg from uo_imflatbutton within w_genapp_about_q6
boolean visible = false
integer x = 960
integer y = 1228
integer width = 329
integer height = 92
integer taborder = 10
string text = "注册信息"
end type

event clicked;call super::clicked;open(w_sys_register)
end event

type st_internet from statictext within w_genapp_about_q6
integer x = 238
integer y = 892
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "网    站："
boolean focusrectangle = false
end type

type st_address from statictext within w_genapp_about_q6
integer x = 512
integer y = 980
integer width = 1531
integer height = 100
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "佛山"
boolean focusrectangle = false
end type

type st_tele from statictext within w_genapp_about_q6
integer x = 238
integer y = 804
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "电    话："
boolean focusrectangle = false
end type

type p_1 from picture within w_genapp_about_q6
integer width = 2240
integer height = 360
boolean originalsize = true
string picturename = "graphics\about_q6.bmp"
borderstyle borderstyle = styleshadowbox!
boolean focusrectangle = false
end type

event doubleclicked;//if sys_if_network = 1 then return 
if not sys_power_issuper then return 
OPEN(w_set_version)

end event

type st_copyright from statictext within w_genapp_about_q6
integer x = 238
integer y = 724
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "版权所有：佛山市顺德区龙嘉软件有限公司"
boolean focusrectangle = false
end type

type st_3 from statictext within w_genapp_about_q6
integer x = 238
integer y = 604
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "用    户："
boolean focusrectangle = false
end type

type st_2 from statictext within w_genapp_about_q6
integer x = 238
integer y = 524
integer width = 1810
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "版    本：软件开发中心"
boolean focusrectangle = false
end type

type st_1 from statictext within w_genapp_about_q6
integer x = 238
integer y = 440
integer width = 1810
integer height = 68
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
string text = "系    统：管理系统"
boolean focusrectangle = false
end type