Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Determine APP of an Object
Message
De
15/02/2002 09:03:14
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Allemagne
 
 
À
15/02/2002 08:25:54
Information générale
Forum:
Visual FoxPro
Catégorie:
Programmation Orientée Object
Divers
Thread ID:
00620539
Message ID:
00620623
Vues:
12
>Agnes,
>
>In that case I see but one solution: Hack the ClassLibs
>
>add a property to all your classes, eg TheApp
>
>Prior to building the app/exe have a program go through all the classes that are included in the project. (via Application.ActiveProject process FILETYPE_CLASSLIB)
>Set the property TheApp to someting useful to you and recompile the ClassLib
>
>Recompile all forms
>
>If it's worth the effort, this is
>
>
>
>        oProject = Application.ActiveProject
>	
>	local i, t
>	
>	t = therm(oProject.Files.Count, 'Searching')
>	
>	for i = 1 to oProject.Files.Count
>		obj = oProject.Files.Item(i)
>		
>		=t.Update(i, obj.Name)
>                if( obj.Type == FILETYPE_CLASSLIB )
>		     =ProcessFile(obj) && change TheApp property
>                endif
>	endfor
>
Gregory,
that is a way. Could use my project hook to do this. But I guess it is'nt worth the effort. (It is for error report. Don't want "unexpected" errors anyway.)

Agnes
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord

Weeks of programming can save you hours of planning.

Off

There is no place like [::1]
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform