paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 18:21:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

LHelp: Fix crash after clicking at an internal link in toc tree / index list

Browse Source 
git-svn-id: trunk@49425 -
This commit is contained in:
wp 2015-06-24 06:58:58 +00:00
parent 58068b3e1c
commit e5230eb26e
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/chmhelp/lhelp/chmdataprovider.pas
View File

@ -181,8 +181,15 @@ begin
Result := NewURL; Result := NewURL;
fNewURL := NewURL; fNewURL := NewURL;
if Pos('ms-its:', NewURL) = 1 then if OldURL = '' then
Exit; exit;
if Pos('ms-its:', NewURL) = 1 then begin
if Pos('#', NewURL) = 0 then
exit;
X := Pos('::', fNewURL);
fNewURL := Copy(fNewURL, X+3, MaxInt);
end;
ParentDirs := GetDirsParents(OldURL); ParentDirs := GetDirsParents(OldURL);
RemoveDirCount := 0; RemoveDirCount := 0;