paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 12:49:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

chmhelp: fixed compile fpc 3.0.4

Browse Source 
git-svn-id: branches/fixes_2_0@63524 -
This commit is contained in:
mattias 2020-07-07 09:26:14 +00:00
parent 7d81afac5d
commit 90bde32386
1 changed files with 4 additions and 0 deletions

4
components/chmhelp/lhelp/chmspecialparser.pas
View File

@ -136,6 +136,7 @@ begin
// Add new child node
fLastNode := AParentNode;
NewNode := TContentTreeNode(fTreeView.Items.AddChild(AParentNode, txt));
{$IF FPC_FULLVERSION>=30200}
URL:='';
for x:=0 to AItem.SubItemcount-1 do
begin
@ -146,6 +147,9 @@ begin
if URL<>'' then
break;
end;
{$ELSE}
URL:=AItem.URL;
{$ENDIF}
NewNode.Url := FixURL('/'+URL);
NewNode.Data := fChm;
if fTreeView.Images <> nil then