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

lcl: debugging

Browse Source 
git-svn-id: trunk@24033 -
This commit is contained in:
mattias 2010-03-16 13:28:55 +00:00
parent 6e8c411156
commit db75010348
1 changed files with 2 additions and 1 deletions

3
lcl/lazhelpintf.pas
View File

@ -2250,9 +2250,10 @@ var
ExpFilename: String;
begin
ExpFilename:=FFilename;
//DebugLn(['THelpDBISourceFile.GetFullFilename ExpFilename="',ExpFilename,'"']);
//DebugLn(['THelpDBISourceFile.GetFullFilename ExpFilename="',ExpFilename,'" HelpDatabases=',DbgSName(HelpDatabases)]);
if (HelpDatabases<>nil) then
HelpDatabases.SubstituteMacros(ExpFilename);
//DebugLn(['THelpDBISourceFile.GetFullFilename substituted ',ExpFilename]);
ExpFilename:=TrimFilename(ExpFilename);
if FilenameIsAbsolute(ExpFilename) then
Result:=ExpFilename