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

SynEdit: fix caret after certain block.SetText operations. Issue #14195

Browse Source 
git-svn-id: trunk@20953 -
This commit is contained in:
martin 2009-07-25 16:54:51 +00:00
parent 34e2e7ad8d
commit f865263b5a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditpointclasses.pas
View File

@ -914,8 +914,8 @@ begin
BB.X := 1;
StartLineBytePos := BB; // deletes selection // calls selection changed
end;
FInternalCaret.LineBytePos := StartLineBytePos;
if (Value <> nil) and (Value[0] <> #0) then begin
FInternalCaret.LineBytePos := StartLineBytePos;
InsertText;
StartLineBytePos := FInternalCaret.LineBytePos; // reset selection
end;