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

IDE: reduced verbosity

Browse Source 
git-svn-id: trunk@14340 -
This commit is contained in:
mattias 2008-03-01 12:16:11 +00:00
parent 22bd534fe8
commit 0840e778f1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -6717,7 +6717,7 @@ var ActiveSrcEdit: TSourceEditor;
ACaption, AText: string;
i: integer;
begin
debugln('TMainIDE.DoCloseEditorFile A PageIndex=',IntToStr(PageIndex));
//debugln('TMainIDE.DoCloseEditorFile A PageIndex=',IntToStr(PageIndex));
Result:=mrCancel;
GetUnitWithPageIndex(PageIndex,ActiveSrcEdit,ActiveUnitInfo);
if ActiveUnitInfo=nil then begin