paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 12:57:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

EditorMacroScript: Mac workaround for TPoint

Browse Source 
git-svn-id: trunk@39413 -
This commit is contained in:
martin 2012-11-29 21:45:33 +00:00
parent 49904b6e13
commit d898d7ef4e
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/macroscript/emscriptclasses.pas
View File

@ -295,18 +295,32 @@ procedure TEmsSynWrapper.EMS_CopyToClipboard; begin CopyToClipboard; end;
procedure TEmsSynWrapper.EMS_CutToClipboard; begin CutToClipboard; end;
procedure TEmsSynWrapper.EMS_PasteFromClipboard; begin PasteFromClipboard; end;
function TEmsSynWrapper.EMS_LogicalToPhysicalPos(p: TPoint): TPoint;
function TEmsSynWrapper.EMS_LogicalToPhysicalPos(p: TPoint): {$IFDEF NeedTPointFix}TPoint2{$ELSE}TPoint{$ENDIF};
{$IFDEF NeedTPointFix}var r: TPoint{$ENDIF};
begin
Result := LogicalToPhysicalPos(p);
{$IFDEF NeedTPointFix}
r := LogicalToPhysicalPos(p);
Result.x := r.x;
Result.y := r.y;
{$ELSE}
Result := LogicalToPhysicalPos(p);
{$ENDIF}
end;
function TEmsSynWrapper.EMS_LogicalToPhysicalCol(Line: String; Index,
LogicalPos: integer): integer;
begin
Result := LogicalToPhysicalCol(Line, Index, LogicalPos);
end;
function TEmsSynWrapper.EMS_PhysicalToLogicalPos(p: TPoint): TPoint;
function TEmsSynWrapper.EMS_PhysicalToLogicalPos(p: TPoint): {$IFDEF NeedTPointFix}TPoint2{$ELSE}TPoint{$ENDIF};
{$IFDEF NeedTPointFix}var r: TPoint{$ENDIF};
begin
{$IFDEF NeedTPointFix}
rp:= PhysicalToLogicalPos(p);
Result.x := r.x;
Result.y := r.y;
{$ELSE}
Result := PhysicalToLogicalPos(p);
{$ENDIF}
end;
function TEmsSynWrapper.EMS_PhysicalToLogicalCol(Line: string; Index,
PhysicalPos: integer): integer;