Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Compare Two Forms
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 8 SP1
Divers
Thread ID:
01153700
Message ID:
01157726
Vues:
23
Thanks, David. I'll give it a try. Haven't been around here for a few days . . . Did you cc: anyone on this? At least one other person had expressed interest.

>Russell,
>
>Ok I finally got around to digging this up. This is for the VFP9 version of the code, but it should be the same all the way back to all versions of the class browser.
>
>At the bottom of browser.prg add this function:
>
>
>function SortMethods( lcMethodCode )
>
>local lcStr, i, j, n, lcMethodName, lnSelect
>
>lnSelect = select()
>create cursor methods ( methodname c(64), methodcode m )
>
>lcStr = lcMethodCode
>do while ( ! empty( lcStr ) )
>   i = at( "ENDPROC", lcStr )
>   lcMethodCode = left( lcStr, i+8 )
>   lcStr = substr( lcStr, i+9 )
>   n = alines( laMethod, lcMethodCode )
>   for i = 1 to n
>      if ( at( 'PROCEDURE', laMethod[i] ) = 1 )
>         lcMethodName = alltrim( substr( laMethod[i], 11 ) )
>         exit
>      endif
>   endfor
>   insert into methods values ( lcMethodName, lcMethodCode )
>enddo
>
>select methodcode, upper( MethodName ) as MethodName ;
>   from methods ;
>   into cursor methods2 ;
>   order by 2
>
>select methods2
>lcStr = ""
>scan
>   lcStr = lcStr + methods2.methodcode + chr(13) + chr(10) + chr(13) + chr(10)
>endscan
>lcStr = left( lcStr, len( lcStr ) - 4 )
>lcStr = strtran( lcStr, chr(9), "   " )
>use in methods
>use in methods2
>select (lnSelect)
>return lcStr
>
>
>There are two places in browser.prg where FormatMethods() is called that need to be changed:
>
>
>...
>   lcMethods = SortMethods( lcMethods )
>   lcAppendDefineCode=lcAppendDefineCode+toBrowser.FormatMethods(lcMethods)
>...
>   lcMethods = SortMethods( lcMethods )
>   lcMethods=toBrowser.FormatMethods(lcMethods)
>
eCost.com continues to rip people off
Check their rating at ResellerRatings.com
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform