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

EditorMacroScript: Fix SetTextBetweenPoints

Browse Source 
git-svn-id: trunk@63625 -
This commit is contained in:
martin 2020-07-22 18:01:03 +00:00
parent 5ec3f02ed0
commit b9a70c31b0
1 changed files with 1 additions and 1 deletions

2
components/macroscript/emscriptclasses.pas
View File

@ -765,7 +765,7 @@ begin
if not Result then
exit;
Obj.SetTextBetweenPoints(GetVarPointFromStack(Stack, -2)^, GetVarPointFromStack(Stack, -3)^,
Stack.GetAnsiString(-4), TSynEditTextFlags(Stack.GetUInt(-5)),
Stack.GetAnsiString(-4), TSynEditTextFlags(GetSetFromStack(Stack, -5)),
TSynCaretAdjustMode(Stack.GetUInt(-6)), TSynMarksAdjustMode(Stack.GetUInt(-7)),
TSynSelectionMode(Stack.GetUInt(-8))
);