FPSpreadsheet: Avoid splitting of cell comments in worksheetgrid when the comment contains a '|' character.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9591 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas

@@ -3916,6 +3916,10 @@ begin
   // Read comment
   comment := Worksheet.ReadComment(cell);
 
+  // Avoid splitting the comment at the '|': draw a unicode character which looks similar.
+  if pos('|', comment) > 0 then
+    comment := StringReplace(comment, '|', #$E2#$94#$82, [rfReplaceAll]);
+
   // Read hyperlink info
   if Worksheet.HasHyperlink(cell) then begin
     hlink := Worksheet.FindHyperlink(cell);