paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 06:18:20 +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;
callback: TLCLCommonCallback;
backingScaleFactor: Single;
function acceptsFirstResponder: Boolean; override;
function becomeFirstResponder: Boolean; override;
function resignFirstResponder: Boolean; override;
function acceptsFirstResponder: LCLObjCBoolean; override;
function becomeFirstResponder: LCLObjCBoolean; override;
function resignFirstResponder: LCLObjCBoolean; override;
procedure drawRect(dirtyRect: NSRect); override;
procedure dealloc; override;
function lclGetCallback: ICommonCallback; override;
@ -391,18 +391,18 @@ end; *)
{ TCocoaOpenGLView }
function TCocoaOpenGLView.acceptsFirstResponder: Boolean;
function TCocoaOpenGLView.acceptsFirstResponder: LCLObjCBoolean;
begin
Result := True;
end;
function TCocoaOpenGLView.becomeFirstResponder: Boolean;
function TCocoaOpenGLView.becomeFirstResponder: LCLObjCBoolean;
begin
Result:=inherited becomeFirstResponder;
callback.BecomeFirstResponder;
end;
function TCocoaOpenGLView.resignFirstResponder: Boolean;
function TCocoaOpenGLView.resignFirstResponder: LCLObjCBoolean;
begin
Result:=inherited resignFirstResponder;
callback.ResignFirstResponder;