paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 08:13:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

EditorMacroScript: Workaround for Mac, prevent using edx in result for TPoint

Browse Source 
git-svn-id: trunk@39404 -
This commit is contained in:
martin 2012-11-28 21:58:00 +00:00
parent f3f3521292
commit e3fb445130
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/macroscript/test/testscriptprocs.pas
View File

@ -65,10 +65,12 @@ begin
FTestSyn := TSynEdit.Create(nil);
FTestMacro := TEMSEditorMacro.Create(nil);
try
{$IFnDEF darwin}
DoTestSimple('SizeOf(TPoint)', '',
'var p: TPoint; begin if SizeOf(p) = ' +IntToStr(SizeOf(TPoint)) + ' then Caller.InsertTextAtCaret(''Y'', scamEnd); end.',
'Y'
);
{$ENDIF}
DoTestSimple('mrNone', '',
'if mrNone = ' +IntToStr(mrNone) + ' then Caller.InsertTextAtCaret(''Y'', scamEnd);',