Neither can I see an
option to display the default directory in the title bar, which was the
original question¡.
?
--stein
?
Stein
Goering
Arbutus Computer
Services
17494 Merry
Hill
Rd
Richland
Center, WI? 53581
?
608.538.3820
?
From: Cliff S
[mailto:hawkridge@...]
Sent: Wednesday, February 25,
2004 9:11
AM
To:
madfox_vfp@...
Subject: RE: [madfox_vfp] _screen.caption
trick
?
So I just looked at this and it is cool,
but¡ it still doesn¡¯t dynamically change the environment.? What would be
NICE is that clicking on a project window would automatically set the
environment.
?
-----Original
Message-----
From: PJ
Fernandez [mailto:pjfern@...]
Sent: Wednesday, February 25, 2004
8:44 AM
To: madfox_vfp@...
Subject: RE: [madfox_vfp] _screen.caption
trick
?
Which
version are we talking here?? Because VFP 8.0 has that on the environment
option of the task pane.
?
P.J
-----Original
Message-----
From: hawkridge
[mailto:hawkridge@...]
Sent: Tuesday, February 24, 2004
2:13 PM
To: madfox_vfp@...
Subject: RE: [madfox_vfp] _screen.caption
trick
So here is a partial
solution.? This is what I put in the activate() of my_projecthook class,
cDefaultFilePath & oThisProject are custom properties.? This sets the
default file path and all the path search crap for my standard project
layout.? Also puts the info in the screen caption (just added this after
our meeting).
?
This is only a
partial solution as far as I can see as it does not refresh.? If there
were a way setting up an event whenever a project becomes active, then we
could readjust the paths and caption when more than one project is open at a
time.? Unfortunately, the docs say I can't bind to a method/property in
_VFP or we could do an update with BINDEVENTS().
?
?
* set default path to
project home directory each time the project is activated
* show the
developer the path in the main screen titlebar
?
LOCAL
cDefaultSearch
?
this.cDefaultFilePath
= _vfp.DefaultFilePath
this.oThisProject =
_vfp.ActiveProject
cDefaultSearch?=
'.;.\data;.\lib;.\prg;.\include;.\forms;.\menus;.\reports;' +
;
????? 'd:\hawkridge\system\visual studio\vfp\my
class libraries;' + ;
?????
'd:\hawkridge\system\visual studio\vfp\include'
CD
(this.cDefaultFilePath)
SET DEFAULT TO (this.cDefaultFilePath)
SET PATH
TO (cDefaultSearch)
_Screen.Caption = 'DEFAULT FILE PATH = '
+?this.cDefaultFilePath
DODEFAULT()
RETURN
Soooo..... if anyone
can figure out how to raise an event whenever a project becomes active, then
we could automate this, or maybe hook the
ActiveProject.Refresh().
Walk
In Beauty,
Cliff
Smith
hawkridge@... /
608 647-2366
