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

LCL: reduced debugging

Browse Source 
git-svn-id: trunk@21329 -
This commit is contained in:
mattias 2009-08-19 19:03:23 +00:00
parent 187b39842f
commit 14b771a34e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lazhelphtml.pas
View File

@ -176,7 +176,7 @@ begin
// make URL absolute // make URL absolute
SplitURL(URL,URLType,URLPath,URLParams); SplitURL(URL,URLType,URLPath,URLParams);
debugln('THTMLHelpDatabase.ShowURL A NewNode.URL=',URL,' URLType=',URLType,' URLPath=',URLPath,' URLParams=',URLParams); //debugln('THTMLHelpDatabase.ShowURL A NewNode.URL=',URL,' URLType=',URLType,' URLPath=',URLPath,' URLParams=',URLParams);
if URLType='file' then begin if URLType='file' then begin
if not URLFilenameIsAbsolute(URLPath) then begin if not URLFilenameIsAbsolute(URLPath) then begin