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;
A more orthodox way to resolve this issue would be appreciated.
Thanks
Pieter
(Pieter)
October 23, 2014, 2:39am
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