Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
PageFrame Height & Pageheight
Message
 
To
17/09/2002 09:05:56
Lutz Scheffler (Online)
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00701189
Message ID:
00701262
Views:
19
Hi,

ok - I understand what you mean now. I thought of resizing a form and a contained pageframe that needs to be resized when the form is being resized. For this task I'm always resizing the pageframe with a ratio calculated with PageHeight/PageWidth and making sure that these properties are not less than zero. Trying to make a pageframe smaller in height than the tabs' height results in an error.

Hmmm ... I think doing ...
thisform.pageframe1.Height - thisform.pageframe1.PageHeight
worked for me some time ago. Yes, just made a test (VFP7SP1). Works well. Another idea, if the above code doesn't work for you:
LOCAL lnHeightTabs

lnHeightTabs = thisform.pageframe1.PageHeight

thisform.pageframe1.tabs = .f.
lnHeightTabs =  thisform.pageframe1.PageHeight - lnHeightTabs
thisform.pageframe1.tabs = .t.

MESSAGEBOX( lnHeightTabs )
The first code returns 30 in my test, the second 26. It seems that you should add some extra pixels for the borders.

HTH,
Armin

>My problem is to change the height of the pageframe from within resize. If something is larger than pagheight I need to change Height.
>
>.PAGEHEIGHT = lnValue
>
>is impossible, since Pageheight is readonly.
>
>The idea was to let the pagefame act like a form, where you can do:
>
>thisform.minheight = 100
>thisform.height    = 50
>?thisform.height &&100
>
>>how about only working with PageHeight? If you specify the minimum pageheight everything should work ok. Or do you have a special need to specify the minimum height of the pageframe itself?

Armin Neudert
Regional Director (Stuttgart) of German FoxPro User Group dFPUG

MCP for Visual FoxPro

Expert/Editor of the VFP section in the German Codezone community portal
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform