From 476d4d795a3dc2ce88a259888c2856ab00f061c3 Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Thu, 18 Jul 2019 21:53:58 +0000 Subject: [PATCH] fpspreadsheet: Fix hyperlink tooltip not being written for Excel2003/XML format git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7053 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/fpspreadsheet/source/common/xlsxml.pas | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/components/fpspreadsheet/source/common/xlsxml.pas b/components/fpspreadsheet/source/common/xlsxml.pas index b71a08abe..4c6c225cf 100644 --- a/components/fpspreadsheet/source/common/xlsxml.pas +++ b/components/fpspreadsheet/source/common/xlsxml.pas @@ -1514,10 +1514,13 @@ function TsSpreadExcelXMLWriter.GetHyperlinkStr(ACell: PCell): String; var hyperlink: PsHyperlink; begin - Result := ''; hyperlink := (FWorksheet as TsWorksheet).FindHyperlink(ACell); - if Assigned(hyperlink) then + if Assigned(hyperlink) then begin Result := ' ss:HRef="' + hyperlink^.Target + '"'; + if hyperlink^.ToolTip <> '' then + Result := Result + ' x:HRefScreenTip="' + UTF8TextToXMLText(hyperlink^.ToolTip) + '"'; + end else + Result := ''; end; function TsSpreadExcelXMLWriter.GetIndexStr(AIndex, APrevIndex: Integer): String;