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

EditorMacroScript: Fix playing ecUserFirst++ commands (IDE commands)

Browse Source 
git-svn-id: trunk@39410 -
This commit is contained in:
martin 2012-11-29 20:57:27 +00:00
parent 9c366ba76c
commit 7d0bac6415
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/macroscript/emscriptmacro.pas
View File

@ -90,12 +90,12 @@ begin
begin
pt.x := Stack.GetInt(-1);
pt.y := Stack.GetInt(-2);
e.SynEdit.ExecuteCommand(i, '', @pt);
e.SynEdit.CommandProcessor(i, '', @pt);
end;
ecChar:
e.SynEdit.ExecuteCommand(i, Stack.GetAnsiString(-1), nil);
e.SynEdit.CommandProcessor(i, Stack.GetAnsiString(-1), nil);
else
e.SynEdit.ExecuteCommand(i, '', nil);
e.SynEdit.CommandProcessor(i, '', nil);
end;
Result := True;
end;