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

* attempt fix for #39553

Browse Source
This commit is contained in:
marcoonthegit 2022-02-04 23:44:07 +01:00
parent d5ab80d754
commit 9ced709010
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/wiki/lazwiki/wiki2chmconvert.pas
View File

@ -171,7 +171,7 @@ begin
AItem := FIndexSiteMap.Items.NewItem; AItem := FIndexSiteMap.Items.NewItem;
AItem.Text := UTF8Trim(AText); AItem.Text := UTF8Trim(AText);
{$IF FPC_FULLVERSION>=30200} {$IF FPC_FULLVERSION>=30200}
AItem.AddURL(AUrl); AItem.AddLocal(AUrl);
{$ELSE} {$ELSE}
AItem.Local := Trim(AUrl); AItem.Local := Trim(AUrl);
AItem.Keyword := UTF8Trim(AText); AItem.Keyword := UTF8Trim(AText);
@ -205,7 +205,7 @@ var
begin begin
item := NewItemAtLevel(ALevel); item := NewItemAtLevel(ALevel);
{$IF FPC_FULLVERSION>=30200} {$IF FPC_FULLVERSION>=30200}
item.AddURL(AUrl); Item.AddLocal(AUrl);
{$ELSE} {$ELSE}
item.Local := AUrl; item.Local := AUrl;
{$ENDIF} {$ENDIF}