Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Fix attributes count #16

Open
wants to merge 2 commits into
base: GL-version
Choose a base branch
from
Open

Fix attributes count #16

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
6ce44f2
Fix macOS compilation with FPC >= 3.2.0
May 16, 2022
0fd0871
Fix attributes count in TOpenGLView.defaultPixelFormat
michaliskambi Jun 1, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 9 additions & 9 deletions GLPT_Cocoa.inc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -230,23 +230,23 @@ end;
type
TBorderlessWindow = objcclass (NSWindow)
public
function initWithContentRect_styleMask_backing_defer (contentRect: NSRect; aStyle: NSUInteger; bufferingType: NSBackingStoreType; flag: boolean): id; override;
function initWithContentRect_styleMask_backing_defer (contentRect: NSRect; aStyle: NSUInteger; bufferingType: NSBackingStoreType; flag: ObjCBool): id; override;
function initWithContentRect(contentRect: NSRect): id; message 'initWithContentRect:';
function canBecomeKeyWindow: boolean; override;
function canBecomeMainWindow: boolean; override;
function canBecomeKeyWindow: ObjCBool; override;
function canBecomeMainWindow: ObjCBool; override;
procedure setKeepFullScreenAlways (newValue: boolean); message 'setKeepFullScreenAlways:';
private
keepFullScreenAlways: boolean;
procedure screenParametersChanged (notification: NSNotification); message 'screenParametersChanged:';
procedure dealloc; override;
end;

function TBorderlessWindow.canBecomeKeyWindow: boolean;
function TBorderlessWindow.canBecomeKeyWindow: ObjCBool;
begin
result := true;
end;

function TBorderlessWindow.canBecomeMainWindow: boolean;
function TBorderlessWindow.canBecomeMainWindow: ObjCBool;
begin
result := true;
end;
Expand All @@ -271,7 +271,7 @@ begin
inherited dealloc;
end;

function TBorderlessWindow.initWithContentRect_styleMask_backing_defer (contentRect: NSRect; aStyle: NSUInteger; bufferingType: NSBackingStoreType; flag: boolean): id;
function TBorderlessWindow.initWithContentRect_styleMask_backing_defer (contentRect: NSRect; aStyle: NSUInteger; bufferingType: NSBackingStoreType; flag: ObjCBool): id;
begin
result := inherited initWithContentRect_styleMask_backing_defer(contentRect, aStyle, bufferingType, flag);
if result <> nil then
Expand Down Expand Up @@ -442,7 +442,7 @@ type
TOpenGLView = objcclass (NSView)
public
function initWithFrame(frameRect: NSRect): id; override;
function isOpaque: Boolean; override;
function isOpaque: ObjCBool; override;
private
openGLContext: NSOpenGLContext;
trackingArea: NSTrackingArea;
Expand Down Expand Up @@ -556,7 +556,7 @@ begin
end;
end;

function TOpenGLView.isOpaque: Boolean;
function TOpenGLView.isOpaque: ObjCBool;
begin
// return false to make the view transparent
result := window.backgroundColor.alphaComponent > 0;
Expand All @@ -575,7 +575,7 @@ const
NSOpenGLProfileVersion3_2Core = $3200 { available in 10_7 };
NSOpenGLProfileVersion4_1Core = $4100 { available in 10_10 };
var
attributes: array[0..4] of NSOpenGLPixelFormatAttribute;
attributes: array[0..32] of NSOpenGLPixelFormatAttribute;
i: integer = -1;
context: GLPT_Context;
begin
Expand Down