Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Lockscreen not effective
Message
De
03/11/1999 12:59:01
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Lockscreen not effective
Divers
Thread ID:
00286277
Message ID:
00286277
Vues:
59
All:
I've spent the better part of 2 hours trying to get a form to work how I want it and still don't have a solution.

VFP 6.0 sp2

Modal form with a sub-classes pageframe that has 2 pages. Form has 2 additional pages. This is a form that is used for 3 apps that required the additional pages and several more that won't need them. What I want to do is prevent the user from seeing the 2 pages "disappear" when they aren't needed. I've tried _screen.lockscreen = .T. in the Load() and _screen.lockscreen = .F. in the Init() or Activate(). no joy! Tried setting pageframe and forms .visible to .F. and resetting to .T. after the form and pageframe should be complete. no joy! I tried the following API code (from another thread) in a method called SuppressScreen with a .T./.F. lparameter to turn on and off.
*- Lock window
DECLARE INTEGER GetDesktopWindow IN WIN32API
DECLARE INTEGER LockWindowUpdate IN WIN32API ;
INTEGER lnHandle

lnDeskTopWin = GetDesktopWindow()
=LockWindowUpdate(lnDeskTopWin)

To unlock ... :
*- Unlock window
=LockWindowUpdate(0)

Code works but still no joy!

If I can't get this to work, I'll have to live with the user seeing the disappearing act or create a separte form without the extra pages. Is this just another VFP "feature"? Maybe I'm an idiot for trying to update screens without the user seeing what's happening.

As I remember, when I was doing Delphi 1.0 development, suppressing the screen updates was one way of improving performance. I know I used to do stuff like this back in the DOS 3.3 days.

TIA
Mike
Mike
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform