Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Lockscreen not effective
Message
From
03/11/1999 12:59:01
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Lockscreen not effective
Miscellaneous
Thread ID:
00286277
Message ID:
00286277
Views:
57
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
Next
Reply
Map
View

Click here to load this message in the networking platform