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

carbon: fixed SetWindowOrgEx for windows compatibility

Browse Source 
git-svn-id: trunk@24167 -
This commit is contained in:
dmitry 2010-03-22 09:38:16 +00:00
parent 518fc97931
commit b49301200d
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/carbon/carbonwinapi.inc
View File

@ -2443,7 +2443,7 @@ begin
{$ENDIF}
if not CheckDC(DC, 'MoveWindowOrgEx') then Exit;
CGContextTranslateCTM(TCarbonContext(DC).CGContext, DX, DY);
Result := True;
end;
@ -3358,7 +3358,7 @@ begin
GetWindowOrgEx(DC, @OldP);
Result := MoveWindowOrgEx(DC, NewX - OldP.X, NewY - OldP.Y);
Result := MoveWindowOrgEx(DC, - NewX - OldP.X, - NewY - OldP.Y);
if OldPoint <> nil then
OldPoint := @OldP;
end;