Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Getting totally crazy with this form
Message
From
03/12/2001 22:16:15
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
 
 
To
03/12/2001 15:37:35
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00588816
Message ID:
00589055
Views:
54
This message has been marked as a message which has helped to the initial question of the thread.
>Well, I don't really see how highlighting the lines and pressing enter would make CTRL-F & CTRL-W work improperly...unless you have a project hook doing something to affect it. On my machine (VFP6), if I hilite those 2 lines run them together, the project closes as soon as I click back into the command window.
>
>So I avoid running the project manager that way...

I rather have a shortcut to the project and open it with a doubleclick, or (preferrably, since I usually work on more than one project at a time) use the following project hook, which does just two things: CDs to the project's home directory and sets the path to include the directories of all the components.
**************************************************
*-- Class:        pjx (e:\dragan\dokumenti\rad\vfprc\app.vcx)
*-- ParentClass:  projecthook
*-- BaseClass:    projecthook
*-- Time Stamp:   11/15/01 04:13:07 PM
*
#INCLUDE "d:\program files\microsoft visual studio\vfp98\foxpro.h"
*
DEFINE CLASS pjx AS projecthook

	Height = 22
	Width = 23
	Name = "pjx"


	PROCEDURE addpath
		lParam cPath
		cPath=fullp(cPath)
		if atc(cPath+',', set('path')+',')=0
			cPath=set('path')+','+cPath
			set path to (cPath)
		endif
	ENDPROC


	PROCEDURE Init
		dodefault()
		local oPjx
		oPjx=_vfp.activeproject
		cd (oPjx.homedir)
		this.addpath(justpath(this.classlibrary))
		use (oPjx.name) again in 0 noup alias pjx
		select dist (justpath(name)) from pjx into array aa
		*use in pjx
		for i=1 to alen(aa)
			this.addpath(trim(aa[i]))
		endfor
		SELECT pjx
		USE
	ENDPROC


ENDDEFINE
*
*-- EndDefine: pjx
**************************************************

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform