mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-16 17:29:31 +02:00
Qt: don't touch flags if we are in design time.
git-svn-id: trunk@26624 -
This commit is contained in:
parent
32353ca72a
commit
b06d7701df
@ -412,6 +412,8 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
Widget.BeginUpdate;
|
Widget.BeginUpdate;
|
||||||
|
if not (csDesigning in AWinControl.ComponentState) then
|
||||||
|
begin
|
||||||
if AWinControl.HandleObjectShouldBeVisible
|
if AWinControl.HandleObjectShouldBeVisible
|
||||||
and (TCustomForm(AWinControl).FormStyle in fsAllStayOnTop) then
|
and (TCustomForm(AWinControl).FormStyle in fsAllStayOnTop) then
|
||||||
begin
|
begin
|
||||||
@ -431,6 +433,7 @@ begin
|
|||||||
Widget.setWindowFlags(Flags);
|
Widget.setWindowFlags(Flags);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
end;
|
||||||
Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);
|
Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);
|
||||||
Widget.EndUpdate;
|
Widget.EndUpdate;
|
||||||
{$IFDEF HASX11}
|
{$IFDEF HASX11}
|
||||||
|
Loading…
Reference in New Issue
Block a user