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

Tools/chmmaker: Fix crash when editing table-of-contents of loaded sample project.

Browse Source
This commit is contained in:
wp_xyz 2022-02-03 13:45:38 +01:00
parent fcb70e903a
commit 61ad4be039
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tools/chmmaker/chmmaker.lpr
View File

@ -14,6 +14,7 @@ var
i: Integer;
Filename: String;
begin
Application.Title:='';
Application.Initialize;
Application.CreateForm(TCHMForm, CHMForm);
Application.CreateForm(TSitemapEditForm, SitemapEditForm);

3
tools/chmmaker/chmsitemapeditor.pas
View File

@ -266,7 +266,8 @@ procedure TSitemapEditForm.LoadFromStream(AStream: TStream);
ChmItem := Items.Item[I];
TreeNode := TChmTreeNode(SitemapTree.Items.AddChild(ParentItem, ChmItem.Text));
TreeNode.Local := ChmItem.Local;
TreeNode.URL := ChmItem.SubItem[0].URL;
if ChmItem.SubItemCount > 0 then
TreeNode.URL := ChmItem.SubItem[0].URL;
AddItems(ChmItem.Children, TreeNode);
end;
end;