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

IDE: fix compile with -d IDE_DEBUG

Browse Source 
git-svn-id: trunk@30530 -
This commit is contained in:
martin 2011-05-02 17:36:32 +00:00
parent aaff414d3e
commit 4e9ac4764e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -8923,7 +8923,7 @@ var
SrcEdit: TSourceEditor;
begin
{$IFDEF IDE_DEBUG}
debugln('TMainIDE.DoCloseEditorFile A PageIndex=',IntToStr(AnUnitInfo.PageIndex));
//debugln('TMainIDE.DoCloseEditorFile A PageIndex=',IntToStr(AnUnitInfo.PageIndex));
{$ENDIF}
Result:=mrCancel;
if AEditor = nil then exit;
@ -17437,7 +17437,7 @@ begin
OverrideMethodName);
{$IFDEF IDE_DEBUG}
debugln('');
debugln('[TMainIDE.OnPropHookCreateMethod] ************2 ',r,' ',AMethodName);
debugln('[TMainIDE.OnPropHookCreateMethod] ************2 ',dbgs(r),' ',AMethodName);
{$ENDIF}
ApplyCodeToolChanges;
if r then begin