Bug with the TabHeight of a parented TAdvToolBarPager

VCL TMS VCL UI Pack
1

After upgrading from TMS VCL UI Pack 13.1.6.3 to 13.6., as well as from Delphi 12.3 to Delphi 13, we encountered a problem in our application with parented TAdvToolBarPager’s. When their TabSettings.Height is set to 0 it defaults to the calculated height of 26, leading to tabs and their associated spaces suddenly appearing in places where they were not intended, cutting of toolbars.

Manually re-setting this both at design- or runtime does not remove it. During debugging its clear the component seems to lose, or not properly read, the value set in the object inspector, and defaults to the value calculated with the dpi. This problem only occurs when the TadvToolBarPager is nested into a parent of its own. If it is directly on a form this does not happen. The two TAdvToolBarPagers you see in the screenshot have the exact same settings, just that the top one is nested in a TAdvPageControl, while the bottom one is directly on the form. I also attached a screenshot of the project structure, with which the problem can be reproduced. Just set both TabSettings.Height to 0 and you should see the problem. Is this a known bug? And if so is there maybe already a patch for it? We would like to avoid having to manually check our application for these, and set the Pagers on the form

grafik
grafik624×465 5.88 KB

grafik
grafik287×291 6.15 KB

2

Project1.zip (6.3 KB)
I cannot reproduce this.
Test project is attached.
If a problem persists, please provide a sample source project with which this can be reproduced.

3

Thank you for your fast reply. Our problem, as i stated above, lies within the fact that the nested component ignores the value set to it in the object inspector at design time. If we set it at runtime it works, but even if we set this at the end of the FormShow it seems to be to early and does not apply. We have these components set to TabSettings.Height = 0 at Designtime, and this is ignored during runtime. I attached a test project for you to try it out with. You can also reproduce this with your project as well, if you set the height of the nested component to 0 at designtime and run it

BugShowcase.zip (8.2 KB)

4

When I compile & run your project here, the result I get is:

image
image627×477 3.97 KB

which I would expect is correct as TabSettings.Height = 0 at design-time for both TAdvToolBarPager instances?

5

Thats weird. I was able to reproduce the problem even with the test project you send over. Did you use the TMS VCL UI Pack 13.6.2, and Delphi 13.1 with the May patch?

6

I could see it with Delphi 13.1.
This new version must have broken something. We'll need to investigate. As a workaround for now, set it in code.