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

Carbon: Setting DC origin through SetWindowOrg and calling BitBlt does not work under OSX. Issue #28689 and #25564

Browse Source 
git-svn-id: trunk@57022 -
This commit is contained in:
balazs 2018-01-09 06:19:00 +00:00
parent 4e09fc9c2c
commit 4bddb9a44b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/carbon/carboncanvas.pp
View File

@ -1533,6 +1533,9 @@ begin
if Image = nil then Exit; if Image = nil then Exit;
//apply window offset
XSrc := XSrc - SrcDC.WindowOfs.X;
YSrc := YSrc - SrcDC.WindowOfs.Y;
DstRect := CGRectMake(X, Y, Abs(Width), Abs(Height)); DstRect := CGRectMake(X, Y, Abs(Width), Abs(Height));
SubMask := (Msk <> nil) SubMask := (Msk <> nil)