paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 20:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: enabled AppRemoveStayOnTopFlags & AppRestoreStayOnTopFlags

Browse Source 
git-svn-id: trunk@25534 -
This commit is contained in:
zeljko 2010-05-20 10:29:36 +00:00
parent 7029a5ebf8
commit b0ec64ca2d
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/interfaces/qt/qtobject.inc
View File

@ -314,18 +314,14 @@ end;
function TQtWidgetSet.AppRemoveStayOnTopFlags: Boolean;
begin
Result := False;
{$note uncomment implementation when LCL side reworked}
// Result := True;
// QtRemoveStayOnTop;
Result := True;
QtRemoveStayOnTop;
end;
function TQtWidgetSet.AppRestoreStayOnTopFlags: Boolean;
begin
Result := False;
{$note uncomment implementation when LCL side reworked}
// Result := True;
// QtRestoreStayOnTop;
Result := True;
QtRestoreStayOnTop;
end;
procedure TQtWidgetSet.SetOverrideCursor(const AValue: TObject);
@ -357,7 +353,7 @@ begin
begin
W := TQtMainWindow(AForm.Handle);
if (AForm.Parent = nil) and
(AForm.FormStyle in [fsStayOnTop, fsSplash]) and W.GetVisible and
(AForm.FormStyle in fsAllNonSystemStayOnTop) and W.GetVisible and
not W.IsMdiChild and not W.IsModal and not w.isMinimized then
begin
Flags := W.windowFlags;
@ -393,7 +389,7 @@ begin
begin
W := TQtMainWindow(AForm.Handle);
if (AForm.Parent = nil) and
(AForm.FormStyle in [fsStayOnTop, fsSplash]) and W.GetVisible and
(AForm.FormStyle in fsAllNonSystemStayOnTop) and W.GetVisible and
not W.IsMdiChild and not W.IsModal and not W.isMinimized then
begin
if StayOnTopList.HasId(W) then