paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 06:29:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

EditorMacroScript: Mac workaround for TPoint

Browse Source 
git-svn-id: trunk@39416 -
This commit is contained in:
martin 2012-11-29 21:49:41 +00:00
parent 42d3b7b7fa
commit 194524dfa0
1 changed files with 1 additions and 1 deletions

2
components/macroscript/emscriptclasses.pas
View File

@ -315,7 +315,7 @@ function TEmsSynWrapper.EMS_PhysicalToLogicalPos(p: TPoint): {$IFDEF NeedTPointF
{$IFDEF NeedTPointFix}var r: TPoint;{$ENDIF}
begin
{$IFDEF NeedTPointFix}
rp:= PhysicalToLogicalPos(p);
r:= PhysicalToLogicalPos(p);
Result.x := r.x;
Result.y := r.y;
{$ELSE}