paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-16 18:48:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/Grids: Add grid option goCopyWithoutTrailingLinebreak to avoid copying cells to the clipboard with trailing linebreak.

Browse Source
This commit is contained in:
wp_xyz 2023-11-06 18:36:49 +01:00
parent 9ec85e5d2a
commit fb8756e03b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/grids.pas
View File

@ -123,7 +123,8 @@ type
goScrollToLastCol, // Allow scrolling to last column (so that last column can be LeftCol) goScrollToLastCol, // Allow scrolling to last column (so that last column can be LeftCol)
goScrollToLastRow, // Allow scrolling to last row (so that last row can be TopRow) goScrollToLastRow, // Allow scrolling to last row (so that last row can be TopRow)
goEditorParentColor, // Set editor's ParentColor to True goEditorParentColor, // Set editor's ParentColor to True
goEditorParentFont // Set editor's ParentFont to True goEditorParentFont, // Set editor's ParentFont to True
goCopyWithoutTrailingLinebreak // Copy to clipboard without trailing linebreak
); );
TGridOptions2 = set of TGridOption2; TGridOptions2 = set of TGridOption2;
@ -11565,7 +11566,8 @@ begin
SelStr := SelStr + #9; SelStr := SelStr + #9;
end; end;
SelStr := SelStr + sLineBreak; if (aRow < R.Bottom) or not (goCopyWithoutTrailingLinebreak in FOptions2) then
SelStr := SelStr + sLineBreak;
SelHTMLStr := SelHTMLStr + '</tr>' + #13#10; SelHTMLStr := SelHTMLStr + '</tr>' + #13#10;
end; end;
SelHTMLStr := SelHTMLStr + #13#10 + '</table>'; SelHTMLStr := SelHTMLStr + #13#10 + '</table>';