paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:59:21 +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

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

@ -412,23 +412,26 @@ begin
end; end;
Widget.BeginUpdate; Widget.BeginUpdate;
if AWinControl.HandleObjectShouldBeVisible if not (csDesigning in AWinControl.ComponentState) then
and (TCustomForm(AWinControl).FormStyle in fsAllStayOnTop) then
begin begin
Flags := Widget.windowFlags; if AWinControl.HandleObjectShouldBeVisible
if (Flags and QtWindowStaysOnTopHint = 0) then and (TCustomForm(AWinControl).FormStyle in fsAllStayOnTop) then
begin
Flags := Flags or QtWindowStaysOnTopHint;
Widget.setWindowFlags(Flags);
end;
end else
begin
if (TCustomForm(AWinControl).FormStyle in fsAllStayOnTop)
and not (csDestroying in AWinControl.ComponentState) then
begin begin
Flags := Widget.windowFlags; Flags := Widget.windowFlags;
Flags := Flags and not QtWindowStaysOnTopHint; if (Flags and QtWindowStaysOnTopHint = 0) then
Widget.setWindowFlags(Flags); begin
Flags := Flags or QtWindowStaysOnTopHint;
Widget.setWindowFlags(Flags);
end;
end else
begin
if (TCustomForm(AWinControl).FormStyle in fsAllStayOnTop)
and not (csDestroying in AWinControl.ComponentState) then
begin
Flags := Widget.windowFlags;
Flags := Flags and not QtWindowStaysOnTopHint;
Widget.setWindowFlags(Flags);
end;
end; end;
end; end;
Widget.setVisible(AWinControl.HandleObjectShouldBeVisible); Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);