type cb_2 from uo_commandbutton within uo_custom
integer x = 1609
integer y = 716
integer width = 320
integer taborder = 80
boolean enabled = false
string text = "快照"
end type
event clicked;call super::clicked;//QiuHu-MLS writed at 2005/08/24
string s_map
s_map='c:\save.bmp'
if FileExists(s_map) then FileDelete(s_map)
if lhand <> 0 then
Send(lhand,WM_CAP_SAVEDIB,0,s_map);
p_1.visible = true
st_1.visible = false
p_1.picturename = s_map
send(lhand, WM_CAP_DRIVER_DISCONNECT, 0, 0)
lhand =0
this.enabled = false
cb_1.enabled = true
end if
end event
type cb_1 from uo_commandbutton within uo_custom
integer x = 1230
integer y = 716
integer width = 320
integer taborder = 70
string text = "摄像头获取"
end type
event clicked;call super::clicked;//QiuHu-MLS writed at 2005/08/24
string lpszName,s
ulong l1
setpointer(hourglass!)
p_1.visible = false
st_1.visible = true
l1=handle(st_1)
lpszName='本地视频'
//lhand=capCreateCaptureWindowA(lpszName,262144+12582912+1073741824 + 268435456,0,0,UnitsToPixels(st_1.width,XUnitsToPixels!),UnitsToPixels(st_1.height,YUnitsToPixels!),l1,0)
lhand=capCreateCaptureWindowA(lpszName,262144+12582912+1073741824 + 268435456 ,-5,-30,320,240,l1,0)
if lhand <> 0 then
send(lhand, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0)
send(lhand, WM_CAP_SET_CALLBACK_ERROR, 0, 0)
send(lhand, WM_CAP_SET_CALLBACK_STATUSA, 0, 0)
send(lhand, WM_CAP_DRIVER_CONNECT, 0, 0)
send(lhand, WM_CAP_SET_SCALE, 1, 0)
send(lhand, WM_CAP_SET_PREVIEWRATE, 66, 0)
send(lhand, WM_CAP_SET_OVERLAY, 1, 0)
send(lhand, WM_CAP_SET_PREVIEW, 1, 0)
cb_2.enabled = true
end if
setpointer(arrow!)
end event
type st_1 from statictext within uo_custom
integer x = 421
integer y = 84
integer width = 699
integer height = 616
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
alignment alignment = center!
boolean border = true
boolean focusrectangle = false
end type
type p_1 from picture within uo_custom
integer x = 1230
integer y = 84
integer width = 699
integer height = 616
boolean enabled = false
boolean border = true
boolean focusrectangle = false
end type
type sle_addr from singlelineedit within uo_custom
integer x = 325
integer y = 700
integer width = 869
integer height = 104
integer taborder = 60
integer textsize = -9
integer limit = 50
end type
type sle_phone from singlelineedit within uo_custom
integer x = 325
integer y = 572
integer width = 869
integer height = 104
integer taborder = 50
integer textsize = -9
integer limit = 50
end type
type sle_id from singlelineedit within uo_custom
integer x = 325
integer y = 448
integer width = 869
integer height = 104
integer taborder = 40
integer textsize = -9
integer limit = 20
end type
type sle_name from singlelineedit within uo_custom
integer x = 325
integer y = 84
integer width = 869
integer height = 104
integer taborder = 10
integer textsize = -9
integer limit = 8
end type
type ddlb_type from dropdownlistbox within uo_custom
event ue_keydown pbm_keydown
integer x = 325
integer y = 332
integer width = 869
integer height = 376
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
string item[] = {"身份证","学生证","教师证","军官证","老年证","驾驶证"}
borderstyle borderstyle = stylelowered!
end type
event selectionchanged;send(handle(this),256,9,0)
return 1
end event
type ddlb_sex from dropdownlistbox within uo_custom
integer x = 325
integer y = 212
integer width = 869
integer height = 376
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean sorted = false
string item[] = {"男","女"}
borderstyle borderstyle = stylelowered!
end type
event selectionchanged;send(handle(this),256,9,0)
return 1
end event
type st_12 from statictext within uo_custom
integer x = 59
integer y = 728
integer width = 283
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "地 址："
boolean focusrectangle = false
end type
type st_11 from statictext within uo_custom
integer x = 59
integer y = 604
integer width = 274
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "电话号码："
boolean focusrectangle = false
end type
type st_10 from statictext within uo_custom
integer x = 59
integer y = 480
integer width = 274
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "证件号码："
boolean focusrectangle = false
end type
type st_9 from statictext within uo_custom
integer x = 59
integer y = 356
integer width = 274
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "证件类型："
boolean focusrectangle = false
end type
type st_8 from statictext within uo_custom
integer x = 59
integer y = 240
integer width = 283
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "性 别："
boolean focusrectangle = false
end type
type st_7 from statictext within uo_custom
integer x = 59
integer y = 120
integer width = 283
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "姓 名："
boolean focusrectangle = false
end type
type gb_2 from groupbox within uo_custom
integer x = 14
integer width = 1947
integer height = 1008
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "会员信息资料"
end type
