diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2013-03-19 23:04:09 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2013-03-19 23:04:09 +0000 |
| commit | 5e75bca62347618d8b1fa40e1a164abe3f77827d (patch) | |
| tree | 0f91974175d31591758f51ccc0da8029f53a4cb9 /docview | |
| parent | f57580af71a7db67d46e1bc209f4f85a08d351d9 (diff) | |
| download | fpGUI-5e75bca62347618d8b1fa40e1a164abe3f77827d.tar.xz | |
docview: Fixes a bug where URL links where not handled correctly.
When we detected know web browser names, we had to only use the URL part,
not the original program+url text. DocView lets the OS choose the
web browser.
Diffstat (limited to 'docview')
| -rw-r--r-- | docview/src/HelpTopic.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/docview/src/HelpTopic.pas b/docview/src/HelpTopic.pas index 3af43e6a..5a8245a7 100644 --- a/docview/src/HelpTopic.pas +++ b/docview/src/HelpTopic.pas @@ -859,6 +859,7 @@ var ProgramLink: string; ProgramPath: string; ProgramFilename: string; + lURL: string; ProgramInfo : TSerializableStringList; tmpProgramLinkParts : TStrings; @@ -1000,6 +1001,7 @@ begin tmpProgramLinkParts := TStringList.Create; StrExtractStrings(tmpProgramLinkParts, ProgramLink, [' '], #0); ProgramPath := tmpProgramLinkParts[0]; + lURL := tmpProgramLinkParts[1]; tmpProgramLinkParts.Destroy; ProgramFilename := ExtractFilename( ProgramPath ); @@ -1011,7 +1013,7 @@ begin then begin OutputString := '<color blue><link ' + PARAM_LINK_URL + ' ' - + FullDoubleQuote( ProgramLink ) + + FullDoubleQuote( lURL ) + '>'; end else |