Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Determine APP of an Object
Message
From
15/02/2002 09:03:14
Lutz Scheffler
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
 
 
To
15/02/2002 08:25:54
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Miscellaneous
Thread ID:
00620539
Message ID:
00620623
Views:
14
>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]
Previous
Reply
Map
View

Click here to load this message in the networking platform