$PBExportHeader$w_bmp_editor.srw
forward
global type w_bmp_editor from window
end type
type ole_1 from olecontrol within w_bmp_editor
end type
end forward

global type w_bmp_editor from window
boolean visible = false
integer width = 215
integer height = 144
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
event ue_afteropen ( )
event ue_close ( )
ole_1 ole_1
end type
global w_bmp_editor w_bmp_editor

type variables
s_parm_bmp_editor ins_rslt
oleobject ins_PBHelper_KeySimulator
end variables

event ue_afteropen();ole_1.activate(offsite!)

oleobject keyobj
keyobj = create oleobject

if keyobj.ConnectToNewObject('PBHelper.KeySimulator') <> 0 then
	goto ext
end if

keyobj.Paste()

keyobj.DisconnectObject()

ext:
destroy keyobj
end event

event ue_close();close(this)
end event

on w_bmp_editor.create
this.ole_1=create ole_1
this.Control[]={this.ole_1}
end on

on w_bmp_editor.destroy
destroy(this.ole_1)
end on

event open;Int rslt = 1
String arg_msg

ins_rslt.if_bmp = False

s_parm_bmp_editor s_tran
s_tran = Message.PowerObjectParm

ins_PBHelper_KeySimulator = Create oleobject
IF ins_PBHelper_KeySimulator.ConnectToNewObject('PBHelper.KeySimulator') <> 0 THEN
	rslt = 0
	arg_msg = '未安装.net或未注册PBHelper,不能使用图片编辑模块'
	GOTO ext
END IF

// DONE: CopyToClipboard
ins_PBHelper_KeySimulator.CopyBMP(s_tran.bmp)

This.Post Event ue_afteropen()

ext:
IF rslt = 0 THEN
	MessageBox('错误', arg_msg, stopsign!)
	This.Post Event ue_close()
END IF


end event

event close;ins_PBHelper_KeySimulator.DisconnectObject()
destroy ins_PBHelper_KeySimulator
closewithreturn(this, ins_rslt)
end event

type ole_1 from olecontrol within w_bmp_editor
integer width = 5
integer height = 4
integer taborder = 30
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
string binarykey = "w_bmp_editor.win"
omdisplaytype displaytype = displayascontent!
omcontentsallowed contentsallowed = containsany!
end type

event close;//messagebox('', 'close')

Int rslt = 1
String arg_msg

IF MessageBox('提问', '是否保存修改?', Question!, YesNo!) <> 1 THEN
	GOTO ext
END IF

IF ole_1.Copy() <> 0 THEN
	rslt = 0
	arg_msg = '复制图片失败'
	GOTO ext
END IF

ins_rslt.bmp = ins_PBHelper_KeySimulator.GetBMP()
if isnull(ins_rslt.bmp) then
	rslt = 0
	arg_msg = '获取图片失败'
	GOTO ext
end if
ins_rslt.if_bmp = true

ext:
IF rslt = 0 THEN
	MessageBox('错误', arg_msg, Stopsign!)
END IF
Close(Parent)


end event

event save;//messagebox('', 'save')
end event

event saveobject;//messagebox('', 'saveobject')
end event

event datachange;//messagebox('', 'datachange')
end event

event clicked;//messagebox('', 'clicked')
end event

event constructor;//messagebox('', 'contructor')
end event

event destructor;//messagebox('', 'destructor')
end event

event doubleclicked;//messagebox('', 'doubleclicked')
end event

event dragdrop;//messagebox('', 'dragdrop')
end event

event error;//messagebox('', 'error')
end event

event externalexception;//messagebox('', 'externalexception')
end event

event getfocus;//messagebox('', 'getfocus')
end event

event help;//messagebox('', 'help')
end event

event losefocus;//messagebox('', 'losefocus')
end event

event rename;//messagebox('', 'rename')
end event


Start of PowerBuilder Binary Data Section : Do NOT Edit
02w_bmp_editor.bin 
2700000c00e011cfd0e11ab1a1000000000000000000000000000000000003003e0009fffe000000060000000000000000000000010000000100000000000010000000000200000001fffffffe0000000000000000fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffd00000004fffffffefffffffefffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff006f00520074006f004500200074006e00790072000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000050016ffffffffffffffff000000020003000a00000000000000c046000000000000000000000000000000e2a2c5c001cd98a0000000030000020000000000004f00010065006c00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000102000affffffffffffffffffffffff00000000000000000000000000000000000000000000000000000000000000000000000000000000000000140000000000430001006d006f004f0070006a0062000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010200120000000100000003ffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000010000004d00000000004f00020065006c007200500073006500300030000000300000000000000000000000000000000000000000000000000000000000000000000000000000000001020018ffffffff00000004ffffffff00000000000000000000000000000000000000000000000000000000000000000000000000000003000000bc00000000fffffffe00000002fffffffe0000000400000005fffffffe00000007fffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
2Effffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff02000001000000000000000000000000000000000ba07b0000000000000000000000000000000000000000000000000000000000000000000000000000000000fffe000100000a03ffffffff0003000a00000000000000c0460000000000000775724250070068735000000073757242000700684250000068737572b239f40000000071000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffff000000030000000400000001ffffffff00000002000000000000001a0000001a0000007a00090001003d03000000000000000023000400000103000000050008020c00000001ffff000000050000020b002300000b41000000cc002000010001000000000001ffff000000000000002800000001000000010018000100000000000000040000000000000000000000000000000000ffffff000000030000000000000000000000000000000000000000494e414e000000000000000000000040003a4d42000000000036000000280000000100000001000000010000000000180004000000000000000000000000000000000000ffff0000000000ff00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004f00010065006c003000310061004e0069007400650076000000000000000000000000000000000000000000000000000000000000000000000000000000000002001affffffffffffffffffffffff0000000000000000000000000000000000000000000000000000000000000000000000000000000600000044000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
12w_bmp_editor.bin 
End of PowerBuilder Binary Data Section : No Source Expected After This Point