PBMiner

$PBExportHeader$w_edit_property.srw
forward
global type w_edit_property from window
end type
type cb_save from commandbutton within w_edit_property
end type
type sle_value from singlelineedit within w_edit_property
end type
type st_2 from statictext within w_edit_property
end type
type st_1 from statictext within w_edit_property
end type
type sle_property from singlelineedit within w_edit_property
end type
type cb_1 from commandbutton within w_edit_property
end type
end forward

global type w_edit_property from window
integer width = 1691
integer height = 656
boolean titlebar = true
string title = "Edit Property"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_save cb_save
sle_value sle_value
st_2 st_2
st_1 st_1
sle_property sle_property
cb_1 cb_1
end type
global w_edit_property w_edit_property

type variables
Long il_row
String is_entitytype
String is_entityname
String is_property

end variables

on w_edit_property.create
this.cb_save=create cb_save
this.sle_value=create sle_value
this.st_2=create st_2
this.st_1=create st_1
this.sle_property=create sle_property
this.cb_1=create cb_1
this.Control[]={this.cb_save,&
this.sle_value,&
this.st_2,&
this.st_1,&
this.sle_property,&
this.cb_1}
end on

on w_edit_property.destroy
destroy(this.cb_save)
destroy(this.sle_value)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.sle_property)
destroy(this.cb_1)
end on

event open;// get passed datawindow row
il_row = Message.doubleparm

If il_row = 0 Then
   sle_property.Enabled = True
   sle_property.SetFocus()
   is_entitytype     = w_main.dw_props.GetItemString(1, "entitytype")
   is_entityname     = w_main.dw_props.GetItemString(1, "entityname")
   this.title = "Add Property"
Else
   sle_property.Enabled = False
   sle_value.SetFocus()
   sle_property.text = w_main.dw_props.GetItemString(il_row, "property")
   sle_value.text    = w_main.dw_props.GetItemString(il_row, "value")
   is_entitytype     = w_main.dw_props.GetItemString(il_row, "entitytype")
   is_entityname     = w_main.dw_props.GetItemString(il_row, "entityname")
   this.title = "Edit Property"
End If

end event

type cb_save from commandbutton within w_edit_property
integer x = 37
integer y = 416
integer width = 370
integer height = 100
integer taborder = 30
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Save"
end type

event clicked;String ls_property, ls_value

ls_property = sle_property.text
ls_value    = sle_value.text

If ls_property = "" Then
   MessageBox(parent.title + " - Edit Error", "Property is required!")
   sle_property.SetFocus()
   Return
End If

gn_conn.of_set_jagproperty(is_entitytype, is_entityname, ls_property, ls_value)

w_main.wf_load_properties(is_entitytype, is_entityname)

Close(Parent)

end event

type sle_value from singlelineedit within w_edit_property
integer x = 37
integer y = 288
integer width = 1577
integer height = 80
integer taborder = 20
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_edit_property
integer x = 37
integer y = 224
integer width = 343
integer height = 64
integer textsize = -8
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Value:"
boolean focusrectangle = false
end type

type st_1 from statictext within w_edit_property
integer x = 37
integer y = 32
integer width = 343
integer height = 64
integer textsize = -8
integer weight = 700
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
long backcolor = 67108864
string text = "Property:"
boolean focusrectangle = false
end type

type sle_property from singlelineedit within w_edit_property
integer x = 37
integer y = 96
integer width = 1577
integer height = 80
integer taborder = 10
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cb_1 from commandbutton within w_edit_property
integer x = 1280
integer y = 416
integer width = 334
integer height = 100
integer taborder = 30
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Tahoma"
string text = "Close"
boolean cancel = true
end type

event clicked;Close(Parent)

end event