paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:39:18 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lazhelpintf.pas
View File

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