$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
File: w_zoom.srw
Size: 5749
Date: Tue, 02 Aug 2022 15:41:44 +0200
Size: 5749
Date: Tue, 02 Aug 2022 15:41:44 +0200