$PBExportHeader$pfc_w_zoom.srw $PBExportComments$PFC Zoom dialog window forward global type pfc_w_zoom from w_response end type type rb_custom from u_rb within pfc_w_zoom end type type rb_200 from u_rb within pfc_w_zoom end type type rb_100 from u_rb within pfc_w_zoom end type type rb_75 from u_rb within pfc_w_zoom end type type rb_50 from u_rb within pfc_w_zoom end type type rb_25 from u_rb within pfc_w_zoom end type type st_1 from u_st within pfc_w_zoom end type type em_zoom from u_em within pfc_w_zoom end type type cb_ok from u_cb within pfc_w_zoom end type type cb_cancel from u_cb within pfc_w_zoom end type type cb_apply from u_cb within pfc_w_zoom end type type dw_preview from u_dw within pfc_w_zoom end type type gb_1 from groupbox within pfc_w_zoom end type type gb_3 from groupbox within pfc_w_zoom end type type cb_dlghelp from u_cb within pfc_w_zoom end type end forward global type pfc_w_zoom from w_response integer x = 850 integer y = 444 integer width = 1934 integer height = 1004 string title = "Zoom" long backcolor = 80263328 rb_custom rb_custom rb_200 rb_200 rb_100 rb_100 rb_75 rb_75 rb_50 rb_50 rb_25 rb_25 st_1 st_1 em_zoom em_zoom cb_ok cb_ok cb_cancel cb_cancel cb_apply cb_apply dw_preview dw_preview gb_1 gb_1 gb_3 gb_3 cb_dlghelp cb_dlghelp end type global pfc_w_zoom pfc_w_zoom type variables Protected: boolean ib_dwrequestor integer ii_rc = -99 n_cst_zoomattrib inv_zoomattrib end variables on pfc_w_zoom.create int iCurrent call super::create this.rb_custom=create rb_custom this.rb_200=create rb_200 this.rb_100=create rb_100 this.rb_75=create rb_75 this.rb_50=create rb_50 this.rb_25=create rb_25 this.st_1=create st_1 this.em_zoom=create em_zoom this.cb_ok=create cb_ok this.cb_cancel=create cb_cancel this.cb_apply=create cb_apply this.dw_preview=create dw_preview this.gb_1=create gb_1 this.gb_3=create gb_3 this.cb_dlghelp=create cb_dlghelp iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.rb_custom this.Control[iCurrent+2]=this.rb_200 this.Control[iCurrent+3]=this.rb_100 this.Control[iCurrent+4]=this.rb_75 this.Control[iCurrent+5]=this.rb_50 this.Control[iCurrent+6]=this.rb_25 this.Control[iCurrent+7]=this.st_1 this.Control[iCurrent+8]=this.em_zoom this.Control[iCurrent+9]=this.cb_ok this.Control[iCurrent+10]=this.cb_cancel this.Control[iCurrent+11]=this.cb_apply this.Control[iCurrent+12]=this.dw_preview this.Control[iCurrent+13]=this.gb_1 this.Control[iCurrent+14]=this.gb_3 this.Control[iCurrent+15]=this.cb_dlghelp end on on pfc_w_zoom.destroy call super::destroy destroy(this.rb_custom) destroy(this.rb_200) destroy(this.rb_100) destroy(this.rb_75) destroy(this.rb_50) destroy(this.rb_25) destroy(this.st_1) destroy(this.em_zoom) destroy(this.cb_ok) destroy(this.cb_cancel) destroy(this.cb_apply) destroy(this.dw_preview) destroy(this.gb_1) destroy(this.gb_3) destroy(this.cb_dlghelp) end on event open;call super::open;////////////////////////////////////////////////////////////////////////////// // Event: open // Description: Gets the zoom object passed to this window and initializes the zoom window ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 6.0 Added support for datastores // 7.0 Fix problem with dynamically created datawindow // 8.0 Fix problem with initial default settings ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ////////////////////////////////////////////////////////////////////////////// integer li_initialzoom blob lbl_dw ib_disableclosequery = true ////////////////////////////////////////////////////////////////////////////// // Get the zoom object from the message object ////////////////////////////////////////////////////////////////////////////// inv_zoomattrib = message.PowerObjectParm ib_dwrequestor = not (isNull (inv_zoomattrib.idw_obj) or not isValid (inv_zoomattrib.idw_obj)) if not ib_dwrequestor then if (isNull (inv_zoomattrib.ids_obj) or not isValid (inv_zoomattrib.ids_obj)) then inv_zoomattrib.ii_zoom = -1 close (this) end if end if li_initialzoom = inv_zoomattrib.ii_zoom inv_zoomattrib.ii_zoom = 0 ////////////////////////////////////////////////////////////////////////////// // Initialize preview area ////////////////////////////////////////////////////////////////////////////// if ib_dwrequestor then inv_zoomattrib.idw_obj.GetFullState ( lbl_dw ) dw_preview.SetFullState ( lbl_dw ) else inv_zoomattrib.ids_obj.GetFullState ( lbl_dw ) dw_preview.SetFullState ( lbl_dw ) end if dw_preview.object.datawindow.print.preview = true ////////////////////////////////////////////////////////////////////////////// // Initialize zoom percentages ////////////////////////////////////////////////////////////////////////////// choose case li_initialzoom 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 25 rb_25.checked = true case else rb_custom.checked = true end choose em_zoom.Text = String ( li_initialzoom ) dw_preview.object.datawindow.print.preview.zoom = li_initialzoom end event event close;call super::close;////////////////////////////////////////////////////////////////////////////// // Event: close // Description: Treat window close from control menu as cancel operation ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ////////////////////////////////////////////////////////////////////////////// // If the return code matches the default value, // then window is currently being closed as a Cancel operation. if ii_rc=-99 then this.event pfc_cancel () end if end event event pfc_cancel;call super::pfc_cancel;////////////////////////////////////////////////////////////////////////////// // Event: pfc_cancel // Arguments: none // Returns: none // Description: Set the return code to 0 (cancel) ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ////////////////////////////////////////////////////////////////////////////// // Set the return code to mean the window was closed by a cancel operation. ii_rc = 0 CloseWithReturn (this, ii_rc) end event event pfc_apply;call super::pfc_apply;////////////////////////////////////////////////////////////////////////////// // Event: pfc_apply // Description: Apply zoom factor to requesting DataWindow ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 6.0 Added support for datastores // 8.0 Fixed problem getting setting from editmask ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ////////////////////////////////////////////////////////////////////////////// decimal {2} ldc_zoom string ls_zoom n_cst_string lnv_string em_zoom.GetData ( ldc_zoom ) inv_zoomattrib.ii_zoom = Round ( ldc_zoom * 100, 0 ) if ib_dwrequestor then inv_zoomattrib.idw_obj.object.datawindow.print.preview.zoom = inv_zoomattrib.ii_zoom else inv_zoomattrib.ids_obj.object.datawindow.print.preview.zoom = inv_zoomattrib.ii_zoom end if ii_rc = inv_zoomattrib.ii_zoom cb_apply.enabled = false end event event pfc_default;call super::pfc_default;////////////////////////////////////////////////////////////////////////////// // Event: pfc_default ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ////////////////////////////////////////////////////////////////////////////// this.event pfc_apply() CloseWithReturn (this, ii_rc) end event type rb_custom from u_rb within pfc_w_zoom boolean visible = false integer x = 87 integer y = 492 integer width = 407 integer height = 72 string text = "" end type type rb_200 from u_rb within pfc_w_zoom integer x = 87 integer y = 84 integer width = 407 integer height = 72 string text = "200%" end type event clicked;call u_rb::clicked;////////////////////////////////////////////////////////////////////////////// // Event: clicked // Description: Enable apply button and update percentage ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 8.0 Removed percent sign. Now part of mask ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ////////////////////////////////////////////////////////////////////////////// cb_apply.enabled = true dw_preview.object.datawindow.print.preview.zoom = 200 em_zoom.Text = "200" end event type rb_100 from u_rb within pfc_w_zoom integer x = 87 integer y = 164 integer width = 407 integer height = 72 string text = "100%" end type event clicked;call u_rb::clicked;////////////////////////////////////////////////////////////////////////////// // Event: clicked // Description: Enable apply button and update percentage ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 8.0 Removed percent sign. Now part of mask ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ////////////////////////////////////////////////////////////////////////////// cb_apply.enabled = true dw_preview.object.datawindow.print.preview.zoom = 100 em_zoom.Text = "100" end event type rb_75 from u_rb within pfc_w_zoom integer x = 87 integer y = 244 integer width = 407 integer height = 72 string text = "75%" end type event clicked;call u_rb::clicked;////////////////////////////////////////////////////////////////////////////// // Event: clicked // Description: Enable apply button and update percentage ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 8.0 Removed percent sign. Now part of mask ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ///////////////////////////////////////////////////////////////////////////// cb_apply.enabled = true dw_preview.object.datawindow.print.preview.zoom = 75 em_zoom.Text = "75" end event type rb_50 from u_rb within pfc_w_zoom integer x = 87 integer y = 324 integer width = 407 integer height = 72 string text = "50%" end type event clicked;call u_rb::clicked;////////////////////////////////////////////////////////////////////////////// // Event: clicked // Description: Enable apply button and update percentage ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 8.0 Removed percent sign. Now part of mask ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ///////////////////////////////////////////////////////////////////////////// cb_apply.enabled = true dw_preview.object.datawindow.print.preview.zoom = 50 em_zoom.Text = "50" end event type rb_25 from u_rb within pfc_w_zoom integer x = 87 integer y = 404 integer width = 407 integer height = 72 string text = "25%" end type event clicked;call u_rb::clicked;////////////////////////////////////////////////////////////////////////////// // Event: clicked // Description: Enable apply button and update percentage ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 8.0 Removed percent sign. Now part of mask ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ///////////////////////////////////////////////////////////////////////////// cb_apply.enabled = true dw_preview.object.datawindow.print.preview.zoom = 25 em_zoom.Text = "25" end event type st_1 from u_st within pfc_w_zoom integer x = 82 integer y = 528 integer width = 443 integer height = 72 string text = "Percent:" end type type em_zoom from u_em within pfc_w_zoom event enchange pbm_enchange integer x = 87 integer y = 600 integer width = 283 integer height = 84 integer taborder = 20 string mask = "###%" boolean spin = true string displaydata = "" string minmax = "10~~200" end type event enchange;call u_em::enchange;////////////////////////////////////////////////////////////////////////////// // Event: enchange // Description: Update print preview ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 8.0 Fixed problem getting data from editmask ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ///////////////////////////////////////////////////////////////////////////// decimal {2} ldc_zoom int li_zoom this.GetData ( ldc_zoom ) li_zoom = Round ( ldc_zoom * 100, 0 ) cb_apply.enabled = true 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 25 rb_25.checked = true case else rb_custom.checked = true end choose ////////////////////////////////////////////////////////////////////////////// // Preview ////////////////////////////////////////////////////////////////////////////// dw_preview.object.datawindow.print.preview.zoom = li_zoom end event type cb_ok from u_cb within pfc_w_zoom integer x = 293 integer y = 776 integer width = 375 integer taborder = 30 string text = "OK" boolean default = true end type event clicked;call u_cb::clicked;parent.event pfc_default() end event type cb_cancel from u_cb within pfc_w_zoom integer x = 686 integer y = 776 integer width = 375 integer taborder = 40 string text = "Cancel" boolean cancel = true end type event clicked;call u_cb::clicked;parent.event pfc_cancel() end event type cb_apply from u_cb within pfc_w_zoom integer x = 1079 integer y = 776 integer width = 375 integer taborder = 50 boolean enabled = false string text = "&Apply" end type event clicked;call u_cb::clicked;parent.event pfc_apply() end event type dw_preview from u_dw within pfc_w_zoom integer x = 617 integer y = 92 integer width = 1184 integer height = 596 integer taborder = 0 boolean hscrollbar = true end type event constructor;call u_dw::constructor;this.of_SetUpdateable (false) end event type gb_1 from groupbox within pfc_w_zoom integer x = 571 integer y = 24 integer width = 1280 integer height = 708 integer textsize = -8 integer weight = 400 fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "MS Sans Serif" long textcolor = 33554432 long backcolor = 67108864 string text = "Preview" borderstyle borderstyle = stylelowered! end type type gb_3 from groupbox within pfc_w_zoom integer x = 32 integer y = 24 integer width = 512 integer height = 708 integer taborder = 10 integer textsize = -8 integer weight = 400 fontpitch fontpitch = variable! fontfamily fontfamily = swiss! string facename = "MS Sans Serif" long textcolor = 33554432 long backcolor = 67108864 string text = "Zoom To" borderstyle borderstyle = stylelowered! end type type cb_dlghelp from u_cb within pfc_w_zoom integer x = 1472 integer y = 776 integer width = 375 integer taborder = 60 string text = "&Help" end type event clicked;call super::clicked;////////////////////////////////////////////////////////////////////////////// // Event: clicked // Description: Display PFC dialog help ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 6.0 Initial version ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ ///////////////////////////////////////////////////////////////////////////// ShowHelp ("pfcdlg.hlp", topic!, 1400) end event
File: pfc_w_zoom.srw
Size: 25687
Date: Tue, 22 Jan 2008 23:29:23 +0100
Size: 25687
Date: Tue, 22 Jan 2008 23:29:23 +0100
- w_response pfc_w_zoom(srw)
- u_rb rb_custom
- u_rb rb_200
- u_rb rb_100
- u_rb rb_75
- u_rb rb_50
- u_rb rb_25
- u_st st_1
- u_em em_zoom
- u_cb cb_ok
- u_cb cb_cancel
- u_cb cb_apply
- u_dw dw_preview
- groupbox gb_1
- groupbox gb_3
- u_cb cb_dlghelp