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

cocoa: update OpenGL component to use LCLObjCBoolean type (rel #34609)

Browse Source 
git-svn-id: trunk@59726 -
This commit is contained in:
dmitry 2018-12-04 04:23:53 +00:00
parent c7ae0282b6
commit fab0116dbd
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/opengl/glcocoanscontext.pas
View File

@ -71,9 +71,9 @@ type
//nsGL: NSOpenGLContext; //nsGL: NSOpenGLContext;
callback: TLCLCommonCallback; callback: TLCLCommonCallback;
backingScaleFactor: Single; backingScaleFactor: Single;
function acceptsFirstResponder: Boolean; override; function acceptsFirstResponder: LCLObjCBoolean; override;
function becomeFirstResponder: Boolean; override; function becomeFirstResponder: LCLObjCBoolean; override;
function resignFirstResponder: Boolean; override; function resignFirstResponder: LCLObjCBoolean; override;
procedure drawRect(dirtyRect: NSRect); override; procedure drawRect(dirtyRect: NSRect); override;
procedure dealloc; override; procedure dealloc; override;
function lclGetCallback: ICommonCallback; override; function lclGetCallback: ICommonCallback; override;
@ -391,18 +391,18 @@ end; *)
{ TCocoaOpenGLView } { TCocoaOpenGLView }
function TCocoaOpenGLView.acceptsFirstResponder: Boolean; function TCocoaOpenGLView.acceptsFirstResponder: LCLObjCBoolean;
begin begin
Result := True; Result := True;
end; end;
function TCocoaOpenGLView.becomeFirstResponder: Boolean; function TCocoaOpenGLView.becomeFirstResponder: LCLObjCBoolean;
begin begin
Result:=inherited becomeFirstResponder; Result:=inherited becomeFirstResponder;
callback.BecomeFirstResponder; callback.BecomeFirstResponder;
end; end;
function TCocoaOpenGLView.resignFirstResponder: Boolean; function TCocoaOpenGLView.resignFirstResponder: LCLObjCBoolean;
begin begin
Result:=inherited resignFirstResponder; Result:=inherited resignFirstResponder;
callback.ResignFirstResponder; callback.ResignFirstResponder;