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

IDE: less debugln

Browse Source 
git-svn-id: trunk@45504 -
This commit is contained in:
mattias 2014-06-13 21:23:03 +00:00
parent c3c544e67c
commit dc1a43e93c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/sourceeditor.pp
View File

@ -61,7 +61,7 @@ uses
SrcEditorIntf, MenuIntf, LazIDEIntf, PackageIntf, IDEHelpIntf, IDEImagesIntf,
IDEWindowIntf, ProjectIntf, MacroDefIntf,
// IDE units
IDEDialogs, LazarusIDEStrConsts, IDECommands, EditorOptions,
IDEDialogs, LazarusIDEStrConsts, IDECommands, CompOptsIntf, EditorOptions,
EnvironmentOpts, WordCompletion, FindReplaceDialog, IDEProcs, IDEOptionDefs,
IDEHelpManager, MacroPromptDlg, TransferMacros, CodeContextForm,
SrcEditHintFrm,
@ -2764,7 +2764,8 @@ begin
if Filename<>FLastWarnedMainLinkFilename then
begin
if FilenameIsPascalSource(Filename) then
debugln(['TSourceEditorSharedValues.GetMainLinkScanner not pascal highlighted: ',Filename]);
if ConsoleVerbosity>1 then
debugln(['TSourceEditorSharedValues.GetMainLinkScanner not Pascal highlighted: ',Filename,' Highligther=',DbgSName(SrcEdit.Highlighter)]);
end;
FLastWarnedMainLinkFilename:=Filename;
exit;