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

IDE: clean up

Browse Source 
git-svn-id: trunk@48351 -
This commit is contained in:
mattias 2015-03-15 08:41:24 +00:00
parent 09251020ef
commit 1cf6b4b937
1 changed files with 0 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
ide/codehelp.pas
View File

@ -266,10 +266,6 @@ type
out CacheWasUsed: boolean;
out AnOwner: TObject;// a package or a project or LazarusHelp or nil for user defined
CreateIfNotExists: boolean = false): string;
function GetFPDocFilenameForPkgFile(PkgFile: TPkgFile;
ResolveIncludeFiles: Boolean;
out CacheWasUsed: boolean;
CreateIfNotExists: boolean = false): string;
procedure GetFPDocFilenamesForSources(SrcFilenames: TFilenameToStringTree;
ResolveIncludeFiles: boolean;
var FPDocFilenames: TFilenameToStringTree // Filename to ModuleName
@ -1723,40 +1719,6 @@ begin
{$endif}
end;
function TCodeHelpManager.GetFPDocFilenameForPkgFile(PkgFile: TPkgFile;
ResolveIncludeFiles: Boolean; out CacheWasUsed: boolean;
CreateIfNotExists: boolean): string;
var
APackage: TLazPackage;
BaseDir: String;
SrcFilename: String;
CodeBuf: TCodeBuffer;
begin
Result:='';
CacheWasUsed:=false;
APackage:=TLazPackage(PkgFile.LazPackage);
if APackage.FPDocPaths='' then exit;
BaseDir:=APackage.DirectoryExpanded;
if BaseDir='' then exit;
SrcFilename:=PkgFile.GetFullFilename;
if ResolveIncludeFiles then begin
CodeBuf:=CodeToolBoss.FindFile(SrcFilename);
if CodeBuf<>nil then begin
CodeBuf:=CodeToolBoss.GetMainCode(CodeBuf);
if CodeBuf<>nil then begin
SrcFilename:=CodeBuf.Filename;
end;
end;
end;
if not FilenameIsPascalUnit(SrcFilename) then exit;
SrcFilename:=ExtractFileNameOnly(SrcFilename)+'.xml';
Result:=SearchFileInPath(SrcFilename,BaseDir,APackage.FPDocPaths,';',
ctsfcDefault);
end;
procedure TCodeHelpManager.GetFPDocFilenamesForSources(
SrcFilenames: TFilenameToStringTree; ResolveIncludeFiles: boolean;
var FPDocFilenames: TFilenameToStringTree);