From 786d845d529cbf622fd88b559b93f9b86a40338c Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 6 Feb 2022 20:23:06 +0000
Subject: [PATCH] RxFPC:try to fix show spshial chars in RxDBGrid on display
 memo text fields

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8195 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rx.inc            |  1 +
 components/rx/trunk/rxdb/rxdbgrid.pas | 11 +++++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/components/rx/trunk/rx.inc b/components/rx/trunk/rx.inc
index 2ffebd2e6..be71d95f1 100644
--- a/components/rx/trunk/rx.inc
+++ b/components/rx/trunk/rx.inc
@@ -70,3 +70,4 @@
 {$DEFINE RX_USE_DELPHI_EXT_FIELD_TYPES}
 {$ENDIF}
 
+{.$DEFINE RDBGridDisplayMemoText_ClearSC} //clear speshial chars on display memo text fields
diff --git a/components/rx/trunk/rxdb/rxdbgrid.pas b/components/rx/trunk/rxdb/rxdbgrid.pas
index 3fc177013..093c4b6a2 100644
--- a/components/rx/trunk/rxdb/rxdbgrid.pas
+++ b/components/rx/trunk/rxdb/rxdbgrid.pas
@@ -4215,7 +4215,7 @@ end;
 function TRxDBGrid.GetFieldDisplayText(AField: TField; ACollumn: TRxColumn
   ): string;
 var
-  J: Integer;
+  J, i: Integer;
 begin
   Result:='';
   if Assigned(AField) then
@@ -4224,7 +4224,14 @@ begin
     begin
       {$IF lcl_fullversion >= 1090000}
       if CheckDisplayMemo(AField) then
-        Result := AField.AsString
+      begin
+        Result := AField.AsString;
+        {$IFDEF RDBGridDisplayMemoText_ClearSC}
+        for i:=1 to Length(Result) do
+          if Result[i] < ' ' then
+            Result[i]:=' ';
+        {$ENDIF}
+      end
       else
       {$ENDIF}
         Result := AField.DisplayText;