$PBExportHeader$w_msg_send_mt.srw
forward
global type w_msg_send_mt from w_publ_base
end type
type sle_msgtitle from singlelineedit within w_msg_send_mt
end type
type st_2 from statictext within w_msg_send_mt
end type
type mle_objdpm from multilineedit within w_msg_send_mt
end type
type dw_1 from u_dw_rbtnfilter within w_msg_send_mt
end type
type rb_usergrp from radiobutton within w_msg_send_mt
end type
type rb_user from radiobutton within w_msg_send_mt
end type
type cb_que from uo_imflatbutton within w_msg_send_mt
end type
type cb_1 from uo_imflatbutton within w_msg_send_mt
end type
type st_1 from statictext within w_msg_send_mt
end type
type sle_billcode from singlelineedit within w_msg_send_mt
end type
type st_3 from statictext within w_msg_send_mt
end type
type uo_html from uo_html_editor within w_msg_send_mt
end type
type dw_mt_fj from datawindow within w_msg_send_mt
end type
type p_fj_add from picture within w_msg_send_mt
end type
type st_4 from statictext within w_msg_send_mt
end type
type st_fj_add from statictext within w_msg_send_mt
end type
type st_6 from statictext within w_msg_send_mt
end type
type st_send_suc_w from statictext within w_msg_send_mt
end type
type ln_bar from line within w_msg_send_mt
end type
type ln_bar2 from line within w_msg_send_mt
end type
type r_bar from rectangle within w_msg_send_mt
end type
type st_send_suc from statictext within w_msg_send_mt
end type
end forward
global type w_msg_send_mt from w_publ_base
integer x = 23
integer y = 24
integer width = 3502
integer height = 2568
string title = "唛头邮件"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 16777215
event ue_fj_del ( )
event ue_fj_del_all ( )
event ue_fj_add_link ( )
event ue_fj_add ( )
sle_msgtitle sle_msgtitle
st_2 st_2
mle_objdpm mle_objdpm
dw_1 dw_1
rb_usergrp rb_usergrp
rb_user rb_user
cb_que cb_que
cb_1 cb_1
st_1 st_1
sle_billcode sle_billcode
st_3 st_3
uo_html uo_html
dw_mt_fj dw_mt_fj
p_fj_add p_fj_add
st_4 st_4
st_fj_add st_fj_add
st_6 st_6
st_send_suc_w st_send_suc_w
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
st_send_suc st_send_suc
end type
global w_msg_send_mt w_msg_send_mt
type variables
uo_transmsg uo_msg
Blob ins_fjdata[] //附件转换为的blob
Long ins_max_fj = 0//附件数目
s_admsg s_msg,s_return
long ins_kind //0普通 1唛头 -1全部
end variables
forward prototypes
public function integer wf_addobjdpm (string arg_objdpm)
public function integer wf_dw ()
end prototypes
event ue_fj_del();Long lrow
Long ls_i,ls_j = 0
Blob ls_filedata[]
lrow = dw_mt_fj.GetRow()
IF lrow <= 0 THEN
MessageBox('系统提示','请先选择目标!')
RETURN
END IF
if messagebox('系统提示','确定要删除当前附件吗?',question!,yesno!) = 2 then return
dw_mt_fj.DeleteRow(lrow)
end event
event ue_fj_del_all();//Long ls_i
//Blob ls_null[]
//ins_fjdata[] = ls_null[]
//ins_max_fj = 0
//IF dw_msg_fj.RowCount() > 0 THEN
// FOR ls_i = dw_msg_fj.RowCount() TO 1 STEP -1
// dw_msg_fj.DeleteRow(ls_i)
// NEXT
//END IF
//
end event
event ue_fj_add_link();//s_inputbox s_ipb
//String ls_linkpath = ''
//Long ls_newrow
//
//s_ipb.Title = '请输入超链接路径'
//OpenWithParm(w_inputbox,s_ipb)
//ls_linkpath = Message.StringParm
//
//IF Trim(ls_linkpath) = '' THEN
// RETURN
//END IF
//
//ls_newrow = dw_msg_fj.InsertRow(0)
//dw_msg_fj.Object.fjname[ls_newrow] = ls_linkpath
//dw_msg_fj.Object.fjpath[ls_newrow] = ls_linkpath
//dw_msg_fj.Object.fjtype[ls_newrow] = 1 //0为文件,1为超链接
//ins_max_fj++
//ins_fjdata[ins_max_fj] = Blob(ls_linkpath)
//
end event
event ue_fj_add();////ue_selectfile
String Pathname,Filename,FileType
Integer i
long row
FileType = ''
FileType = '所有文件(*.*),*.*,'
// FileType += "配置文件(*.ini), *.ini,"
FileType += "Zip压缩文件(*.Zip),*.Zip,"
FileType += "RAR压缩文件(*.rar),*.rar,"
// FileType += "XML文件(*.xml),*.xml,"
FileType += "文本文件(*.txt),*.txt,"
FileType += "Excel模版(*.xlt),*.xlt,"
// FileType += "Excel文档(*.xls),*.xls,"
// FileType += "Word模版(*.dot),*.dot,"
FileType += "Word文档(*.doc),*.doc,"
FileType += "JPG(*.JPG),*.JPG,"
FileType += "位图文件(*.bmp),*.bmp,"
FileType += "GIF文件(*.GIF),*.GIF"
i = GetFileOpenName("请选择文件", Pathname,Filename, "All", FileType)
IF i = 1 AND Trim(Pathname) <> '' AND Trim(Filename) <> "" THEN
IF Pathname = '' OR NOT FileExists(Pathname) THEN
MessageBox('系统提示','请选择文件!')
RETURN
END IF
if FileLength(Pathname)/1024 > 10240 then
messagebox('限制','附件文件大小不得大于10M')
return
end if
row= dw_mt_fj.insertrow(0)
dw_mt_fj.Object.fjpath[row] = Pathname
Long poi = 0,Begin = 1
Begin = Pos(Filename,'.',1)
DO WHILE Begin > 0
poi = Begin
Begin = Pos(Filename,'.',Begin + 1)
LOOP
IF poi > 0 THEN
dw_mt_fj.Object.fjname[row] = Filename//Mid(Filename,1,poi -1)
dw_mt_fj.Object.FileType[row] = Mid(Filename,poi +1,Len(Filename) - poi)
ELSE
dw_mt_fj.Object.fjname[row] = Filename
dw_mt_fj.Object.FileType[row] = ''
END IF
END IF
//Integer i
//Long ls_i,ls_j,ls_newrow,ls_filesize
//Blob ls_filedata
//String Pathname,ls_filename
//String Filename[],errmsg
//i = GetFileSaveName("选择附件",Pathname,Filename[],"*","程序文件,*.*")
//
//IF i = 1 AND Trim(Pathname) <> '' THEN
// FOR ls_i = 1 TO UpperBound(Filename)
// IF UpperBound(Filename) = 1 THEN
// ls_filename = Pathname
// ELSE
// ls_filename = Pathname + '\'+Filename[ls_i]
// END IF
//// IF dw_msg_fj.Find( 'fjpath='+"'"+ls_filename+"'", 0, dw_msg_fj.RowCount()) > 0 THEN
//// CONTINUE;
//// END IF
//// IF f_filetoblob(ls_filename,ls_filedata,errmsg) = 0 THEN
//// MessageBox('系统提示',errmsg)
//// RETURN
//// END IF
//// ls_filesize = Len(ls_filedata)
// ls_newrow = dw_mt_fj.InsertRow(0)
// dw_mt_fj.Object.fjname[ls_newrow] = Filename[ls_i]
// dw_mt_fj.Object.fileid[ls_newrow] = 0
// dw_mt_fj.Object.fjpath[ls_newrow] = ls_filename
// NEXT
//END IF
end event
public function integer wf_addobjdpm (string arg_objdpm);string tmp_objdpm
tmp_objdpm=trim(mle_objdpm.text)
if tmp_objdpm = '' then
mle_objdpm.text=arg_objdpm
else
if pos(tmp_objdpm,arg_objdpm,1) > 0 and len(tmp_objdpm) = len(arg_objdpm) then return 0
if pos(tmp_objdpm,';'+arg_objdpm+';',1) > 0 then return 0
if pos(tmp_objdpm,arg_objdpm+';',1) > 0 then return 0
if pos(tmp_objdpm,';'+arg_objdpm,1) > 0 then return 0
mle_objdpm.text=tmp_objdpm + ';'+arg_objdpm
end if
return 1
end function
public function integer wf_dw ();dw_1.SetRedraw(False)
If rb_user.Checked Then
dw_1.DataObject = 'dw_objdpm_user_mt'
dw_1.SetTransObject(sqlca)
dw_1.Retrieve(sys_empid,ins_kind)
Else
dw_1.DataObject = 'dw_objdpm_usergrp'
dw_1.SetTransObject(sqlca)
dw_1.Retrieve(sys_scid)
End If
dw_1.SetRedraw(True)
Return 1
end function
on w_msg_send_mt.create
int iCurrent
call super::create
this.sle_msgtitle=create sle_msgtitle
this.st_2=create st_2
this.mle_objdpm=create mle_objdpm
this.dw_1=create dw_1
this.rb_usergrp=create rb_usergrp
this.rb_user=create rb_user
this.cb_que=create cb_que
this.cb_1=create cb_1
this.st_1=create st_1
this.sle_billcode=create sle_billcode
this.st_3=create st_3
this.uo_html=create uo_html
this.dw_mt_fj=create dw_mt_fj
this.p_fj_add=create p_fj_add
this.st_4=create st_4
this.st_fj_add=create st_fj_add
this.st_6=create st_6
this.st_send_suc_w=create st_send_suc_w
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.st_send_suc=create st_send_suc
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.sle_msgtitle
this.Control[iCurrent+2]=this.st_2
this.Control[iCurrent+3]=this.mle_objdpm
this.Control[iCurrent+4]=this.dw_1
this.Control[iCurrent+5]=this.rb_usergrp
this.Control[iCurrent+6]=this.rb_user
this.Control[iCurrent+7]=this.cb_que
this.Control[iCurrent+8]=this.cb_1
this.Control[iCurrent+9]=this.st_1
this.Control[iCurrent+10]=this.sle_billcode
this.Control[iCurrent+11]=this.st_3
this.Control[iCurrent+12]=this.uo_html
this.Control[iCurrent+13]=this.dw_mt_fj
this.Control[iCurrent+14]=this.p_fj_add
this.Control[iCurrent+15]=this.st_4
this.Control[iCurrent+16]=this.st_fj_add
this.Control[iCurrent+17]=this.st_6
this.Control[iCurrent+18]=this.st_send_suc_w
this.Control[iCurrent+19]=this.ln_bar
this.Control[iCurrent+20]=this.ln_bar2
this.Control[iCurrent+21]=this.r_bar
this.Control[iCurrent+22]=this.st_send_suc
end on
on w_msg_send_mt.destroy
call super::destroy
destroy(this.sle_msgtitle)
destroy(this.st_2)
destroy(this.mle_objdpm)
destroy(this.dw_1)
destroy(this.rb_usergrp)
destroy(this.rb_user)
destroy(this.cb_que)
destroy(this.cb_1)
destroy(this.st_1)
destroy(this.sle_billcode)
destroy(this.st_3)
destroy(this.uo_html)
destroy(this.dw_mt_fj)
destroy(this.p_fj_add)
destroy(this.st_4)
destroy(this.st_fj_add)
destroy(this.st_6)
destroy(this.st_send_suc_w)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.st_send_suc)
end on
event close;
f_setProfileString (sys_empid,this.classname(), "x",string(this.x))
f_setProfileString (sys_empid,this.classname(), "y",string(this.y))
closewithreturn(this,s_return)
end event
event open;This.TriggerEvent('ue_before_open')
s_msg = Message.PowerObjectParm
ins_kind = 1
dw_mt_fj.SetTransObject(sys_filedb_sqlca)
wf_dw()
If Integer(f_ProfileString (sys_empid,This.ClassName(), "x",String(This.X))) = 0 Then
This.X = 23
This.Y = 24
Else
This.X = Integer(f_ProfileString (sys_empid,This.ClassName(), "x",String(This.X)))
This.Y = Integer(f_ProfileString (sys_empid,This.ClassName(), "y",String(This.Y)))
End If
If s_msg.ifback = 1 Then
mle_objdpm.Text = s_msg.sendemp
sle_billcode.Text = s_msg.billcode
sle_msgtitle.Text = '回复:'+s_msg.msgtitle
uo_html.uf_sethtml('
' + s_msg.msg)
Else
sle_billcode.Text = s_msg.billcode
If s_msg.ifpmc = 0 Then
If Trim(s_msg.relcode) <> '' Then
uo_html.uf_sethtml('附件为单号:'+s_msg.relcode+'的唛头文件，请查收')
ElseIf Trim(s_msg.billcode) <> '' Then
uo_html.uf_sethtml('附件为单号:'+s_msg.billcode+'的唛头文件，请查收')
End If
Elseif s_msg.ifpmc = 1 Then
uo_html.uf_sethtml('销售订单:'+s_msg.billcode+'唛头用料已审核，请跟进')
Elseif s_msg.ifpmc = 2 Then
uo_html.uf_sethtml('销售订单:'+s_msg.billcode+'唛头文件已审核，请进行增加唛头用料操作')
End If
End If
//读取最近一次发送唛头邮件时的收件人
String ls_objdpm
Select top 1 objdpm
Into :ls_objdpm
From Sys_admsg
Where kind = 1
And sendempid = :sys_empid
Order By msgid Desc;
If sqlca.SQLCode = 0 Then
mle_objdpm.Text = ls_objdpm
End If
//刷新销售订单唛头附件
dw_mt_fj.Retrieve(sys_mt_classid,s_msg.scid,s_msg.relid,s_msg.billtype,0)
end event
event key;if keydown(KeyControl!) and keydown(keyS!) then
cb_que.triggerevent(clicked!)
return 1
end if
end event
event resize;call super::resize;//if newwidth < 3493 then this.width = 3493
//if newheight < 2388 then this.height = 2388
ln_bar.endx = this.width
ln_bar2.endx = this.width
r_bar.width = this.width
//dw_1.x = this.width - dw_1.width - 40
//rb_user.x = dw_1.x + 50
//rb_usergrp.x = dw_1.x + 300
//
//mle_objdpm.width = dw_1.x - mle_objdpm.x
//sle_msgtitle.width = mle_objdpm.width
//
//uo_html.width = dw_1.x - uo_html.x
//dw_mt_fj.width = uo_html.width
//
//
//
//dw_1.height = this.height - dw_1.y - 140
//
//uo_html.height = this.height - uo_html.y - dw_mt_fj.height - 140
//
//dw_mt_fj.y = uo_html.y + uo_html.height
end event
type cb_func from w_publ_base`cb_func within w_msg_send_mt
boolean visible = false
integer x = 14
integer y = 1092
integer width = 133
integer taborder = 10
boolean enabled = false
string text = ""
end type
type cb_exit from w_publ_base`cb_exit within w_msg_send_mt
integer x = 594
integer width = 151
integer height = 164
integer taborder = 110
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type
type sle_msgtitle from singlelineedit within w_msg_send_mt
event key pbm_keydown
integer x = 256
integer y = 372
integer width = 2560
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "唛头资料"
boolean autohscroll = false
end type
event modified;keybd_event ( 9, 0, 0 , 0 ) // 按下tab
keybd_event ( 9, 0, 2, 0 ) // 释放tab
return 1
end event
type st_2 from statictext within w_msg_send_mt
integer x = 23
integer y = 388
integer width = 224
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
boolean enabled = false
string text = "标题："
alignment alignment = right!
boolean focusrectangle = false
end type
type mle_objdpm from multilineedit within w_msg_send_mt
event key pbm_dwnkey
integer x = 256
integer y = 200
integer width = 2560
integer height = 164
integer taborder = 20
boolean bringtotop = true
integer textsize = -11
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
end type
type dw_1 from u_dw_rbtnfilter within w_msg_send_mt
integer x = 2821
integer y = 260
integer width = 658
integer height = 2216
integer taborder = 130
boolean bringtotop = true
string dataobject = "dw_objdpm_user_mt"
boolean vscrollbar = true
borderstyle borderstyle = stylebox!
boolean rbutton_filter_use = true
end type
event rowfocuschanged;//if currentrow<=0 then return
//this.selectrow(0,false)
//this.selectrow(currentrow,true)
end event
event doubleclicked;if row<=0 then return
string ls_objdpm
if rb_user.checked then
ls_objdpm=dw_1.object.u_user_username[row]
else
ls_objdpm=dw_1.object.usergroup[row]
end if
wf_addobjdpm(ls_objdpm)
end event
type rb_usergrp from radiobutton within w_msg_send_mt
integer x = 3118
integer y = 196
integer width = 247
integer height = 52
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "用户组"
end type
event clicked;wf_dw()
end event
type rb_user from radiobutton within w_msg_send_mt
integer x = 2871
integer y = 196
integer width = 247
integer height = 52
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "用户"
boolean checked = true
end type
event clicked;wf_dw()
end event
type cb_que from uo_imflatbutton within w_msg_send_mt
integer width = 398
integer height = 164
integer taborder = 60
string text = "发送[Ctrl+s]"
string normalpicname = "email_view2.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type
event clicked;call super::clicked;String ls_objdpm,ls_msgtitle,ls_s_msg,arg_msg,ls_billcode
Boolean ifcommit
Long ls_i
ls_objdpm = Trim(mle_objdpm.Text)
ls_msgtitle = Trim(sle_msgtitle.Text)
ls_s_msg = Trim(uo_html.uf_gethtml( ))
ls_billcode = Trim(sle_billcode.Text)
If Trim(ls_objdpm) = '' Then
MessageBox('系统提示','请指定收件人')
mle_objdpm.SetFocus()
Return
End If
If Trim(ls_msgtitle) = '' Then
MessageBox('系统提示','请输入标题')
sle_msgtitle.SetFocus()
Return
End If
Blob ls_filedata,ls_filedate_arr[]
Long ll_cnt_fj
String ls_fjname
Long ll_FileID
For ls_i = 1 To dw_mt_fj.RowCount()
ls_fjname = dw_mt_fj.Object.fjname[ls_i]
ll_FileID = dw_mt_fj.Object.fileid[ls_i]
If ll_FileID = 0 Then
If f_filetoblob(dw_mt_fj.Object.fjpath[ls_i],ls_filedata,arg_msg) = 0 Then
MessageBox('系统提示','文件读取失败:'+ls_fjname+'~r~n'+arg_msg)
Return
End If
Else
SelectBlob FileData
Into :ls_filedata
From U_File
Where (fileid = :ll_FileID) Using sys_filedb_sqlca;
if sys_filedb_sqlca.sqlcode <> 0 then
MessageBox('系统提示','文件读取失败:'+ls_fjname+'~r~n'+sys_filedb_sqlca.sqlerrtext)
Return
End If
End If
ll_cnt_fj++
ls_filedate_arr[ll_cnt_fj] = ls_filedata
Next
If dw_mt_fj.RowCount() = 0 Then
ifcommit = True
Else
ifcommit = False
End If
If uo_msg.f_create_admsg(sys_empid,publ_operator,ls_objdpm,ls_msgtitle,ls_s_msg,arg_msg,0,ls_billcode,ifcommit) = 0 Then
MessageBox('系统提示','消息发送失败'+'~r~n'+arg_msg)
Return
End If
For ls_i = 1 To dw_mt_fj.RowCount()
If ls_i = dw_mt_fj.RowCount() Then
ifcommit = True
Else
ifcommit = False
End If
If uo_msg.f_save_fj(uo_msg.uo_msgid,&
dw_mt_fj.Object.fjname[ls_i],&
ls_filedate_arr[ls_i],&
0,&
0,arg_msg,ifcommit) = 0 Then
MessageBox('系统提示','添加附件失败'+'~r~n'+arg_msg)
Return
End If
Next
s_return.ifsend = 1
st_send_suc_w.visible = true
st_send_suc.visible = true
long begintime ,endtime,stoptime
begintime = cpu()
do while stoptime < 600//(毫秒)
// Yield()
endtime = cpu()
stoptime = endtime - begintime
loop
cb_exit.postevent(clicked!)
//Close(Parent)
end event
type cb_1 from uo_imflatbutton within w_msg_send_mt
boolean visible = false
integer x = 398
integer width = 197
integer height = 164
integer taborder = 70
boolean bringtotop = true
string text = "附件"
string normalpicname = "email_fj.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type
event clicked;call super::clicked; m_Dfc_Control_PopupMenu dmPopupMenu
String menustr,ls_level
menustr = "Text=添附件~tEvent=ue_fj_add"
menustr = menustr + "|" + "Text=添链接~tEvent=ue_fj_add_link"
menustr = menustr + "|" + "Text=-"
menustr = menustr + "|" + "Text=删条目~tEvent=ue_fj_del"
menustr = menustr + "|" + "Text=清空~tEvent=ue_fj_del_all"
IF Len(Trim(menustr)) <> 0 THEN
dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
dmPopupMenu.mf_BuildMenu(THIS, menustr)
dmPopupMenu.mf_PopMenu()
DESTROY dmPopupMenu
END IF
end event
type st_1 from statictext within w_msg_send_mt
integer x = 23
integer y = 200
integer width = 224
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "收件人："
alignment alignment = right!
boolean focusrectangle = false
end type
type sle_billcode from singlelineedit within w_msg_send_mt
event key pbm_keydown
integer x = 256
integer y = 464
integer width = 704
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean autohscroll = false
end type
event modified;keybd_event ( 9, 0, 0 , 0 ) // 按下tab
keybd_event ( 9, 0, 2, 0 ) // 释放tab
return 1
end event
type st_3 from statictext within w_msg_send_mt
integer x = 23
integer y = 480
integer width = 224
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "相关号："
alignment alignment = right!
boolean focusrectangle = false
end type
type uo_html from uo_html_editor within w_msg_send_mt
integer x = 256
integer y = 564
integer width = 2560
integer height = 912
integer taborder = 60
boolean bringtotop = true
boolean border = true
end type
on uo_html.destroy
call uo_html_editor::destroy
end on
type dw_mt_fj from datawindow within w_msg_send_mt
integer x = 256
integer y = 1572
integer width = 2560
integer height = 908
integer taborder = 20
boolean bringtotop = true
string title = "none"
string dataobject = "dw_msg_mt_fj"
boolean vscrollbar = true
boolean livescroll = true
end type
event clicked;if row > 0 then
this.setrow(row)
if dwo.name = 'del' then
parent.triggerevent('ue_fj_del')
end if
end if
end event
type p_fj_add from picture within w_msg_send_mt
integer x = 261
integer y = 1496
integer width = 73
integer height = 64
boolean bringtotop = true
boolean originalsize = true
string picturename = "mt_fj_add.png"
boolean focusrectangle = false
end type
event clicked;parent.triggerevent('ue_fj_add')
end event
type st_4 from statictext within w_msg_send_mt
integer x = 23
integer y = 576
integer width = 224
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "正文："
alignment alignment = right!
boolean focusrectangle = false
end type
type st_fj_add from statictext within w_msg_send_mt
integer x = 352
integer y = 1504
integer width = 256
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 134217856
long backcolor = 16777215
string text = "添加附件"
boolean focusrectangle = false
end type
event clicked;parent.triggerevent('ue_fj_add')
end event
type st_6 from statictext within w_msg_send_mt
integer x = 23
integer y = 1592
integer width = 224
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "附件："
alignment alignment = right!
boolean focusrectangle = false
end type
type st_send_suc_w from statictext within w_msg_send_mt
boolean visible = false
integer x = 1285
integer y = 76
integer width = 704
integer height = 236
boolean bringtotop = true
integer textsize = -20
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "黑体"
long textcolor = 33554432
long backcolor = 15793151
boolean border = true
long bordercolor = 12632256
boolean focusrectangle = false
end type
type ln_bar from line within w_msg_send_mt
long linecolor = 268435456
integer linethickness = 4
integer beginy = 172
integer endx = 3200
integer endy = 172
end type
type ln_bar2 from line within w_msg_send_mt
long linecolor = 16777215
integer linethickness = 4
integer beginx = 14
integer beginy = 176
integer endx = 3278
integer endy = 176
end type
type r_bar from rectangle within w_msg_send_mt
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 2126
integer y = 40
integer width = 87
integer height = 68
end type
event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5
end event
type st_send_suc from statictext within w_msg_send_mt
boolean visible = false
integer x = 1371
integer y = 136
integer width = 544
integer height = 116
boolean bringtotop = true
integer textsize = -20
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "黑体"
long textcolor = 33554432
long backcolor = 15793151
string text = "发送成功"
boolean focusrectangle = false
end type