Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Setting Form Template Class
Message
From
20/12/2002 10:57:28
James Blackburn
Qualty Design Systems, Inc.
Kuna, Idaho, United States
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00734894
Message ID:
00734907
Views:
14
This message has been marked as a message which has helped to the initial question of the thread.
Ronald

I store all my template classes in a dbf and use this program when switching to a new project.
CLEAR ALL
USE fldmap
GO top
LOCAL loWSH, cClassLoc, cClassValue, cFldType, cKey
loWSH = CREATEOBJECT("wscript.shell")
#define REGPATH "HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\7.0\Options\IntelliDrop\FieldTypes\"
IF VARTYPE(loWSH) = "O"
	IF NOT EMPTY(classloc) AND NOT EMPTY(classname)
		SCAN
			cKey = REGPATH+ALLTRIM(fldtype)+"\ClassLocation"
			loWSH.RegWrite(cKey,ALLTRIM(classloc))
			cKey = REGPATH+ALLTRIM(fldtype)+"\ClassName"
			loWSH.RegWrite(cKey,ALLTRIM(classname))
		ENDSCAN 
	ENDIF 
ENDIF 
USE IN fldmap
>working on 19 projects at once and jumping from one to the next, I have to continually set the Form Template Class in the Options set dialog based on what project I am in.
>
>Would like to find a way that this could be done programmically. I would appreciate if anyone can steer me in the right direction!
>
>Thanks in advance
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform