FIX: Project.Files.Count Property Does Not Increment Properly When You Add a File Through the User Interface (317491)

MORE INFORMATION

Steps to Reproduce Behavior

The following code will create a new project and add three files to the project. The program uses the project's ADD method to add the first two files to the project. The program then opens the Add dialog box in Visual FoxPro for you to add the third file to the project.

After the program adds each file to the project, the program prints the value of the Project.Files.Count property to the screen. Note that this value still returns 2 after you add the third file.

NOTE: The Count property also does not decrement correctly when you use the Visual FoxPro user interface to delete files from the project. You must close and reopen the project to refresh the Count property.

To reproduce the problem, follow these steps:

1. Paste the following code in a new program and run the program:

   CLEAR
   SET RESOURCE OFF
   IF TYPE('_VFP.ACTIVEPROJECT') != "U"
   	_VFP.ACTIVEPROJECT.CLOSE
   ENDIF
   LOCAL lcText AS STRING
   CLEAR
   DELETE FILE testxx.pj?
   CREATE PROJECT testxx NOWAIT
   MOVE WINDOW "Project Manager - Testxx" TO 0,40
   DELETE FILE testxx.prg
   =STRTOFILE("WAIT WINDOW 'Hello'",'testxx.prg',.T.)
   _VFP.ACTIVEPROJECT.FILES.ADD('testxx.prg')
   ? "The value of the Count Property is "+ ALLTRIM(STR(_VFP.ACTIVEPROJECT.FILES.COUNT))
   _VFP.ACTIVEPROJECT.FILES.ADD(HOME()+'ffc\_base.vcx')
   ? "The value of the Count Property is "+ ALLTRIM(STR(_VFP.ACTIVEPROJECT.FILES.COUNT))
   _CLIPTEXT = HOME()+'ffc\_dialogs.vcx'
   * Select Classes node in tree
   KEYBOARD '{tab}{DNARROW}{DNARROW}{DNARROW}'
   DOEVENTS
   * Select Project/Add from menu
   KEYBOARD '{pause 1}'
   DOEVENTS
   KEYBOARD '{pause 1}{alt+o}a'
   DOEVENTS
   ? "You just added a third file."
   ? "The value of the Count Property is "+ ALLTRIM(STR(_VFP.ACTIVEPROJECT.FILES.COUNT))
   SET RESOURCE ON
   RETURN
   					

2. When the Add dialog box appears, press CTRL+V, and then press ENTER to add the third file to the project. Note that the output to the screen indicates that Project.Files.Count still equals 2.