Thanks everyone.
It does what I need. The form background expands to the screen edge and i have a panel (form_box) in the form where all the objects go and I center it with an eep.
-- ON_AFTER_START.EPP
SET VAR vscreensize TEXT = (CVAL('screensize'))
SET VAR vscreenwidth TEXT = (SSUB(.vscreensize,1))
SET VAR vscreenheight TEXT = (SSUB(.vscreensize,2))
SET VAR box_left = (INT(.vscreenwidth)/2 - 200)
SET VAR box_top = (INT(.vscreenheight)/2 - 125)
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
On Jul 9, 2004, at 11:48 AM, james hageman wrote:
Most of the data in my forms are contained in an area of about 640x480, however i want the back ground to be able to expand to the max screen area. our databases are on a network with 5 users and each has the screen resolution different due to screen size and blindness level. I'll will worry about centering the data once i can get the height and width.
by using (cval('screensize')) I can get the height and width as 1 variable, but i need them seperate. Is there a way to get that using cval, PROPERTY or some other way?
James
On Jul 9, 2004, at 10:31 AM, MikeB wrote:
----- Original Message ----- From: "james hageman" <[EMAIL PROTECTED]> To: "RBG7-L Mailing List" <[EMAIL PROTECTED]> Sent: Friday, July 09, 2004 9:07 AM Subject: [RBG7-L] - change form size based on screen size
Is there an example somewhere on how to dynamically change the size of
a form based on the users screen resolution?
You can change the form size easy enough, but it would be a nightmare to change
the size of all controls on a form as well as the font size to make it scale up
or down. I just stick with 640 x 480 and don't make a form too busy (If it gets
crowded, probably need more forms or Tabbed Pages).
I have looked through concomp and rrbyw 1-8, but haven't found anything.
James
James Hageman, CITA I University of Delaware Archives 002 Pearson Hall Newark ,DE 19702 302-831-3127 [EMAIL PROTECTED]
James Hageman, CITA I University of Delaware Archives 002 Pearson Hall Newark ,DE 19702 302-831-3127 [EMAIL PROTECTED]
