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
