Q5/ws_objects/Ew_mainface.pbl.src/w_main_child_in.srw

$PBExportHeader$w_main_child_in.srw
forward
global type w_main_child_in from w_mface_base
end type
type p_rb from picture within w_main_child_in
end type
end forward

global type w_main_child_in from w_mface_base
integer x = 1001
integer y = 80
integer width = 2601
integer height = 1352
boolean titlebar = false
string title = ""
boolean controlmenu = false
boolean minbox = false
boolean maxbox = false
boolean resizable = false
boolean border = false
windowtype windowtype = child!
p_rb p_rb
end type
global w_main_child_in w_main_child_in

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

on w_main_child_in.destroy
call super::destroy
destroy(this.p_rb)
end on

event open;
string ls_picturename
CHOOSE CASE sys_version
	CASE 802001
		if sys_ifoem = 1 then 
            ls_picturename = ProfileString (sys_inioem, "oem", "syb_picture",'syb_picture')
            p_rb.PictureName = "graphics\" + ls_picturename //'mf_in_rlpic_biz.bmp'
		ELSE
			p_rb.PictureName = "graphics\商业版.png" //'mf_in_rlpic_biz.bmp'
		END IF
	CASE 802002
		if sys_ifoem = 1 then 
            ls_picturename = ProfileString (sys_inioem, "oem", "gyb_picture",'gyb_picture')
            p_rb.PictureName = "graphics\" + ls_picturename //'mf_in_rlpic_biz.bmp'
		ELSE
			p_rb.PictureName = "graphics\工业版.png" //'mf_in_rlpic.bmp'
		END IF
	CASE 802003
		if sys_ifoem = 1 then 
            ls_picturename = ProfileString (sys_inioem, "oem", "gybj_picture",'gybj_picture')
            p_rb.PictureName = "graphics\" + ls_picturename //'mf_in_rlpic_biz.bmp'
		ELSE
			p_rb.PictureName = "graphics\工业版+.png" //'mf_in_rlpic+.bmp'
		END IF
END CHOOSE

//IF sys_version = 802002  THEN
//	p_rb.PictureName = 'mf_in_rlpic.bmp'
//ELSE
//	p_rb.PictureName = 'mf_in_rlpic+.bmp'
//END IF
SetNull(io_cont)
Timer(sys_option_switch_chktime,This)
end event

event mousemove;call super::mousemove;//window ls_w
//ls_w=this.parentwindow()
//ls_w.triggerevent("mousemove")
end event

event closequery;return 1
end event

event key;f_x_genapp_frame()
end event

type p_rb from picture within w_main_child_in
event mousemove pbm_mousemove
integer width = 2615
integer height = 1356
boolean originalsize = true
string picturename = "graphics\工业版.png"
boolean focusrectangle = false
end type

event mousemove;parent.triggerevent("mousemove")
end event