Watch, Follow, &
Connect with Us
Public Report
Report From: Delphi-BCB/IDE/Open Tools API    [ Add a report in this area ]  
Report #:  63561   Status: Open
IOTAModuleServices.CurrentModule does not change if you switch to a module with History View selected
Project:  Delphi Build #:  11.0.2902.10471
Version:    11.2 Submitted By:   Uwe Schuster
Report Type:  Minor failure / Design problem Date Reported:  6/21/2008 8:54:43 AM
Severity:    Infrequently encountered problem Last Updated: 3/20/2012 2:24:39 AM
Platform:    All platforms Internal Tracking #:   261260
Resolution: None (Resolution Comments) Resolved in Build: : None
Duplicate of:  None
Voting and Rating
Overall Rating: No Ratings Yet
0.00 out of 5
Total Votes: None
Description
I noticed that switching to a module where the History tab is selected doesn't change IOTAModuleServices.CurrentModule.

-> see steps
Steps to Reproduce:
- save and extract the attachment
- start the IDE
- compile and install IOTAModuleServicesCurrentModuleTest.dpk
- close the package project

- open the Welcome Page unless it is still open (we need the page at the end of the steps)

- open CurrentModuleSampleProject.dpr
- open CurrentModuleSampleForm1 and CurrentModuleSampleForm2
- switch to the "Code" tab on both form modules

- switch to CurrentModuleSampleForm1
- call the mainmenu item "OTATest"\"Show IOTAModuleServices.CurrentModule"

expected: = ...\CurrentModuleSampleForm1.pas
actual:  as expected (= ...\CurrentModuleSampleForm1.pas)

- switch to CurrentModuleSampleForm2
- call the mainmenu item "OTATest"\"Show IOTAModuleServices.CurrentModule"

expected: = ...\CurrentModuleSampleForm2.pas
actual:  as expected (= ...\CurrentModuleSampleForm2.pas)

- switch to the "Design" tab on both form modules

- switch to CurrentModuleSampleForm1
- call the mainmenu item "OTATest"\"Show IOTAModuleServices.CurrentModule"

expected: = ...\CurrentModuleSampleForm1.pas
actual:  as expected (= ...\CurrentModuleSampleForm1.pas)

- switch to CurrentModuleSampleForm2
- call the mainmenu item "OTATest"\"Show IOTAModuleServices.CurrentModule"

expected: = ...\CurrentModuleSampleForm2.pas
actual:  as expected (= ...\CurrentModuleSampleForm2.pas)

- switch to the "History" tab on both modules

- switch to CurrentModuleSampleForm1
- switch to the "Code" tab and then back to the "History" tab (this is to make sure that the next result is as expected, because depending on the order of switching the modules to the "History" tab ...Form1 or ...Form2 could be the current module)
- call the mainmenu item "OTATest"\"Show IOTAModuleServices.CurrentModule"

expected: = ...\CurrentModuleSampleForm1.pas
actual:  as expected (= ...\CurrentModuleSampleForm1.pas)

- switch to CurrentModuleSampleForm2
- call the mainmenu item "OTATest"\"Show IOTAModuleServices.CurrentModule"

***the problem is here***
expected: = ...\CurrentModuleSampleForm2.pas
actual:  = ...\CurrentModuleSampleForm1.pas

- switch to the Welcome Page
- switch back to CurrentModuleSampleForm2

- call the mainmenu item "OTATest"\"Show IOTAModuleServices.CurrentModule"

expected (wrong expectation due the last result): = ...\CurrentModuleSampleForm1.pas
actual:  = ...\CurrentModuleSampleForm2.pas (this is correct, but is different to the last [the problem] result)
Workarounds
None
Attachment
IOTAModuleServicesCurrentModuleTest.zip
Comments

None

Server Response from: ETNACODE01