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

SynEdit: Fixed smNormal Block-Selectional for Past-EOL. If only one line was selected the Area past EOL was ignored

Browse Source 
git-svn-id: trunk@21038 -
This commit is contained in:
martin 2009-07-31 21:35:53 +00:00
parent e17a71f967
commit 430990d9f1
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/syneditpointclasses.pas
View File

@ -658,9 +658,12 @@ begin
TotalLen := 0; TotalLen := 0;
case ActiveSelectionMode of case ActiveSelectionMode of
smNormal: smNormal:
if (First = Last) then if (First = Last) then begin
Result := Copy(FLines[First], ColFrom, ColTo - ColFrom) Result := Copy(FLines[First], ColFrom, ColTo - ColFrom);
else begin I := (ColTo - ColFrom) - length(Result);
if I > 0 then
Result := Result + StringOfChar(' ', I);
end else begin
// step1: calculate total length of result string // step1: calculate total length of result string
TotalLen := Max(0, Length(FLines[First]) - ColFrom + 1); TotalLen := Max(0, Length(FLines[First]) - ColFrom + 1);
for i := First + 1 to Last - 1 do for i := First + 1 to Last - 1 do