fpspreadsheet: Add writing of cell comments for opendocument files.

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

components/fpspreadsheet/fpsopendocument.pas

@@ -144,6 +144,7 @@ type
 
     function WriteBackgroundColorStyleXMLAsString(const AFormat: TsCellFormat): String;
     function WriteBorderStyleXMLAsString(const AFormat: TsCellFormat): String;
+    function WriteCommentXMLAsString(AComment: String): String;
     function WriteDefaultFontXMLAsString: String;
     function WriteFontStyleXMLAsString(const AFormat: TsCellFormat): String;
     function WriteHorAlignmentStyleXMLAsString(const AFormat: TsCellFormat): String;
@@ -3028,6 +3029,37 @@ begin
   end;
 end;
 
+function TsSpreadOpenDocWriter.WriteCommentXMLAsString(AComment: String): String;
+var
+  L: TStringList;
+  s: String;
+  err: Boolean;
+  i: Integer;
+begin
+  Result := '';
+  if AComment = '' then exit;
+
+  result := '<office:annotation>';
+  err := false;
+  L := TStringList.Create;
+  try
+    L.Text := AComment;
+    for i:=0 to L.Count-1 do begin
+      s := L[i];
+      if not ValidXMLText(s) then begin
+        if not err then
+          Workbook.AddErrorMsg(rsInvalidCharacterInCellComment, [AComment]);
+        err := true;
+      end;
+      Result := Result + '<text:p>' + s + '</text:p>';
+    end;
+  finally
+    L.Free;
+  end;
+
+  Result := Result + '</office:annotation>';
+end;
+
 procedure TsSpreadOpenDocWriter.WriteFontNames(AStream: TStream);
 var
   L: TStringList;
@@ -4004,6 +4036,7 @@ var
   spannedStr: String;
   r1,c1,r2,c2: Cardinal;
   str: ansistring;
+  comment: String;
   fmt: TsCellFormat;
 begin
   Unused(ARow, ACol);
@@ -4033,9 +4066,12 @@ begin
       GetCellString(ARow, ACol)
     ]);
 
+  comment := WriteCommentXMLAsString(ACell^.Comment);
+
   // Write it ...
   AppendToStream(AStream, Format(
     '<table:table-cell office:value-type="string" %s %s>' +
+      comment+
       '<text:p>%s</text:p>'+
     '</table:table-cell>', [
     lStyle, spannedStr,

components/fpspreadsheet/fpspreadsheetgrid.pas

@@ -1509,7 +1509,7 @@ end;
   Draws the red rectangle in the upper right corner of a cell to indicate that
   this cell contains a popup comment
 -------------------------------------------------------------------------------}
-procedure TscustomWorksheetGrid.DrawCommentMarker(ARect: TRect);
+procedure TsCustomWorksheetGrid.DrawCommentMarker(ARect: TRect);
 const
   COMMENT_SIZE = 8;
 var

components/fpspreadsheet/fpsstrings.pas

@@ -47,6 +47,7 @@ resourcestring
   rsColumnStyleNotFound = 'Column style not found.';
   rsRowStyleNotFound = 'Row style not found.';
   rsInvalidCharacterInCell = 'Invalid character(s) in cell %s.';
+  rsInvalidCharacterInCellComment = 'Invalid character(s) in cell comment "%s".';
   rsUTF8TextExpectedButANSIFoundInCell = 'Expected UTF8 text but probably ANSI '+
       'text found in cell %s.';
   rsIndexInSSTOutOfRange = 'Index %d in SST out of range (0-%d).';