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

SynEdit: Fix trailing spaces and tab-blockindent. trimming spaces would sometimes unset the selection.

Browse Source 
git-svn-id: trunk@17790 -
This commit is contained in:
martin 2008-12-10 23:34:51 +00:00
parent fc8a0777a9
commit 3ca6d95bcb
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/synedit/synedit.pp
View File

@ -9163,6 +9163,7 @@ begin
inc(BB.x, fBlockIndent); inc(BB.x, fBlockIndent);
BE.x := x; BE.x := x;
end; end;
TSynEditStringTrimmingList(fTrimLines).ForceTrim; // Otherwise it may reset the block
SetCaretAndSelection(LogicalToPhysicalPos(BE), BB, BE); SetCaretAndSelection(LogicalToPhysicalPos(BE), BB, BE);
{$ELSE} {$ELSE}
SetCaretAndSelection(OrgCaretPos, SetCaretAndSelection(OrgCaretPos,
@ -9318,6 +9319,7 @@ begin
dec(BB.x, FirstIndent); dec(BB.x, FirstIndent);
dec(BE.x, LastIndent); dec(BE.x, LastIndent);
end; end;
TSynEditStringTrimmingList(fTrimLines).ForceTrim; // Otherwise it may reset the block
SetCaretAndSelection(LogicalToPhysicalPos(BE), BB, BE); SetCaretAndSelection(LogicalToPhysicalPos(BE), BB, BE);
{$ELSE} {$ELSE}
if FirstIndent = -1 then if FirstIndent = -1 then