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

lcl: grids: don't add line break if only one cell is selected. Change #13#10 to sLineBreak

Browse Source 
git-svn-id: trunk@52352 -
This commit is contained in:
ondrej 2016-05-23 06:13:04 +00:00
parent 0b9e2259d5
commit 58277d75f2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/grids.pas
View File

@ -10397,7 +10397,8 @@ begin
SelStr := SelStr + #9; SelStr := SelStr + #9;
end; end;
SelStr := SelStr + #13#10; if (R.Top <> R.Bottom) or (R.Left <> R.Right) then
SelStr := SelStr + sLineBreak;
end; end;
Clipboard.AsText := SelStr; Clipboard.AsText := SelStr;
end; end;