Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Width adjusts itself - PITA
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00563613
Message ID:
00564191
Views:
17
Got it!!!

I left the forms .ScrollBars = Vertical and set the .Height = 1000 which is bigger than required making the scrollbar dissappear. In the .Init I then set the .Height = 500 and .Top = 1 putting the form to the correct size and causing the scrollbar to display. The .Width stayed at 695 and was not adjusted. PHEW!!!

Thanks to all of you for your insight which definitely got me digging in the right places.


>Colin,
> I see what you mean. It's the same problem that I had but from a different control. Last night I remembered that I finally fixed the problem by setting the title bar off in the init. Setting the width did work as far as running the form but the actual width of the form kept growing after each edit. I would set the scrollbar property in the init if that's possible in your case.
>John.
>
>
>>Hi John,
>>
>>I tried that and it didn't solve the problem. Also, I don't turn off the TitleBar. I'm pretty sure it's related in some way to the bug that Tracy directed me too because the Width is changing when the form is saved.
>>
>>http://support.microsoft.com/support/kb/articles/Q193/7/49.ASP?LN=EN-US&SD=gn&FR=0&qry=%26quot%3Bform%20width%26quot%3B&rnk=165&src=DHCS_MSPSS_gn_SRCH&SPR=FOX
>>
>>
>>>Colin,
>>> I had the same problem. Found out there is a bug in VFP 6.0 if you turn off the Title Bar (TitleBar = 0) it does what you are seeing. I fixed it by simply putting a command in the form init - Thisform.Width = nnn. The init happens last so it works every time even if the titlebar is not your problem.
>>>
>>>>I have a form that has a vertical scrollbar. The forms width is set to 695 but after the form is saved and run the width is changing to 672. Any ideas on how to stop this? TIA
Colin Magee
Team Leader, Systems Development
Metroland Media Group Ltd.
Mississauga, Ontario, Canada

cmagee@metroland.com

Never mistake having a career with having a life.
Previous
Reply
Map
View

Click here to load this message in the networking platform