FXApp/ws_objects/plugins_publ.pbl.src/w_message_err.srw

$PBExportHeader$w_message_err.srw
forward
global type w_message_err from w_publ_base
end type
type mle_1 from multilineedit within w_message_err
end type
type cb_ok from uo_imflatbutton within w_message_err
end type
end forward

global type w_message_err from w_publ_base
integer width = 2459
integer height = 1388
string title = "提示信息"
boolean minbox = false
windowtype windowtype = response!
event user_key ( )
mle_1 mle_1
cb_ok cb_ok
end type
global w_message_err w_message_err

type variables
string ins_msg

CONSTANT int GWL_STYLE  = -16 
CONSTANT long  WS_THICKFRAME = 262144 
CONSTANT long WS_SYSMENU = 524288 

end variables

event user_key();IF KeyDown(KeyControl!) AND KeyDown(KeyC!) THEN
	mle_1.copy()
end if
end event

on w_message_err.create
int iCurrent
call super::create
this.mle_1=create mle_1
this.cb_ok=create cb_ok
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.mle_1
this.Control[iCurrent+2]=this.cb_ok
end on

on w_message_err.destroy
call super::destroy
destroy(this.mle_1)
destroy(this.cb_ok)
end on

event open;call super::open;//ULong ll_style
//ll_style = GetWindowLongA(Handle(THIS), gwl_style)
//IF ll_style <> 0 THEN
//	SetWindowLongA(Handle(THIS), gwl_style, ll_style +  WS_THICKFRAME + WS_SYSMENU)
//END IF
//
//
//this.width = 2450
//this.height = 1192
ins_msg =  Message.StringParm
mle_1.Text = ins_msg
mle_1.setfocus()
end event

event resize;call super::resize;//IF THIS.Width < 2000 THEN
//	THIS.Width = 2000
//END IF
//
//IF THIS.Height < 900 THEN
//	THIS.Height = 900
//END IF
//
//mle_1.Width = THIS.Width - 30
//mle_1.Height = THIS.Height - 20
//
end event

event key;call super::key;this.TriggerEvent('user_key')
end event

type cb_func from w_publ_base`cb_func within w_message_err
boolean visible = false
integer width = 197
integer height = 164
string text = "复制"
string normalpicname = "COPY.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event cb_func::clicked;Clipboard(mle_1.text)
messagebox('系统提示','复制成功!')
end event

type cb_exit from w_publ_base`cb_exit within w_message_err
boolean visible = false
integer x = 247
integer width = 165
integer height = 164
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type mle_1 from multilineedit within w_message_err
event keydown pbm_keydown
integer width = 2441
integer height = 1184
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean vscrollbar = true
integer tabstop[] = {1,2}
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

event keydown;Parent.TriggerEvent('user_key')

If Key = KeyEnter! Then //
	cb_ok.triggerevent(clicked!)
End If



end event

type cb_ok from uo_imflatbutton within w_message_err
integer x = 1038
integer y = 1196
integer taborder = 20
boolean bringtotop = true
end type

event clicked;call super::clicked;close(parent)
end event