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

TurboPower_ipro: Avoid insertion of empty line into word-wrapped long text copied to clipboard. Replace literal "#13#10" by "LineEnding"

Browse Source 
git-svn-id: trunk@50135 -
This commit is contained in:
wp 2015-10-21 09:13:42 +00:00
parent 06bdecede0
commit 8b28bc8ddd
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/turbopower_ipro/iphtml.pas
View File

@ -9122,10 +9122,12 @@ begin
for i := StartSelIndex to EndSelIndex do begin for i := StartSelIndex to EndSelIndex do begin
CurElem := PIpHtmlElement(FLayouter.FElementQueue[i]); CurElem := PIpHtmlElement(FLayouter.FElementQueue[i]);
R := CurElem.WordRect2; 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 if not LFDone and (R.Top <> LastY) then begin
S := S + #13#10; S := S + LineEnding;
LFDone := True; LFDone := True;
end; end;
}
case CurElem.ElementType of case CurElem.ElementType of
etWord : etWord :
begin begin
@ -9139,7 +9141,7 @@ begin
end; end;
etSoftLF..etClearBoth : etSoftLF..etClearBoth :
if not LFDone then begin if not LFDone then begin
S := S + #13#10; S := S + LineEnding;
LFDone := True; LFDone := True;
end; end;
end; end;