mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 02:19:32 +02:00
carbon: fixed SetWindowOrgEx for windows compatibility
git-svn-id: trunk@24167 -
This commit is contained in:
parent
518fc97931
commit
b49301200d
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user