paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 14:11:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: don't touch flags if we are in design time.

Browse Source 
git-svn-id: trunk@26624 -
This commit is contained in:
zeljko 2010-07-13 14:38:54 +00:00
parent 32353ca72a
commit b06d7701df
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/qt/qtwsforms.pp
View File

@ -412,6 +412,8 @@ begin
end;
Widget.BeginUpdate;
if not (csDesigning in AWinControl.ComponentState) then
begin
if AWinControl.HandleObjectShouldBeVisible
and (TCustomForm(AWinControl).FormStyle in fsAllStayOnTop) then
begin
@ -431,6 +433,7 @@ begin
Widget.setWindowFlags(Flags);
end;
end;
end;
Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);
Widget.EndUpdate;
{$IFDEF HASX11}