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

SynEdit, Fix Replacing SelectedText, if selection is backwards, issue #13904

Browse Source 
git-svn-id: trunk@20399 -
This commit is contained in:
martin 2009-06-04 10:46:53 +00:00
parent 904c6cee55
commit 0ed28eaffa
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

@ -830,7 +830,7 @@ begin
BE := LastLineBytePos;
if SelAvail then begin
DeleteSelection;
EndLineBytePos := BB; // deletes selection // calls selection changed
StartLineBytePos := BB; // deletes selection // calls selection changed
end;
if (Value <> nil) and (Value[0] <> #0) then begin
FCaret.LineBytePos := StartLineBytePos;