Cool program, Bill, thanks for posting it!
David Blocker
----- Original Message -----
From: "Bill Downall" <[EMAIL PROTECTED]>
To: "RBASE-L Mailing List" <[EMAIL PROTECTED]>
Sent: Thursday, December 19, 2002 3:37 PM
Subject: [RBASE-L] - rbgsize
> 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.
>
>
