Jim, Javier, Charles and Larry
Thanks for your ideas!
Jim, a question. Your eep is very clear, but it only changes the size of
the Panel, not the form itself. What about the form size properties? Don't
you have to change those as well, as Larry suggested?
David Blocker
[EMAIL PROTECTED]
781-784-1919
Fax: 781-784-1860
Cell: 339-206-0261
----- Original Message -----
From: "James Hageman" <[EMAIL PROTECTED]>
To: "RBG7-L Mailing List" <[EMAIL PROTECTED]>
Sent: Tuesday, September 21, 2004 1:57 PM
Subject: [RBG7-L] - Re: Adjusting Forms to Varying Screen Sizes
> David , this works well for all the different monitors i use, 15" to 21"
>
> form_box is the panel where all your other stuff goes inside.
>
> James
>
> -- ON_AFTER_START.EPP
> -- James Hageman
> ----------------------------------------------------
> SET VAR vscreensize TEXT = (CVAL('screensize'))
> SET VAR vscreenwidth TEXT = (SSUB(.vscreensize,1))
> SET VAR vscreenheight TEXT = (SSUB(.vscreensize,2))
> IF vscreenwidth > '1280' THEN
> SET VAR vscreenwidth = '1280'
> SET VAR vscreenheight = '1024'
> ENDIF
> GETPROPERTY form_box width 'box_width'
> GETPROPERTY form_box height 'box_height'
> SET VAR box_left INTEGER = +
> (INT(.vscreenwidth)/2 - INT(.box_width)/2)
> SET VAR box_top INTEGER = +
> (INT(.vscreenheight)/2 -INT(.box_height)/2)
> PROPERTY rbase_form LEFT 0
> PROPERTY rbase_form top 0
> PROPERTY rbase_form width .vscreenwidth
> PROPERTY rbase_form height .vscreenheight
> PROPERTY form_box LEFT .box_left
> PROPERTY form_box top .box_top
> RETURN
>
>
>
>
> David M. Blocker wrote:
> > Dear R:Base buddies
> >
> >
> >
> > I am starting work on a conversion to R:Base 7.1 for a client who has
many
> > different kinds of systems and monitor sizes, from old 640 x 480 screens
to
> > 1024 x 760 screens.
> >
> >
> >
> > In previous versions, the best solution was to program for the worst
case –
> > everything 640 x 480. But it’s occurring to me that with the veritable
> > blizzard of great new features constantly being added to 7.x, I might
have
> > missed one that would help here.
> >
> >
> >
> > I know that I can use CVAL(‘ScreenSize’) to determine the size of the
screen
> > on the current workstation. Short of having 3 different versions of
EVERY
> > form, is there a way to set up a form and then use the property command
or
> > some other command to automatically adjust control placement and size
based
> > on the screen size?
> >
> >
> >
> > Anybody done anything like this? Razzak?
> >
> >
> > David Blocker
> > [EMAIL PROTECTED]
> > 781-784-1919
> > Fax: 781-784-1860
> > Cell: 339-206-0261
>
>
