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

fpspreadsheet: Set absolute flag for http hyperlinks in sfExcel8

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4507 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-02-16 11:05:32 +00:00
parent e3d715a8a8
commit d9dd29c0fc
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/xlsbiff8.pas
View File

@@ -2684,7 +2684,7 @@ begin
flags := MASK_HLINK_TEXTMARK or MASK_HLINK_DESCRIPTION flags := MASK_HLINK_TEXTMARK or MASK_HLINK_DESCRIPTION
else else
flags := MASK_HLINK_LINK; flags := MASK_HLINK_LINK;
if SameText(u.Protocol, 'file') then if SameText(u.Protocol, 'file') or SameText(u.Protocol, 'http') or SameText(u.Protocol, 'ftp') then
flags := flags or MASK_HLINK_ABSOLUTE; flags := flags or MASK_HLINK_ABSOLUTE;
if descr <> AHyperlink^.Target then if descr <> AHyperlink^.Target then
flags := flags or MASK_HLINK_DESCRIPTION; // has description flags := flags or MASK_HLINK_DESCRIPTION; // has description