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

carbon: Patch from bug #22454 High resolution canvas for Retina displays

Browse Source 
git-svn-id: trunk@52694 -
This commit is contained in:
sekelsenmat 2016-07-15 19:10:10 +00:00
parent 297e19a349
commit b4d93e4f9e
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carbondebug.pp
View File

@ -128,7 +128,7 @@ begin
kWindowCompositingAttribute or kWindowCompositingAttribute or
kWindowStandardDocumentAttributes or kWindowStandardDocumentAttributes or
// kWindowLiveResizeAttribute or // kWindowLiveResizeAttribute or
kWindowStandardHandlerAttribute, kWindowStandardHandlerAttribute or kWindowFrameworkScaledAttribute,
R, W R, W
); );
if W = nil then Exit; if W = nil then Exit;

2
lcl/interfaces/carbon/carbonprivate.pp
View File

@ -428,7 +428,7 @@ begin
if OSError( if OSError(
CreateNewWindow(kHelpWindowClass, CreateNewWindow(kHelpWindowClass,
kWindowCompositingAttribute or kWindowCompositingAttribute or
kWindowHideOnSuspendAttribute or kWindowStandardHandlerAttribute, kWindowHideOnSuspendAttribute or kWindowStandardHandlerAttribute or kWindowFrameworkScaledAttribute,
ParamsToCarbonRect(AParams), AWindow{%H-}), ParamsToCarbonRect(AParams), AWindow{%H-}),
Self, SCreateWidget, 'CreateNewWindow') then RaiseCreateWidgetError(LCLObject); Self, SCreateWidget, 'CreateNewWindow') then RaiseCreateWidgetError(LCLObject);

2
lcl/interfaces/carbon/carbonwsdialogs.pp
View File

@ -596,7 +596,7 @@ begin
if OSError( if OSError(
CreateNewWindow(kModalWindowClass, CreateNewWindow(kModalWindowClass,
kWindowCompositingAttribute or kWindowStandardHandlerAttribute, GetCarbonRect(0, 0, 0, 0), Dialog{%H-}), kWindowCompositingAttribute or kWindowStandardHandlerAttribute or kWindowFrameworkScaledAttribute, GetCarbonRect(0, 0, 0, 0), Dialog{%H-}),
Self, SShowModal, 'CreateNewWindow') then Exit; Self, SShowModal, 'CreateNewWindow') then Exit;
try try