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

IDE: multi paste: added SkipLastLineBreak

Browse Source 
git-svn-id: trunk@53067 -
This commit is contained in:
mattias 2016-10-02 19:39:14 +00:00
parent 0ec085ca5b
commit d733dec6c7
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/multipastedlg.pas
View File

@ -85,6 +85,10 @@ var
List: THistoryList;
begin
FContent := TStringList.Create;
{$IF FPC_FULLVERSION >= 30101}
FContent.SkipLastLineBreak := True;
{$ENDIF}
OnShow := @DoWatch;
OnActivate := @DoWatch;
TxtBeforeLinesComboBox.OnChange := @DoWatch;