paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 16:56:01 +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
kWindowStandardDocumentAttributes or
// kWindowLiveResizeAttribute or
kWindowStandardHandlerAttribute,
kWindowStandardHandlerAttribute or kWindowFrameworkScaledAttribute,
R, W
);
if W = nil then Exit;

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

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

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

@ -596,7 +596,7 @@ begin
if OSError(
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;
try