Issue with 64 bit and revisit of Issue 31

[lancerasmussen]

Delphi 12.3 but confirmed behavior in 12.2 as well.

I've pulled the current sources from source control to verify ( 3.8.1) an issue. It's a revisit of issue 31 regarding the TStyledToolbar and order of TStyledtoolButton which I use the combination to act as a menu that can be styled.

1. Compile the test app in 32 bit mode.
2. Click Data Opened menu to see transition from what menu looks like with data closed to data open.
3. Click Data opened menu again - There's no changes as expected and none changes shown. Works.
4. Repeat step 3 again - Again, no changes expected and there are none shown. Works.

32 bit works correctly.

1. Compile in 64 bit mode.
2. Click Data Opened menu to see transition from what menu looks like with data closed to data open.
3. Click Data opened menu again - The menu changed order - This shouldn't happen
4. Repeat step 3 again - The menu changed order again - This shouldn't happen.

So something is off in the 64 bit handling compared to the 32 bit handling and hope you can resolve.

BadMenuIndexing.zip