PBMiner

$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