paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:20:46 +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; function TQtWidgetSet.AppRemoveStayOnTopFlags: Boolean;
begin begin
Result := False; Result := True;
{$note uncomment implementation when LCL side reworked} QtRemoveStayOnTop;
// Result := True;
// QtRemoveStayOnTop;
end; end;
function TQtWidgetSet.AppRestoreStayOnTopFlags: Boolean; function TQtWidgetSet.AppRestoreStayOnTopFlags: Boolean;
begin begin
Result := False; Result := True;
{$note uncomment implementation when LCL side reworked} QtRestoreStayOnTop;
// Result := True;
// QtRestoreStayOnTop;
end; end;
procedure TQtWidgetSet.SetOverrideCursor(const AValue: TObject); procedure TQtWidgetSet.SetOverrideCursor(const AValue: TObject);
@ -357,7 +353,7 @@ begin
begin begin
W := TQtMainWindow(AForm.Handle); W := TQtMainWindow(AForm.Handle);
if (AForm.Parent = nil) and 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 not W.IsMdiChild and not W.IsModal and not w.isMinimized then
begin begin
Flags := W.windowFlags; Flags := W.windowFlags;
@ -393,7 +389,7 @@ begin
begin begin
W := TQtMainWindow(AForm.Handle); W := TQtMainWindow(AForm.Handle);
if (AForm.Parent = nil) and 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 not W.IsMdiChild and not W.IsModal and not W.isMinimized then
begin begin
if StayOnTopList.HasId(W) then if StayOnTopList.HasId(W) then