Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
OptionGroups
Message
De
04/04/2001 21:41:30
 
 
À
04/04/2001 11:45:01
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Titre:
Divers
Thread ID:
00491722
Message ID:
00492186
Vues:
17
Automate!!

use ADir() to fill an array with all your form names.
set memowidth to 1000 so you don't have any wrap worries
Loop through the array USEing each scx
scan for class = 'youroptiongroup'  && all lower case
  lcString = ""
  lcTempString = ""
  for lnCount = 1 to memlines(properties)
     lcTempString = mline(properties, lnCount)
     if 'ButtonCount =' $ lcTempString
        lcTempString = StrTran(lcTempString, Substr(lcTempString, 15), "10")
     Endif
     lcString = lcString + lcTempString + Chr(13) + Chr(10)
  EndFor
  Replace properties with left(lcString, len(lcString) - 2)
EndScan
>Yes, what you suggest will work fine...
>
>But the main problem i'm having is if I have a form with a Optiongroup with 3 items in it and I change the baseclass to have 10 options
>I can't load the form it gives an error... Basically I'm too late to change my baseclass.
>
>I need to go through all my forms (via .SCX) and make the buttoncount 10 before I can load them.
>
>Thanks for the suggestion though :)
>
>>How about instead of adding and removing option buttons, simply make the unused ones invisible and resize the option group frame. I do that in a particular instance, and it seems to work just fine.
>>
>>Alan
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform