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

Qt: remove stayontop in appdeactivate, restore in appactivate.

Browse Source 
git-svn-id: trunk@25537 -
This commit is contained in:
zeljko 2010-05-20 11:14:21 +00:00
parent a72bba258d
commit 86443fce56
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -336,6 +336,12 @@ begin
FOverrideCursor := AValue;
end;
type
TQtTempFormStyleSet = Set of TFormStyle;
const
TQtTopForms: Array[Boolean] of TQtTempFormStyleSet = (fsAllNonSystemStayOnTop,
fsAllStayOnTop);
procedure TQtWidgetSet.QtRemoveStayOnTop(const ASystemTopAlso: Boolean = False);
var
i: Integer;
@ -345,7 +351,6 @@ var
begin
if StayOnTopList = nil then
StayOnTopList := TMap.Create(TMapIdType(ituPtrSize), SizeOf(TObject));
for i := 0 to Screen.CustomFormZOrderCount - 1 do
begin
AForm := Screen.CustomFormsZOrdered[i];
@ -353,7 +358,7 @@ begin
begin
W := TQtMainWindow(AForm.Handle);
if (AForm.Parent = nil) and
(AForm.FormStyle in fsAllNonSystemStayOnTop) and W.GetVisible and
(AForm.FormStyle in TQtTopForms[ASystemTopAlso]) and W.GetVisible and
not W.IsMdiChild and not W.IsModal and not w.isMinimized then
begin
Flags := W.windowFlags;
@ -383,13 +388,12 @@ begin
exit;
for i := Screen.CustomFormZOrderCount - 1 downto 0 do
begin
// AForm := StayOnTopList.Items[i];
AForm := Screen.CustomFormsZOrdered[i];
if AForm.HandleAllocated then
begin
W := TQtMainWindow(AForm.Handle);
if (AForm.Parent = nil) and
(AForm.FormStyle in fsAllNonSystemStayOnTop) and W.GetVisible and
(AForm.FormStyle in TQtTopForms[ASystemTopAlso]) and W.GetVisible and
not W.IsMdiChild and not W.IsModal and not W.isMinimized then
begin
if StayOnTopList.HasId(W) then
@ -397,8 +401,8 @@ begin
W.BeginUpdate;
Flags := W.windowFlags;
W.setWindowFlags(Flags or QtWindowStaysOnTopHint);
W.Show;
W.setAttribute(QtWA_ShowWithoutActivating, False);
W.Show;
W.EndUpdate;
end;
end;
@ -421,11 +425,17 @@ begin
case QEvent_type(Event) of
QEventApplicationActivate:
if Assigned(Application) then
begin
Application.IntfAppActivate;
QtRestoreStayOnTop;
end;
QEventApplicationDeactivate:
if Assigned(Application) then
begin
Application.IntfAppDeactivate;
QtRemoveStayOnTop;
end;
QEventApplicationPaletteChange:
begin