From 8b28bc8ddde594ae7e3fb38a2e64540c3669adeb Mon Sep 17 00:00:00 2001
From: wp <wp.no-reply@lazarus-ide-org>
Date: Wed, 21 Oct 2015 09:13:42 +0000
Subject: [PATCH] TurboPower_ipro: Avoid insertion of empty line into
 word-wrapped long text copied to clipboard. Replace literal "#13#10" by
 "LineEnding"

git-svn-id: trunk@50135 -
---
 components/turbopower_ipro/iphtml.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/turbopower_ipro/iphtml.pas b/components/turbopower_ipro/iphtml.pas
index 6159be75fa..22f825bc57 100644
--- a/components/turbopower_ipro/iphtml.pas
+++ b/components/turbopower_ipro/iphtml.pas
@@ -9122,10 +9122,12 @@ begin
   for i := StartSelIndex to EndSelIndex do begin
     CurElem := PIpHtmlElement(FLayouter.FElementQueue[i]);
     R := CurElem.WordRect2;
+    { wp: removed because this would add an empty line to a long word-wrapped text
     if not LFDone and (R.Top <> LastY) then begin
-      S := S + #13#10;
+      S := S + LineEnding;
       LFDone := True;
     end;
+    }
     case CurElem.ElementType of
     etWord :
       begin
@@ -9139,7 +9141,7 @@ begin
       end;
     etSoftLF..etClearBoth :
       if not LFDone then begin
-        S := S + #13#10;
+        S := S + LineEnding;
         LFDone := True;
       end;
     end;