Q5/ws_objects/Ew_publ903.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
end forward

global type w_message_err from w_publ_base
integer width = 2811
integer height = 1532
string title = "提示信息"
boolean minbox = false
windowtype windowtype = response!
mle_1 mle_1
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

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

on w_message_err.destroy
call super::destroy
destroy(this.mle_1)
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

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

type cb_func from w_publ_base`cb_func within w_message_err
integer x = 928
integer y = 1344
integer width = 302
integer height = 100
string text = "复制"
string normalpicname = "COPY.BMP"
toolbaralignment pic_align = alignatleft!
boolean border = true
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
integer x = 1591
integer y = 1344
integer width = 302
integer height = 100
string text = "确定"
integer picsize = 16
end type

type mle_1 from multilineedit within w_message_err
event keydown pbm_keydown
integer width = 2793
integer height = 1328
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;IF KeyDown(keyA!) and KeyDown(keycontrol!) then
	this.SelectText( 1,len(this.text))
end if

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

end event