Function Activate if this.width > _screen.width this.width = _screen.width * .9 endif if this.height > _screen.height this.height = _screen.height * .9 endif dodefault() endfuncI know, I know not very elegant but it can be used until you come up with a more sophisticated technique like:
function activate if this.lFirstshow if this.width > _screen.width or this.height > _screen.height lnRatio = this.height / this.width this.width = _screen.width * .9 this.height = int(lnRatio * this.width) endif ... do other first show events here this.lfirstshow = .f. endifStill not very elegant or complicated but it does prevent screen overrun.