paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-02 12:29:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: update the use of _CGDisplayCreateImage. #33977

Browse Source 
git-svn-id: trunk@58513 -
This commit is contained in:
dmitry 2018-07-14 02:26:30 +00:00
parent 2cf32ee41e
commit fb5dac044d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoalclintf.inc
View File

@ -556,12 +556,12 @@ begin
{ Get's a screenshot }
displayID := CGMainDisplayID();
if not Assigned(@_CGDisplayCreateImage) then begin
if not Assigned(Pointer(_CGDisplayCreateImage)) then begin
Pointer(_CGDisplayCreateImage) := GetProcAddress(TLibHandle(RTLD_DEFAULT), 'CGDisplayCreateImage');
if not Assigned(@_CGDisplayCreateImage) then
Pointer(_CGDisplayCreateImage) := @CGDisplayCreateImageNone;
end;
ScreenImage := CGDisplayCreateImage(displayID);
ScreenImage := _CGDisplayCreateImage(displayID);
{ Fills the image description }
ARawImage.Init;