paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 18:49:19 +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; i: Integer;
Filename: String; Filename: String;
begin begin
Application.Title:='';
Application.Initialize; Application.Initialize;
Application.CreateForm(TCHMForm, CHMForm); Application.CreateForm(TCHMForm, CHMForm);
Application.CreateForm(TSitemapEditForm, SitemapEditForm); Application.CreateForm(TSitemapEditForm, SitemapEditForm);

1
tools/chmmaker/chmsitemapeditor.pas
View File

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