fpspreadsheet: Add hyperlink to image. Supported by ODS writer, so far.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6671 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2018-10-04 14:37:28 +00:00
parent 3de5275499
commit 48d37a6351
4 changed files with 50 additions and 3 deletions
--- a/components/fpspreadsheet/source/common/fpsutils.pas
+++ b/components/fpspreadsheet/source/common/fpsutils.pas
@@ -2495,6 +2495,8 @@ begin
  AValue.ScaleY := AScaleY;
  AValue.Bitmap := nil;     // to be initialized by viewing application
  AValue.Index := -1;
+  AValue.HyperlinkTarget := '';
+  AValue.HyperlinkToolTip := '';
 end;

 {@@ ----------------------------------------------------------------------------