Project Manager windows collection

[Toman]

I wish a nice day to all.

I'd like to loop through collection of Project Manager windows on my VFP 7 IDE screen. They seem not to belong to _screen.forms collection and the only way how to "contact" them is by means of WVISIBLE, WTITLE and DE/ACTIVATE, HIDE commands.
My task was originally to deactivate all or some of these Project windows and restore them later.
I've found partial solutions with sequence

HIDE WINDOW all 
 ….
SHOW WINDOW all,

but the ambition to loop through them still persists.
Thanks for any suggestion.

Tom

 

[Nigel Gomm]

Tom

LOCAL ARRAY lazy(_vfp.Projects.count)
FOR i= _vfp.Projects.count TO 1 STEP -1
lazy(i) = _vfp.Projects(i).name
_VFP.projects.Item(i).Close()
NEXT i



FOR i=1 TO ALEN(lazy)
MODIFY PROJECT (lazy(i)) nowait
NEXT i

Nigel

 

[Toman]

Hi Nigel,

this is exactly what I wanted to know.
Thank you very much, Tom

By the way: how this was solved sooner, when property Projects did not exist

 

[TamarGranor]

We've had the Projects collection since VFP 5. Prior to that, you did have to use the various Window functions.

Tamar

 

[Toman]

Thank you Tamar,

I am afraid that it should read "since VFP 6". All my tries to access project objects on VFP 5 ends with "OLE error code 0x….." message.
Never mind.

Tom

 

[TamarGranor]

You're right. I answered off the top of my head. Now that I look it up, I see it was VFP 6.

Tamar