Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How do you calculate the header height?
Message
From
12/11/1999 11:47:04
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00290365
Message ID:
00290614
Views:
42
>Oops. I thought the called form didn't have the titlebar. Try this.
>
>BTW it's sysmetric( 9 ) not ( 19 ) ;)
>
>
IF THIS.Caption = "NOTITLE"
>   THISFORM.TitleBar = 0
>   THIS.Caption = "TITLE"
>   nOffset = 0
>ELSE
>   THISFORM.TitleBar = 1
>   THIS.Caption = "NOTITLE"
>   nOffset = SYSMETRIC( 9 )
>ENDIF
>
>DO FORM B NOSHOW NAME oForm
>
>oForm.Top = THIS.Top + THISFORM.Top + nOffset + SYSMETRIC( 4 )
>oForm.Left = THIS.Left + THISFORM.Left + THIS.Width + SYSMETRIC( 3 )
>oForm.Show
>
>
>Also this assumes the called forms borderstyle is resizable if not change 4 and 3 to 10 and 11.
>
>hth

I was just thinking that on the way to work. Did I put a 19 or a 9? Funny, how things like that just pop into your head. There seems like there's quite a few factors that could influence the forms header height. Title, border, halfheight. I just wish there were an easier way.
Previous
Reply
Map
View

Click here to load this message in the networking platform