w_picture.srw

某 房 产 公 司 售 楼 管 理 系 统

$PBExportHeader$w_picture.srw
$PBExportComments$图形放大
forward
global type w_picture from window
end type
type p_1 from picture within w_picture
end type
end forward

global type w_picture from window
integer x = 974
integer y = 388
integer width = 1490
integer height = 1208
boolean titlebar = true
string title = "照片放大"
boolean controlmenu = true
windowtype windowtype = popup!
long backcolor = 79741120
string icon = "Error!"
p_1 p_1
end type
global w_picture w_picture

type variables
blob lb_czzp
end variables

on w_picture.create
this.p_1=create p_1
this.Control[]={this.p_1}
end on

on w_picture.destroy
destroy(this.p_1)
end on

event open;
//str_picture str_pic
string s_name,s_cph
integer i_wwidth,i_wheight,i_pwidth,i_pheight,i_x,i_y
blob lb_cz,lb_cl,lb_jsy1,lb_jsy2,lb_cwy

//str_pic=message.powerobjectparm
//i_wwidth=str_pic.str_wwidth
//i_wheight=str_pic.str_wheight
//i_x=str_pic.str_wx
//i_y=str_pic.str_wy
//s_name=str_pic.str_name
//s_cph=str_pic.str_cph

this.width=i_wwidth
this.height=i_wheight
this.x=i_x
this.y=i_y
this.title=s_name+"照片放大"
//p_1.x=str_pic.str_px
//p_1.y=str_pic.str_py

 //gconn_xt.CreateInstance(luo_remote)

//choose case s_name
//	case "车主"
//		lb_cz=luo_remote.uf_select_blob(s_cph,"z_clczqk","cz")
//		p_1.setpicture(lb_cz)
//	case "车辆"
//		lb_cl=luo_remote.uf_select_blob(s_cph,"z_clczqk","cl")
//		p_1.setpicture(lb_cl)
//	case "驾驶员1"
//		lb_jsy1=luo_remote.uf_select_blob(s_cph,"z_jsycwy","jsy1")
//		p_1.setpicture(lb_jsy1)
//	case "驾驶员2"
//		lb_jsy2=luo_remote.uf_select_blob(s_cph,"z_jsycwy","jsy2")
//		p_1.setpicture(lb_jsy2)
//	case "乘务员"
//		lb_cwy=luo_remote.uf_select_blob(s_cph,"z_jsycwy","cwy")
//		p_1.setpicture(lb_cwy)
//
//end choose
end event
type p_1 from picture within w_picture
integer x = 82
integer y = 68
integer width = 1307
integer height = 996
boolean originalsize = true
boolean focusrectangle = false
end type

event clicked;close(w_picture)
end event