AdvSmoothDock Disappears

VCL TMS VCL UI Pack
1

Hi,


I have a AdvSmoothDock on a form. When the user changes the Style (Delphi Style), it disappears. 

I tried with Draw, Redraw ... but does not appear again. 


Any solution

Thanks
2

Hi,


I've found a way to avoid the problem by using a Timer.  (500 ms).

procedure TForm1.StyleClick(Sender: TObject);
begin
  AdvSmoothDock2.Visible := FALSE;
  if Assigned(TStyleManager.ActiveStyle) and (TStyleManager.ActiveStyle.Name<>'Windows') then
    TStyleManager.TrySetStyle(TMenuItem(Sender).Caption)
  else
    TStyleManager.TrySetStyle('AquaGraphite'); // whatever was in the project settings.
  Timer1.Enabled := TRUE;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  AdvSmoothDock2.Visible := TRUE;
  Timer1.Enabled := FALSE;
end;

http://youtu.be/eajCsvBXMPY

A more orthodox way to resolve this issue would be appreciated.

Thanks
3

The AdvSmoothDock uses a transparent form technique that might also be affected when changing the style. It is unclear if there is a way around this. We will investigate this here


Kind Regards, 
Pieter