Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Position the Wait window
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00728125
Message ID:
00728552
Views:
14
Hi

Add it at main.prg

Here's the sample code that will center forms when size of the main VFP Window changes.
_Screen.AddObject("oResizer", "Resizer")
DEFINE CLASS Resizer AS Custom
  oScreen = _Screen
  PROCEDURE oScreen.Resize
    IF _screen.WindowState <> 1  && Main VFP Window isn't minimized
      FOR i=1 TO _screen.FormCount
         IF _screen.Forms(i).AutoCenter
            _screen.Forms(i).AutoCenter = .F.        
            _screen.Forms(i).AutoCenter = .T.        
         ENDIF
      ENDFOR 
    ENDIF
  ENDPROC
ENDDEFINE


Pedro Silva

world is wonderful with your help .

Previous
Next
Reply
Map
View

Click here to load this message in the networking platform