In the on after start eep

try this
  SET VAR vScreenSize = (CVAL('screensize'))

  SET VAR vslen = (SLEN(.vScreenSize))

  SET VAR vsloc1 = (SLOC(.vScreenSize,','))

  SET VAR vHeight = (NINT((SGET(.vScreensize,(.vSloc1-1),1))))
  SET VAR vWidth = (NINT((SGET(.vScreensize,(.vslen-.vSloc1),(.vSloc1+1)))))

  PROPERTY RBASE_FORM HEIGHT .vHeight
  PROPERTY RBASE_FORM WIDTH ''
  RETURN

or this
  PROPERTY RBASE_FORM ALIGN 'CLIENT'
  RETURN

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of james
hageman
Posted At: Friday, July 09, 2004 10:49 AM
Posted To: RB7-L
Conversation: [RBG7-L] - Re: change form size based on screen size
Subject: [RBG7-L] - Re: change form size based on screen size


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]

Reply via email to