ThisForm.NavigationControl1.GetAllNavigationObjects()
the GetAllNavigationObjects() method looks as follows* *** ***************************************************** * *** reset the array dime THIS.a_NavigationObjects(1,3) THIS.a_NavigationObjects = .f. * *** ***************************************************** * *** we make all navigations report to me This.Parent.SetAll("NavigationsReportToMaster", This)the 'NavigationsReportToMaster' property on all navigation containers have an assign method attached which looks like this:
LPARAMETERS vNewVal *To do: Modify this routine for the Assign method SET STEP ON THIS.NavigationsReportToMaster = vNewVal * *** also tried this without the following 2 lines vNewVal = .null. release vNewVal *!* * *** this will add this navigation to the *!* * *** Navigation Master Controll *!* THIS.NavigationsReportToMaster.AddNavigation(This) LOCAL ; NewRow WITH THIS.NavigationsReportToMaster * *** adjust the array size NewRow = ALEN(.a_NavigationObjects, 1) IF TYPE(".a_NavigationObjects(NewRow, 1)") = "O" NewRow = NewRow + 1 ENDIF DIME .a_NavigationObjects(NewRow, 3) * *** add the new navigation to the array .a_NavigationObjects(NewRow, 1) = THIS .a_NavigationObjects(NewRow, 2) = SYS(1272, THIS) .a_NavigationObjects(NewRow, 3) = "" ENDWITHas you can see i have already tried different versions. this works great for the 1st navigation object, but as soon as the first assign method finishes Vfp 6 SP5 crashes with a C0005 (or what that number is) completly.