PBMiner

$PBExportHeader$u_tabpage_registry.sru
forward
global type u_tabpage_registry from u_base_tabpage
end type
type cb_delkey from u_base_button within u_tabpage_registry
end type
type cb_delete from u_base_button within u_tabpage_registry
end type
type sle_value from singlelineedit within u_tabpage_registry
end type
type st_3 from statictext within u_tabpage_registry
end type
type cb_set from u_base_button within u_tabpage_registry
end type
type sle_regname from singlelineedit within u_tabpage_registry
end type
type st_1 from statictext within u_tabpage_registry
end type
type sle_regkey from singlelineedit within u_tabpage_registry
end type
type st_2 from statictext within u_tabpage_registry
end type
type cb_get from u_base_button within u_tabpage_registry
end type
end forward

global type u_tabpage_registry from u_base_tabpage
integer height = 1216
string text = "Registry"
cb_delkey cb_delkey
cb_delete cb_delete
sle_value sle_value
st_3 st_3
cb_set cb_set
sle_regname sle_regname
st_1 st_1
sle_regkey sle_regkey
st_2 st_2
cb_get cb_get
end type
global u_tabpage_registry u_tabpage_registry

type variables
n_rapi in_rapi

end variables

on u_tabpage_registry.create
int iCurrent
call super::create
this.cb_delkey=create cb_delkey
this.cb_delete=create cb_delete
this.sle_value=create sle_value
this.st_3=create st_3
this.cb_set=create cb_set
this.sle_regname=create sle_regname
this.st_1=create st_1
this.sle_regkey=create sle_regkey
this.st_2=create st_2
this.cb_get=create cb_get
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_delkey
this.Control[iCurrent+2]=this.cb_delete
this.Control[iCurrent+3]=this.sle_value
this.Control[iCurrent+4]=this.st_3
this.Control[iCurrent+5]=this.cb_set
this.Control[iCurrent+6]=this.sle_regname
this.Control[iCurrent+7]=this.st_1
this.Control[iCurrent+8]=this.sle_regkey
this.Control[iCurrent+9]=this.st_2
this.Control[iCurrent+10]=this.cb_get
end on

on u_tabpage_registry.destroy
call super::destroy
destroy(this.cb_delkey)
destroy(this.cb_delete)
destroy(this.sle_value)
destroy(this.st_3)
destroy(this.cb_set)
destroy(this.sle_regname)
destroy(this.st_1)
destroy(this.sle_regkey)
destroy(this.st_2)
destroy(this.cb_get)
end on

type cb_delkey from u_base_button within u_tabpage_registry
integer x = 1243
integer y = 416
integer width = 334
integer taborder = 70
integer textsize = -8
string text = "Delete Key"
end type

event clicked;call super::clicked;String ls_regkey, ls_subkey
Integer li_rc

ls_regkey = sle_regkey.text
ls_subkey = Mid(ls_regkey, LastPos(ls_regkey, "\") + 1)
ls_regkey = Left(ls_regkey, LastPos(ls_regkey, "\") - 1)

If in_rapi.of_Connect() Then
   li_rc = in_rapi.of_RegistryDeleteKey(ls_regkey, ls_subkey)
   in_rapi.of_Disconnect()
End If

end event

type cb_delete from u_base_button within u_tabpage_registry
integer x = 841
integer y = 416
integer width = 334
integer taborder = 60
integer textsize = -8
string text = "Delete Value"
end type

event clicked;call super::clicked;String ls_regkey, ls_regname
Integer li_rc

ls_regkey  = sle_regkey.text
ls_regname = sle_regname.text

If in_rapi.of_Connect() Then
   li_rc = in_rapi.of_RegistryDelete(ls_regkey, ls_regname)
   in_rapi.of_Disconnect()
End If

end event

type sle_value from singlelineedit within u_tabpage_registry
integer x = 370
integer y = 288
integer width = 1723
integer height = 80
integer taborder = 30
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_3 from statictext within u_tabpage_registry
integer x = 41
integer y = 300
integer width = 306
integer height = 60
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "Value:"
boolean focusrectangle = false
end type

type cb_set from u_base_button within u_tabpage_registry
integer x = 37
integer y = 416
integer width = 334
integer taborder = 40
integer textsize = -8
string text = "Set String"
end type

event clicked;call super::clicked;String ls_regkey, ls_regname, ls_value
Integer li_rc

ls_regkey  = sle_regkey.text
ls_regname = sle_regname.text
ls_value   = sle_value.text

If in_rapi.of_Connect() Then
   li_rc = in_rapi.of_RegistrySet(ls_regkey, &
               ls_regname, RegString!, ls_value)
   in_rapi.of_Disconnect()
End If

end event

type sle_regname from singlelineedit within u_tabpage_registry
integer x = 366
integer y = 160
integer width = 1723
integer height = 80
integer taborder = 20
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
string text = "Location"
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within u_tabpage_registry
integer x = 37
integer y = 172
integer width = 306
integer height = 60
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "Value Name:"
boolean focusrectangle = false
end type

type sle_regkey from singlelineedit within u_tabpage_registry
integer x = 366
integer y = 32
integer width = 1723
integer height = 80
integer taborder = 10
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
string text = "HKEY_CURRENT_USER\Software\Sybase\Adaptive Server Anywhere\9.0"
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within u_tabpage_registry
integer x = 37
integer y = 44
integer width = 306
integer height = 60
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "Registry Key:"
boolean focusrectangle = false
end type

type cb_get from u_base_button within u_tabpage_registry
integer x = 439
integer y = 416
integer width = 334
integer taborder = 50
integer textsize = -8
string text = "Get String"
end type

event clicked;call super::clicked;String ls_regkey, ls_regname, ls_value
Integer li_rc

ls_regkey  = sle_regkey.text
ls_regname = sle_regname.text

If in_rapi.of_Connect() Then
   li_rc = in_rapi.of_RegistryGet(ls_regkey, &
               ls_regname, RegString!, ls_value)
   sle_value.text = ls_value
   in_rapi.of_Disconnect()
End If

end event