$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
File: w_edit_property.srw
Size: 5123
Date: Tue, 22 Aug 2017 17:30:58 +0200
Size: 5123
Date: Tue, 22 Aug 2017 17:30:58 +0200
- window w_edit_property(srw)
- commandbutton cb_save
- singlelineedit sle_value
- statictext st_2
- statictext st_1
- singlelineedit sle_property
- commandbutton cb_1