$PBExportHeader$w_longlines.srw forward global type w_longlines from window end type type cbx_active from checkbox within w_longlines end type type em_columns from editmask within w_longlines end type type st_1 from statictext within w_longlines end type type cb_ok from commandbutton within w_longlines end type type cb_cancel from commandbutton within w_longlines end type end forward global type w_longlines from window integer width = 965 integer height = 564 boolean titlebar = true string title = "Set Long Lines" boolean controlmenu = true windowtype windowtype = response! long backcolor = 67108864 string icon = "AppIcon!" boolean center = true cbx_active cbx_active em_columns em_columns st_1 st_1 cb_ok cb_ok cb_cancel cb_cancel end type global w_longlines w_longlines on w_longlines.create this.cbx_active=create cbx_active this.em_columns=create em_columns this.st_1=create st_1 this.cb_ok=create cb_ok this.cb_cancel=create cb_cancel this.Control[]={this.cbx_active,& this.em_columns,& this.st_1,& this.cb_ok,& this.cb_cancel} end on on w_longlines.destroy destroy(this.cbx_active) destroy(this.em_columns) destroy(this.st_1) destroy(this.cb_ok) destroy(this.cb_cancel) end on event open;em_columns.text = gn_app.of_GetReg("EdgeColumns", "72") If gn_app.of_GetReg("EdgeMode", "false") = "false" Then cbx_active.Checked = False Else cbx_active.Checked = True End If end event type cbx_active from checkbox within w_longlines integer x = 73 integer y = 192 integer width = 553 integer height = 68 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Highlight Long Lines" end type type em_columns from editmask within w_longlines integer x = 329 integer y = 64 integer width = 187 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 string text = "1" borderstyle borderstyle = stylelowered! string mask = "#####" end type type st_1 from statictext within w_longlines integer x = 73 integer y = 72 integer width = 251 integer height = 68 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" long textcolor = 33554432 long backcolor = 67108864 string text = "Columns:" boolean focusrectangle = false end type type cb_ok from commandbutton within w_longlines integer x = 73 integer y = 320 integer width = 334 integer height = 100 integer taborder = 20 integer textsize = -8 integer weight = 400 fontcharset fontcharset = ansi! fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "Tahoma" string text = "OK" boolean default = true end type event clicked; gn_app.of_SetReg("EdgeColumns", em_columns.text) If cbx_active.Checked Then gn_app.of_SetReg("EdgeMode", "true") Else gn_app.of_SetReg("EdgeMode", "false") End If CloseWithReturn(Parent, "ok") end event type cb_cancel from commandbutton within w_longlines integer x = 549 integer y = 320 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 = "Cancel" boolean cancel = true end type event clicked;CloseWithReturn(Parent, "cancel") end event
File: w_longlines.srw
Size: 3780
Date: Tue, 06 Oct 2020 13:20:48 +0200
Size: 3780
Date: Tue, 06 Oct 2020 13:20:48 +0200
- window w_longlines(srw)
- checkbox cbx_active
- editmask em_columns
- statictext st_1
- commandbutton cb_ok
- commandbutton cb_cancel