Memo: SetText now assigns incoming text as is to the internal stringlist.

No more manual handling of LineEnding characters etc, because StringList
does that already, and our custom handling causes blank lines to
disappear in the memo. Not what we want.

1 files changed, 19 insertions, 17 deletions

diff --git a/src/gui/fpg_memo.pas b/src/gui/fpg_memo.pas
index 8863ca67..0e0d0f83 100644
--- a/src/gui/fpg_memo.pas
+++ b/src/gui/fpg_memo.pas
@@ -1680,24 +1680,26 @@ begin
   FLines.Clear;
   s := '';
   n := 1;
-  while n <= UTF8Length(AValue) do
-  begin
-    c := UTF8Copy(AValue, n, 1);
-    if (c[1] = #13) or (c[1] = #10) then
-    begin
-      FLines.Add(s);
-      s := '';
-      c := UTF8Copy(AValue, n + 1, 1);
-      if c[1] = #10 then
-        Inc(n);
-    end
-    else
-      s := s + c;
-    Inc(n);
-  end;
 
-  if s <> '' then
-    FLines.Add(s);
+  FLines.Text := AValue;
+  //while n <= UTF8Length(AValue) do
+  //begin
+  //  c := UTF8Copy(AValue, n, 1);
+  //  if (c[1] = #13) or (c[1] = #10) then
+  //  begin
+  //    FLines.Add(s);
+  //    s := '';
+  //    c := UTF8Copy(AValue, n + 1, 1);
+  //    if c[1] = #10 then
+  //      Inc(n);
+  //  end
+  //  else
+  //    s := s + c;
+  //  Inc(n);
+  //end;
+  //
+  //if s <> '' then
+  //  FLines.Add(s);
 
   FDrawOffset   := 0;
   FCursorPos    := 0;