PBMiner

$PBExportHeader$w_zoom.srw
forward
global type w_zoom from window
end type
type em_pct from editmask within w_zoom
end type
type rb_custom from radiobutton within w_zoom
end type
type rb_50 from radiobutton within w_zoom
end type
type rb_75 from radiobutton within w_zoom
end type
type rb_100 from radiobutton within w_zoom
end type
type rb_200 from radiobutton within w_zoom
end type
type cb_cancel from commandbutton within w_zoom
end type
type cb_ok from commandbutton within w_zoom
end type
end forward

global type w_zoom from window
integer width = 1221
integer height = 564
boolean titlebar = true
string title = "Zoom"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
em_pct em_pct
rb_custom rb_custom
rb_50 rb_50
rb_75 rb_75
rb_100 rb_100
rb_200 rb_200
cb_cancel cb_cancel
cb_ok cb_ok
end type
global w_zoom w_zoom

on w_zoom.create
this.em_pct=create em_pct
this.rb_custom=create rb_custom
this.rb_50=create rb_50
this.rb_75=create rb_75
this.rb_100=create rb_100
this.rb_200=create rb_200
this.cb_cancel=create cb_cancel
this.cb_ok=create cb_ok
this.Control[]={this.em_pct,&
this.rb_custom,&
this.rb_50,&
this.rb_75,&
this.rb_100,&
this.rb_200,&
this.cb_cancel,&
this.cb_ok}
end on

on w_zoom.destroy
destroy(this.em_pct)
destroy(this.rb_custom)
destroy(this.rb_50)
destroy(this.rb_75)
destroy(this.rb_100)
destroy(this.rb_200)
destroy(this.cb_cancel)
destroy(this.cb_ok)
end on

event open;Integer li_zoom

li_zoom = Message.DoubleParm

em_pct.Enabled = False

choose case li_zoom
   case 200
      rb_200.Checked = True
   case 100
      rb_100.Checked = True
   case 75
      rb_75.Checked = True
   case 50
      rb_50.Checked = True
   case else
      rb_custom.Checked = True
      em_pct.Enabled = True
      em_pct.Text = String(li_zoom)
end choose

end event

type em_pct from editmask within w_zoom
integer x = 439
integer y = 328
integer width = 151
integer height = 84
integer taborder = 20
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Segoe UI"
long textcolor = 33554432
boolean enabled = false
string text = "100"
borderstyle borderstyle = stylelowered!
string mask = "##0"
string minmax = "~~"
end type

type rb_custom from radiobutton within w_zoom
integer x = 73
integer y = 336
integer width = 297
integer height = 68
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Segoe UI"
long textcolor = 33554432
long backcolor = 67108864
string text = "Custom"
end type

event clicked;em_pct.Enabled = True

end event

type rb_50 from radiobutton within w_zoom
integer x = 439
integer y = 192
integer width = 297
integer height = 68
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Segoe UI"
long textcolor = 33554432
long backcolor = 67108864
string text = "50"
end type

event clicked;em_pct.Enabled = False

end event

type rb_75 from radiobutton within w_zoom
integer x = 439
integer y = 64
integer width = 297
integer height = 68
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Segoe UI"
long textcolor = 33554432
long backcolor = 67108864
string text = "75"
end type

event clicked;em_pct.Enabled = False

end event

type rb_100 from radiobutton within w_zoom
integer x = 73
integer y = 192
integer width = 297
integer height = 68
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Segoe UI"
long textcolor = 33554432
long backcolor = 67108864
string text = "100"
boolean checked = true
end type

event clicked;em_pct.Enabled = False

end event

type rb_200 from radiobutton within w_zoom
integer x = 73
integer y = 64
integer width = 297
integer height = 68
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Segoe UI"
long textcolor = 33554432
long backcolor = 67108864
string text = "200"
end type

event clicked;em_pct.Enabled = False

end event

type cb_cancel from commandbutton within w_zoom
integer x = 805
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 = "Segoe UI"
string text = "Cancel"
boolean cancel = true
end type

event clicked;CloseWithReturn(Parent, 0)

end event

type cb_ok from commandbutton within w_zoom
integer x = 805
integer y = 64
integer width = 334
integer height = 100
integer taborder = 10
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Segoe UI"
string text = "OK"
boolean default = true
end type

event clicked;Integer li_zoom

If rb_200.Checked Then
   li_zoom = 200
End If

If rb_100.Checked Then
   li_zoom = 100
End If

If rb_75.Checked Then
   li_zoom = 75
End If

If rb_50.Checked Then
   li_zoom = 50
End If

If rb_custom.Checked Then
   li_zoom = Integer(em_pct.text)
End If

CloseWithReturn(Parent, li_zoom)

end event