Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Web-site screwing with web-browser.
Message
From
15/04/2004 13:59:49
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Internet applications
Title:
Web-site screwing with web-browser.
Miscellaneous
Thread ID:
00895262
Message ID:
00895262
Views:
50
I'm using VFP 7.0
define myForm as form
  this.oResize = newobject( 'myResize' )
  this.oBrowser = newobject( 'myBrowser' )
  this.oBrowser.top = 5
  this.oBrowser.left = 5
  this.width = this.oBrowser.width + 10
  this.height = this.oBrowser.height + 10
  
  procedure resize
    this.oResize.Resize(this)
end define

define myBrowser as container
  this.oWeb = newobject( 'Web' )       && web-browser control
  this.oWeb.top = 50
  this.oWeb.left = 5
  this.oWeb.height = this.height - 55
  this.oWeb.width = this.width - 10

  ..... other controls ( back, stop, location, etc.) added above oWeb
end define
One particular web-site screws up my display. When I change to a particular page, the web-site completely fills myForm hiding all the controls on myBrowser. I've checked the location of oWeb and it still shows oWeb.top = 50 and oWeb.left = 5 (which should have the top be 55 relative to the form). It's as if oWeb.top = -5.
The web-site is being displayed outside of oWeb.

If I resize the form (which kicks in my resize control), the display is corrected to the correct size and location. As soon as oWeb.height or oWeb.width is changed, the display is immediately corrected.

I managed to get it to correct itself by putting in
..oWeb.heigt = ..oWeb.height + 1
..oWeb.heigt = ..oWeb.height - 1
as soon as the document finishes loading.
But the display is an ugly jerk.


TIA
Bill Morris
Next
Reply
Map
View

Click here to load this message in the networking platform