paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-30 08:18:28 +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; List: THistoryList;
begin begin
FContent := TStringList.Create; FContent := TStringList.Create;
{$IF FPC_FULLVERSION >= 30101}
FContent.SkipLastLineBreak := True;
{$ENDIF}
OnShow := @DoWatch; OnShow := @DoWatch;
OnActivate := @DoWatch; OnActivate := @DoWatch;
TxtBeforeLinesComboBox.OnChange := @DoWatch; TxtBeforeLinesComboBox.OnChange := @DoWatch;