pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix hyperlink tooltip not being written for Excel2003/XML format

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7053 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-07-18 21:53:58 +00:00
parent a9ba71c6f0
commit 476d4d795a
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpspreadsheet/source/common/xlsxml.pas
View File

@@ -1514,10 +1514,13 @@ function TsSpreadExcelXMLWriter.GetHyperlinkStr(ACell: PCell): String;
var var
hyperlink: PsHyperlink; hyperlink: PsHyperlink;
begin begin
Result := '';
hyperlink := (FWorksheet as TsWorksheet).FindHyperlink(ACell); hyperlink := (FWorksheet as TsWorksheet).FindHyperlink(ACell);
if Assigned(hyperlink) then if Assigned(hyperlink) then begin
Result := ' ss:HRef="' + hyperlink^.Target + '"'; Result := ' ss:HRef="' + hyperlink^.Target + '"';
if hyperlink^.ToolTip <> '' then
Result := Result + ' x:HRefScreenTip="' + UTF8TextToXMLText(hyperlink^.ToolTip) + '"';
end else
Result := '';
end; end;
function TsSpreadExcelXMLWriter.GetIndexStr(AIndex, APrevIndex: Integer): String; function TsSpreadExcelXMLWriter.GetIndexStr(AIndex, APrevIndex: Integer): String;