Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Resizer problems
Message
De
31/12/2001 13:40:21
 
 
À
31/12/2001 13:23:49
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00599448
Message ID:
00599457
Vues:
15
Hi Randy,

I do not know what archetecture you are using for your forms but a quick and (little) dirty solution would be as follows:
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()
endfunc
I 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.
endif
Still not very elegant or complicated but it does prevent screen overrun.

Glenn

>Hi. VFP7 user here. I have been using the Resizer program in the "1001 Things...' book (to resize my forms for different display resolutions). I find that it works great on my (development) notebook at 1024 x 768. However, when I install my .exe on a 800 x 600 end-user machine, my forms/objects are way oversized for the screen. It seems as if the resizer is failing to recognize the change in display resolution.
> Comments or suggestions?
>
>Thanks, Randy
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform