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

wikisearch: fixed compilation

Browse Source 
git-svn-id: trunk@53187 -
This commit is contained in:
mattias 2016-10-21 16:46:26 +00:00
parent a14da683e3
commit f2dc924eaa
3 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -77,12 +77,12 @@ type
function GetImageLink(ImgFilename: string): string; override;
function GetInternalImageLink(ImgFilename: String): String; override;
function GetPageLink(Page: TW2XHTMLPage): string; override;
function GetRelativeCSSFileName: String; override;
procedure SaveAllPages; override;
public
constructor Create; override;
destructor Destroy; override;
procedure Clear; override;
function GetRelativeCSSFileName: String; override;
property CHMFile: string read FCHMFile write SetCHMFile;
property IndexFileName: string read FIndexFileName write SetIndexFileName;
property TOCFileName: String read FTOCFilename write SetTOCFilename;

4
components/wiki/test/wikihelpmanager.pas
View File

@ -1242,7 +1242,9 @@ var
StartTime: TDateTime;
EndTime: TDateTime;
begin
{$IF FPC_FULLVERSION<30000}
CurrentThread:=Self;
{$ENDIF}
try
Files:=nil;
try
@ -1293,7 +1295,9 @@ begin
end;
finally
Scanned;
{$IF FPC_FULLVERSION<30000}
CurrentThread:=nil;
{$ENDIF}
end;
end;

BIN
components/wiki/test/wikisearchdemo.res
View File

Binary file not shown.