of_setrelativezoom


pfcdwsrv.pbl   >   pfc_n_cst_dssrv_report   >   of_setrelativezoom   

Full name pfc_n_cst_dssrv_report.of_setrelativezoom
Access public
Extend of string
Return value string
Prototype public function string of_setrelativezoom(integer)

Name Datatype
No Data

Name Datatype
li_CurrentZoom Integer
li_Pct Integer
ls_Return String

public function string of_setrelativezoom (integer ai_zoompct);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  of_SetrelativeZoom
//
//	Access:  public
//
//	Arguments:
//	ai_XoomPct				The percentage change to the report.
//
//	Returns:		String
//					The output of the Modify command (the error text or "").
//
//	Description:	Increase or decrease the size of a report.  The zoom will
//						be relative to its current zoom percentage.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.0   		Initial version
//	5.0.02	Fixed error setting li_CurrentZoom
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

Integer	li_Pct, li_CurrentZoom
String	ls_Return

li_CurrentZoom = Integer(ids_requestor.Object.DataWindow.Zoom)

li_Pct = li_CurrentZoom * (ai_ZoomPct / 100)

ls_Return = ids_requestor.Modify("Datawindow.Zoom=" + String(li_Pct))

ii_UndoLevel ++
is_Undo[ii_UndoLevel] = "datawindow.zoom=" + String(li_CurrentZoom)

Return ls_Return

end function

     
Name Owner
No Data

     
Name Owner
datastore.modify datastore
systemfunctions.integer systemfunctions
systemfunctions.string systemfunctions

     
Full name
No Data

     
Name Scope
No Data