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
RETURNDavid 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
