Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Setting
Message
 
 
To
30/04/2001 13:14:01
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Miscellaneous
Thread ID:
00501638
Message ID:
00501652
Views:
16
>Hi all,
>
>I need help !!! I'm lazy of setting the 'set talk off',set status off,set exclusive off,,, in all the form that datasection are set to 2 - private datasection ... any faster way ??
>
>Thanks

Do you have a class library where you have created a subclass of all the VFP base classes? If not, you should do so immediately and use those controls instead. Now that you have a form subclass in this library, you put all those commands in the form's Load method.

Now under the Tools menu, select Options. Click the Forms tab. Set the Form template to the Form subclass in your class library. Click Set As Default and close the options form.

Now to get all your forms using this subclassed form:
lnRetVal = adir(laForms, "*.SCX")
for i = 1 to lnRetVal
    lcForm = laForms[1,1]
    use (lcForm)
    replace Class with YourFormClassName, ;
      ClassLoc with "relative_path_to_classes\classlibwithformclass" ;
      for alltrim(lower(baseclass)) == 'form'
    use
    compile form (lcForm)
endfor
Mark McCasland
Midlothian, TX USA
Previous
Reply
Map
View

Click here to load this message in the networking platform