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

build_lcl_docs: create lazutils.chm too

Browse Source 
git-svn-id: trunk@50691 -
This commit is contained in:
mattias 2015-12-06 14:11:12 +00:00
parent 282b974938
commit 7892083108
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
docs/html/build_lcl_docs.lpr
View File

@ -390,7 +390,7 @@ var
FileList: TStringList;
InputList: TStringList;
I: Integer;
XMLFile: String;
XMLFile, Filename: String;
begin
if ord(Step)>=ord(frsFilesGathered) then
raise Exception.Create('TFPDocRun.FindSourceFiles not again');
@ -421,7 +421,11 @@ begin
end;
end;
FileList.Free;
InputList.SaveToFile(InputFile);
Filename:=InputFile;
if not FilenameIsAbsolute(Filename) then
Filename:=TrimFilename(AppendPathDelim(OutDir)+Filename);
InputList.SaveToFile(Filename);
InputList.Free;
FStep:=frsFilesGathered;
@ -553,18 +557,18 @@ var
begin
ReadOptions;
{Run:=TFPDocRun.Create('lazutils');
Run:=TFPDocRun.Create('lazutils');
Run.UsedPkgs.Add('rtl');
Run.UsedPkgs.Add('fcl');
Run.XMLSrcDir := '..'+PathDelim+'xml'+PathDelim+'lazutils';
Run.PasSrcDir := '..'+PathDelim+'..'+PathDelim+'components'+PathDelim+'lazutils';
Run.Execute;
Run.Free;}
Run.Free;
Run:=TFPDocRun.Create('lcl');
Run.UsedPkgs.Add('rtl');
Run.UsedPkgs.Add('fcl');
//Run.UsedPkgs.Add('lazutils');
Run.UsedPkgs.Add('lazutils');
Run.XMLSrcDir := '..'+PathDelim+'xml'+PathDelim+'lcl'+PathDelim;
Run.PasSrcDir := '..'+PathDelim+'..'+PathDelim+'lcl'+PathDelim;
Run.IncludePath := Run.PasSrcDir+PathDelim+'include';