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

$PBExportHeader$w_whatsnew_q6.srw
forward
global type w_whatsnew_q6 from w_publ_base
end type
type dw_1 from datawindow within w_whatsnew_q6
end type
type st_1 from statictext within w_whatsnew_q6
end type
type st_2 from statictext within w_whatsnew_q6
end type
type st_3 from statictext within w_whatsnew_q6
end type
type st_4 from statictext within w_whatsnew_q6
end type
type ln_bt from line within w_whatsnew_q6
end type
end forward

global type w_whatsnew_q6 from w_publ_base
integer width = 5019
integer height = 2644
string title = "Q6新特性"
long backcolor = 16777215
dw_1 dw_1
st_1 st_1
st_2 st_2
st_3 st_3
st_4 st_4
ln_bt ln_bt
end type
global w_whatsnew_q6 w_whatsnew_q6

type variables
long ins_action_ss = 150

statictext ins_s_st[]
end variables

forward prototypes
public subroutine wf_bt_action (statictext arg_st)
end prototypes

public subroutine wf_bt_action (statictext arg_st);long begintime ,endtime,stoptime 
long EndX,beginX
long ll_part

ll_part = ins_action_ss

EndX = ln_bt.EndX
beginX = ln_bt.beginX

begintime = cpu()
do while stoptime < ll_part//(毫秒)
	ln_bt.beginX = beginX + ( arg_st.x  - beginX) / ll_part * stoptime
	ln_bt.EndX = EndX + ( arg_st.x + arg_st.width - EndX) / ll_part * stoptime
   endtime = cpu()
   stoptime = endtime - begintime
loop
ln_bt.EndX = arg_st.x + arg_st.width - 20
ln_bt.beginX = arg_st.x

long i 

for i = 1 to UpperBound(ins_s_st)
	if arg_st = ins_s_st[i] then 
		ins_s_st[i].textcolor = 0
	else
		ins_s_st[i].textcolor = 8421504
	end if
next
end subroutine

on w_whatsnew_q6.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.st_1=create st_1
this.st_2=create st_2
this.st_3=create st_3
this.st_4=create st_4
this.ln_bt=create ln_bt
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.st_1
this.Control[iCurrent+3]=this.st_2
this.Control[iCurrent+4]=this.st_3
this.Control[iCurrent+5]=this.st_4
this.Control[iCurrent+6]=this.ln_bt
end on

on w_whatsnew_q6.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.st_1)
destroy(this.st_2)
destroy(this.st_3)
destroy(this.st_4)
destroy(this.ln_bt)
end on

event open;call super::open;dw_1.insertrow(0)

ins_s_st = {st_1,st_2,st_3}
end event

type cb_func from w_publ_base`cb_func within w_whatsnew_q6
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_whatsnew_q6
boolean visible = false
end type

type dw_1 from datawindow within w_whatsnew_q6
integer width = 5015
integer height = 2412
integer taborder = 30
boolean bringtotop = true
string title = "none"
string dataobject = "dw_whatsnew_app"
boolean border = false
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_whatsnew_q6
integer x = 91
integer y = 2436
integer width = 352
integer height = 72
boolean bringtotop = true
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 16777215
string text = "财务总帐"
alignment alignment = center!
boolean focusrectangle = false
end type

event clicked;wf_bt_action(this)
end event

type st_2 from statictext within w_whatsnew_q6
integer x = 489
integer y = 2436
integer width = 352
integer height = 72
boolean bringtotop = true
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
string text = "移动办公"
alignment alignment = center!
boolean focusrectangle = false
end type

event clicked;wf_bt_action(this)
end event

type st_3 from statictext within w_whatsnew_q6
integer x = 873
integer y = 2436
integer width = 448
integer height = 72
boolean bringtotop = true
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 16777215
string text = "供应链协同"
alignment alignment = center!
boolean focusrectangle = false
end type

event clicked;wf_bt_action(this)
end event

type st_4 from statictext within w_whatsnew_q6
integer x = 4073
integer y = 2452
integer width = 850
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 8421504
long backcolor = 16777215
string text = "请联系龙嘉软件业务员开通新功能"
boolean focusrectangle = false
end type

type ln_bt from line within w_whatsnew_q6
long linecolor = 22052863
integer linethickness = 20
integer beginx = 494
integer beginy = 2528
integer endx = 814
integer endy = 2528
end type