paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:19:22 +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, SrcEditorIntf, MenuIntf, LazIDEIntf, PackageIntf, IDEHelpIntf, IDEImagesIntf,
IDEWindowIntf, ProjectIntf, MacroDefIntf, IDEWindowIntf, ProjectIntf, MacroDefIntf,
// IDE units // IDE units
IDEDialogs, LazarusIDEStrConsts, IDECommands, EditorOptions, IDEDialogs, LazarusIDEStrConsts, IDECommands, CompOptsIntf, EditorOptions,
EnvironmentOpts, WordCompletion, FindReplaceDialog, IDEProcs, IDEOptionDefs, EnvironmentOpts, WordCompletion, FindReplaceDialog, IDEProcs, IDEOptionDefs,
IDEHelpManager, MacroPromptDlg, TransferMacros, CodeContextForm, IDEHelpManager, MacroPromptDlg, TransferMacros, CodeContextForm,
SrcEditHintFrm, SrcEditHintFrm,
@ -2764,7 +2764,8 @@ begin
if Filename<>FLastWarnedMainLinkFilename then if Filename<>FLastWarnedMainLinkFilename then
begin begin
if FilenameIsPascalSource(Filename) then 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; end;
FLastWarnedMainLinkFilename:=Filename; FLastWarnedMainLinkFilename:=Filename;
exit; exit;