Thanks Jim!
David
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 10:33 PM
Subject: [RBG7-L] - Re: Adjusting Forms to Varying Screen Sizes
> David,
>
> PROPERTY rbase_form LEFT 0
> PROPERTY rbase_form top 0
> PROPERTY rbase_form width .vscreenwidth
> PROPERTY rbase_form height .vscreenheight
>
> These 4 lines do that near the bottom of the code
>
> Jim
>
>
> David M. Blocker wrote:
> > 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
> >>
> >>
>
>
