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

EditorMacroScript: Mac workaround for TPoint

Browse Source 
git-svn-id: trunk@39415 -
This commit is contained in:
martin 2012-11-29 21:48:23 +00:00
parent 7abef66276
commit 42d3b7b7fa
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

@ -239,9 +239,9 @@ type
procedure EMS_CutToClipboard; procedure EMS_CutToClipboard;
procedure EMS_PasteFromClipboard; procedure EMS_PasteFromClipboard;
function EMS_LogicalToPhysicalPos(p: TPoint): TPoint; function EMS_LogicalToPhysicalPos(p: TPoint): {$IFDEF NeedTPointFix}TPoint2{$ELSE}TPoint{$ENDIF};
function EMS_LogicalToPhysicalCol(Line: String; Index, LogicalPos: integer): integer; function EMS_LogicalToPhysicalCol(Line: String; Index, LogicalPos: integer): integer;
function EMS_PhysicalToLogicalPos(p: TPoint): TPoint; function EMS_PhysicalToLogicalPos(p: TPoint): {$IFDEF NeedTPointFix}TPoint2{$ELSE}TPoint{$ENDIF};
function EMS_PhysicalToLogicalCol(Line: string; Index, PhysicalPos: integer): integer; function EMS_PhysicalToLogicalCol(Line: string; Index, PhysicalPos: integer): integer;
function EMS_PhysicalLineLength(Line: String; Index: integer): integer; function EMS_PhysicalLineLength(Line: String; Index: integer): integer;
end; end;