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

cocoa: processing system notifcations of the fullscreen changes

Browse Source 
git-svn-id: trunk@57624 -
This commit is contained in:
dmitry 2018-04-08 16:01:46 +00:00
parent 1519d4d14f
commit dbdd55fa0f
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -427,6 +427,10 @@ type
procedure windowDidResignKey(notification: NSNotification); message 'windowDidResignKey:';
procedure windowDidResize(notification: NSNotification); message 'windowDidResize:';
procedure windowDidMove(notification: NSNotification); message 'windowDidMove:';
// fullscreen notifications are only reported for 10.7 fullscreen
procedure windowWillEnterFullScreen(notification: NSNotification); message 'windowWillEnterFullScreen:';
procedure windowDidEnterFullScreen(notification: NSNotification); message 'windowDidEnterFullScreen:';
procedure windowDidExitFullScreen(notification: NSNotification); message 'windowDidExitFullScreen:';
public
callback: IWindowCallback;
LCLForm: TCustomForm;
@ -1895,6 +1899,25 @@ begin
callback.Move;
end;
procedure TCocoaWindow.windowWillEnterFullScreen(notification: NSNotification);
begin
if not isInFullScreen then isInFullScreen := true;
// setting fullscreen flag, prior to the "Fullscreen" has actually been enabled.
// MacOS does 10.7 fullscreen switch with an animation (that's about 1 second long)
// if during that animation there's another call toggleFullScreen() is made
// then macOS produces an output "not in fullscreen state" and ignores the call.
end;
procedure TCocoaWindow.windowDidEnterFullScreen(notification: NSNotification);
begin
if not isInFullScreen then isInFullScreen := true;
end;
procedure TCocoaWindow.windowDidExitFullScreen(notification: NSNotification);
begin
if isInFullScreen then isInFullScreen := false;
end;
procedure TCocoaWindow.dealloc;
begin
if (fieldEditor <> nil) then