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

* try to fix sitemap editor. Still the whole concept is rough, and probably also suffers from changes wrt projectdir, since the sitemaps are saved to a different directory

Browse Source 
(cherry picked from commit c0c92c1b57)
This commit is contained in:
marcoonthegit 2022-02-11 13:52:06 +01:00 committed by Maxim Ganetsky
parent 364afccf48
commit 1af1c06e97
2 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tools/chmmaker/chmsitemapeditor.lfm
View File

@ -8,7 +8,6 @@ object SitemapEditForm: TSitemapEditForm
ClientHeight = 651
ClientWidth = 773
ShowInTaskBar = stAlways
LCLVersion = '2.3.0.0'
object Label3: TLabel
Left = 424
Height = 15

24
tools/chmmaker/chmsitemapeditor.pas
View File

@ -70,12 +70,12 @@ type
{ TChmTreeNode }
TChmTreeNode = class(TTreeNode)
TChmTreeNode = class(TTreeNode) // make pairs
private
FName: String;
FLocal: String;
FURL: String;
public
property URL: String read FURL write FURL;
property Name: String read FName write FName;
property Local: String read FLocal write FLocal;
end;
@ -145,9 +145,13 @@ procedure TSitemapEditForm.SaveBtnClick(Sender: TObject);
I: Integer;
begin
ChmItem := ChmItems.NewItem;
ChmItem.Text := TreeNode.Text;
ChmItem.AddURL(TreeNode.URL);
ChmItem.AddLocal(TreeNode.Local);
// indexes typically have 3 keys per item. A name, and nested within a name-local pair.
// the name parts are often the same. For now we fake it by issuing name twice.
ChmItem.Name := TreeNode.Text; // Sets name in item.
if FSiteMapType=stIndex then
ChmItem.AddName(TreeNode.Name); // sets name in first subitem
ChmItem.AddLocal(TreeNode.Local); // sets local in first subitem
for I := 0 to TreeNode.Count-1 do begin
AddItem(TChmTreeNode(TreeNode.Items[I]), ChmItem.Children);
end;
@ -217,7 +221,7 @@ begin
Item := TChmTreeNode(SitemapTree.Selected);
DescriptionEdit.Text := Item.Text;
LocalCombo.Text := Item.Local;
URLEdit.Text := Item.URL;
URLEdit.Text := ''; // Item.url; // hardly used
end
else begin
DescriptionEdit.Text := '';
@ -238,7 +242,7 @@ end;
procedure TSitemapEditForm.URLEditChange(Sender: TObject);
begin
if SitemapTree.Selected = nil then Exit;
TChmTreeNode(SitemapTree.Selected).URL := URLEdit.Text;
// TChmTreeNode(SitemapTree.Selected). url := URLEdit.Text;
end;
procedure TSitemapEditForm.InitControls;
@ -265,9 +269,9 @@ procedure TSitemapEditForm.LoadFromStream(AStream: TStream);
for I := 0 to Items.Count-1 do begin
ChmItem := Items.Item[I];
TreeNode := TChmTreeNode(SitemapTree.Items.AddChild(ParentItem, ChmItem.Text));
TreeNode.Local := ChmItem.Local;
TreeNode.Name := ChmItem.Name;
if ChmItem.SubItemCount > 0 then
TreeNode.URL := ChmItem.SubItem[0].URL;
TreeNode.Local := ChmItem.Local;
AddItems(ChmItem.Children, TreeNode);
end;
end;