QualityCentral

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

Developer Tools

Database Tools