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

EditorMacroScript: Mac workaround for TPoint

Browse Source 
git-svn-id: trunk@39414 -
This commit is contained in:
martin 2012-11-29 21:46:23 +00:00
parent d898d7ef4e
commit 7abef66276
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/macroscript/emscriptclasses.pas
View File

@ -296,7 +296,7 @@ procedure TEmsSynWrapper.EMS_CutToClipboard; begin CutToClipboard; end;
procedure TEmsSynWrapper.EMS_PasteFromClipboard; begin PasteFromClipboard; end;
function TEmsSynWrapper.EMS_LogicalToPhysicalPos(p: TPoint): {$IFDEF NeedTPointFix}TPoint2{$ELSE}TPoint{$ENDIF};
{$IFDEF NeedTPointFix}var r: TPoint{$ENDIF};
{$IFDEF NeedTPointFix}var r: TPoint;{$ENDIF}
begin
{$IFDEF NeedTPointFix}
r := LogicalToPhysicalPos(p);
@ -312,7 +312,7 @@ begin
Result := LogicalToPhysicalCol(Line, Index, LogicalPos);
end;
function TEmsSynWrapper.EMS_PhysicalToLogicalPos(p: TPoint): {$IFDEF NeedTPointFix}TPoint2{$ELSE}TPoint{$ENDIF};
{$IFDEF NeedTPointFix}var r: TPoint{$ENDIF};
{$IFDEF NeedTPointFix}var r: TPoint;{$ENDIF}
begin
{$IFDEF NeedTPointFix}
rp:= PhysicalToLogicalPos(p);