TAdvToolPanel cannot be moved after undocking

VCL TMS VCL UI Pack
1

Hello,

I have a single TAdvToolPanel in a TAdvToolPanelTab. After the panel is undocked the first time (using ManualFloat()), I am able to click on the title bar of the floating window that contains the panel and move it around.

But after re-docking it (using ManualDock ()), if I undock it again, I am not able to move it around thereafter. The cursor changes to a "stop" sign symbol when trying to do so.

Can you please advise how to solve this?

I have referred to TMS ToolPanels Visual-Studio .NET like sliding/docking panels. Is there any other documentation that I can refer to?

Thanks.

2

Just to add, I do not see the issue if I dock/undock basic VCL controls.

3

I retested this here with this project:
Project1.zip (52.5 KB)
but I cannot reproduce this problem here.

4

Thank you.

I have tried the sample you have shared, and am able to reproduce the issue using this sample (with TMS vs 9.1.0.1 as well as 12.1.0.2). Please find attached a video capture of the issue with the sample.

Thanks.

TAdvToolPanel.zip (2.4 MB)

5

We could see the issue now.
We have not found a solution yet. This issue seems to be at VCL level as we can see the same problem with manually float & dock a regular VCL TPanel as well.
We'll continue to investigate whether we can find a workaround for this seemingly VCL bug.

6

Thank you for your kind attention
VCLPanel.zip (2.6 MB)
.

I too had tried a VCL panel previously, but did not see the issue there. Please find attached my code and a video recording for the same.

Thanks.
TestUnit.zip (1.3 KB)

7

With TAdvToolPanel, the correct way to programmatically dock/float is:

var
  r: TRect;
begin
  if (AdvToolPanel1.Floating) then
  begin
    AdvToolPanel1.ManualDock(Self, AdvToolPanelTab1, alLeft);
  end
  else
  begin
    r := Rect(0, 0, 100, 100);
    AdvToolPanel1.ManualFloat(r);
  end;
end;