Bernie,

Your customer has monitor resolution set to 640 x 480 (or less)

Here's a program that sets the R:Base window to 90% of the screen 
resolution, centered.:


========================================
-- SizeIt.RMD by Bill Downall
SET VAR vPctText TEXT = '90' 
-- add a DIALOG here to prompt for size:
-- DIALOG 'Percent of screen?' vPctText=3 vEndKey 1
SET VAR vPct DOUBLE = (FLOAT(.vPctText))
-- if you did a dialog, test for null here
SET VAR vMpl = (.vpct / 100)

SET VAR vScreenSize = (CVAL('screensize'))
SET VAR vScreenWidth = (SSUB(.vScreenSize,1))
SET VAR vScreenHeight = (SSUB(.vScreenSize,2))

SET VAR vWindowWidth = (NINT(.vMpl * (float(.vScreenWidth))))
SET VAR vWindowHeight = (NINT(.vMpl * (float(.vScreenHeight))))
SET VAR vWindowLeft = +
  (NINT(.5 * (1.00 - .vMpl) * (FLOAT(.vscreenWidth))))
SET VAR vWindowUpper = +
  (NINT(.5 * (1.00 - .vMpl) * (float(.vscreenHeight))))

SET RBGSIZE +
  .vWindowLeft .vWindowUpper .vWindowWidth .vWindowHeight

RETURN
===========================================
On Thu, 19 Dec 2002 15:16:51 -0500, Bernard Lis wrote:

>set rbgsize center center 640 480
>on my 17" monitor
>took it to my customer and the forms overflowed his 14" monitor.
>
>Could someone please explain how and where to use rbgsize?
>
>Bernie Lis
>Megabytes, Inc.

Reply via email to