FXApp/ws_objects/plugins_publ.pbl.src/uo_v2_sle.sru

$PBExportHeader$uo_v2_sle.sru
forward
global type uo_v2_sle from singlelineedit
end type
end forward

global type uo_v2_sle from singlelineedit
integer width = 1019
integer height = 88
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
borderstyle borderstyle = stylelowered!
event ue_textchanged ( string arg_oldtext )
event keydown pbm_keydown
event keyup pbm_keyup
end type
global uo_v2_sle uo_v2_sle

type variables
private string ins_oldtext
end variables

event ue_textchanged(string arg_oldtext);// arg_oldtext: 旧文本
end event

event keydown;triggerevent('Modified')
end event

event keyup;triggerevent('Modified')
end event

on uo_v2_sle.create
end on

on uo_v2_sle.destroy
end on

event constructor;triggerevent('Modified')
end event

event modified;String ls_oldtext
ls_oldtext = ins_oldtext
ins_oldtext = This.Text
IF ls_oldtext <> ins_oldtext THEN
	Trigger Event ue_textchanged(ls_oldtext)
END IF

end event

event getfocus;triggerevent('Modified')
end event

event losefocus;triggerevent('Modified')
end event