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

SynEdit: Tests for group undo for smart-unindent

Browse Source 
git-svn-id: trunk@22582 -
This commit is contained in:
martin 2009-11-13 21:56:58 +00:00
parent e706efaedb
commit 88407a2f4b
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/test/testsynbeautifier.pas
View File

@ -139,7 +139,10 @@ begin
PopPushBaseName(Name + '(group-undo)');
SetLines(Text);
SetCaret(X, Y);
if (SelX >= 0) then
SetCaretAndSel(SelX, SelY, X, Y)
else
SetCaret(X, Y);
SynEdit.Options := SynEdit.Options + [eoGroupUndo];
for i := 0 to length(data) div 4 - 1 do begin
st := [];
@ -515,7 +518,7 @@ procedure TTestSynBeautifier.DefaultUnIndent;
Result := LinesToText(LinesReplace(TestText, rpl))
end;
begin
SkipGroupUndo := True; // Todo
SkipGroupUndo := False;
ReCreateEdit;
SynEdit.TabWidth := 4;
SynEdit.TrimSpaceType := settMoveCaret;
@ -560,6 +563,7 @@ begin
VK_BACK, 1,10, ExpText([ 10, 'z'])
]);
SkipGroupUndo := True; // The first VK_BACK is deletet, not unindent, therefore it's 2 different undo
SynEdit.Options := SynEdit.Options - [eoTrimTrailingSpaces];
TestRedoUndo('only indent, no text', TestText, 8,3, [
VK_BACK, 7,3, ExpText([ 3, ' ']),
@ -576,6 +580,7 @@ begin
VK_BACK, 1,3, ExpText([ 3, ''])
]);
SynEdit.Options := SynEdit.Options - [eoTrimTrailingSpaces];
SkipGroupUndo := False;
TestRedoUndo('no unindent (selection)', TestText, 5,2, [ VK_BACK, 4,2, ExpText([ 2, ' b']) ], 4,2);
TestRedoUndo('no unindent (selection)', TestText, 5,2, [ VK_BACK, 1,2, ExpText([ 2, 'b']) ], 1,2);