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

Qt: fixed loop appActivate/appDeactivate when restoring stayonTop forms in appActivate.

Browse Source 
git-svn-id: trunk@25746 -
This commit is contained in:
zeljko 2010-05-29 07:21:07 +00:00
parent bc29cb20a4
commit 08ca74b42e
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/qt/qtint.pp
View File

@ -57,6 +57,7 @@ type
TQtWidgetSet = Class(TWidgetSet)
private
App: QApplicationH;
FEatNextDeactivate: Boolean;
FOverrideCursor: TObject;
SavedDCList: TFPList;
CriticalSection: TRTLCriticalSection;

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

@ -39,6 +39,7 @@ begin
SavedHandlesList := TMap.Create(TMapIdType(ituPtrSize), SizeOf(TObject));
FSocketEventMap := TMap.Create(TMapIdType(its4), SizeOf(Pointer));
StayOnTopList := nil;
FEatNextDeactivate := False;
{$IFDEF HASX11}
FLastMinimizeEvent := 0;
{$ENDIF}
@ -403,8 +404,8 @@ begin
W.BeginUpdate;
Flags := W.windowFlags;
W.setWindowFlags(Flags or QtWindowStaysOnTopHint);
W.setAttribute(QtWA_ShowWithoutActivating, False);
W.Show;
W.setAttribute(QtWA_ShowWithoutActivating, False);
W.EndUpdate;
end;
end;
@ -422,18 +423,30 @@ end;
function TQtWidgetSet.EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
var
AObject: TQtObject;
W: TQtMainWindow;
begin
Result := False;
case QEvent_type(Event) of
QEventApplicationActivate:
if Assigned(Application) then
if Assigned(Application) and not FEatNextDeactivate then
begin
// check if activated form is StayOnTop, if it's so, we must
// eat next appdeactivate & appactivate since we are changing form
// flags !
if (StayOnTopList <> nil) then
begin
W := TQtMainWindow(HWNDFromWidgetH(QApplication_activeWindow()));
FEatNextDeactivate := StayOnTopList.HasId(W);
end;
Application.IntfAppActivate;
QtRestoreStayOnTop;
end;
if (FEatNextDeactivate) and (W <> nil) then
W.Activate;
end else
FEatNextDeactivate := False;
QEventApplicationDeactivate:
if Assigned(Application) then
if Assigned(Application) and not FEatNextDeactivate then
begin
Application.IntfAppDeactivate;
QtRemoveStayOnTop;