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

cocoa: forcing collection behaviour to allow full screen, if fullscreen is requested. (not same by default for some unknown conditions on macOS 10.8)

Browse Source 
git-svn-id: trunk@57694 -
This commit is contained in:
dmitry 2018-04-25 01:38:10 +00:00
parent 1fd799fdfc
commit 70b3acf581
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/cocoa/cocoa_extra.pas
View File

@ -107,6 +107,12 @@ const
//kCGAssistiveTechHighWindowLevelKey = 20;
//kCGNumberOfWindowLevelKeys = 21; { Must be last. }
const
NSWindowCollectionBehaviorFullScreenPrimary = 1 shl 7; // 10.7
NSWindowCollectionBehaviorFullScreenAuxiliary = 1 shl 8; // 10.7
NSWindowCollectionBehaviorFullScreenAllowsTiling = 1 shl 11; // 10.11
NSWindowCollectionBehaviorFullScreenDisallowsTiling = 1 shl 12; // 10.11
implementation
end.

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

@ -2164,6 +2164,10 @@ begin
end;
procedure TCocoaWindow.lclSwitchFullScreen(AEnabled: Boolean);
const
fsmask = NSWindowCollectionBehaviorFullScreenPrimary
or
NSWindowCollectionBehaviorFullScreenAuxiliary;
begin
if isInFullScreen = AEnabled then Exit; // nothing to do
@ -2174,7 +2178,11 @@ begin
isInFullScreen := AEnabled;
if NSAppKitVersionNumber >= NSAppKitVersionNumber10_7 then
Self.toggleFullScreen(nil)
begin
if Self.collectionBehavior and fsmask = 0 then
Self.setCollectionBehavior(Self.collectionBehavior or NSWindowCollectionBehaviorFullScreenPrimary);
Self.toggleFullScreen(nil);
end
else
begin
if AEnabled then