paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-23 00:49:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: debugln

Browse Source 
git-svn-id: trunk@35046 -
This commit is contained in:
mattias 2012-01-31 00:48:44 +00:00
parent 4dcfd331ed
commit 50053c20cd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -10978,7 +10978,7 @@ begin
// create a new project // create a new project
{$IFDEF IDE_VERBOSE} {$IFDEF IDE_VERBOSE}
writeln('TMainIDE.DoOpenProjectFile B'); debugln('TMainIDE.DoOpenProjectFile B');
{$ENDIF} {$ENDIF}
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoOpenProjectFile B');{$ENDIF} {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoOpenProjectFile B');{$ENDIF}
Project1:=CreateProjectObject(ProjectDescriptorProgram, Project1:=CreateProjectObject(ProjectDescriptorProgram,
@ -11013,7 +11013,7 @@ begin
end; end;
end; end;
{$IFDEF IDE_DEBUG} {$IFDEF IDE_DEBUG}
writeln('TMainIDE.DoOpenProjectFile C'); debugln('TMainIDE.DoOpenProjectFile C');
{$ENDIF} {$ENDIF}
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoOpenProjectFile C');{$ENDIF} {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoOpenProjectFile C');{$ENDIF}
IncreaseCompilerParseStamp; IncreaseCompilerParseStamp;
@ -11053,7 +11053,7 @@ begin
end; // while EditorInfoIndex < Project1.AllEditorsInfoCount end; // while EditorInfoIndex < Project1.AllEditorsInfoCount
Result:=mrCancel; Result:=mrCancel;
{$IFDEF IDE_DEBUG} {$IFDEF IDE_DEBUG}
writeln('TMainIDE.DoOpenProjectFile D'); debugln('TMainIDE.DoOpenProjectFile D');
{$ENDIF} {$ENDIF}
// set active editor source editor // set active editor source editor
@ -11104,7 +11104,7 @@ begin
// select a form (object inspector, formeditor, control selection) // select a form (object inspector, formeditor, control selection)
if FLastFormActivated<>nil then begin if FLastFormActivated<>nil then begin
LastDesigner:=TDesigner(FLastFormActivated.Designer); LastDesigner:=TDesigner(FLastFormActivated.Designer);
debugln(['TMainIDE.DoOpenProjectFile ',DbgSName(FLastFormActivated),' ',DbgSName(FLastFormActivated.Designer)]); debugln(['TMainIDE.DoOpenProjectFile select form in designer: ',DbgSName(FLastFormActivated),' ',DbgSName(FLastFormActivated.Designer)]);
LastDesigner.SelectOnlyThisComponent(LastDesigner.LookupRoot); LastDesigner.SelectOnlyThisComponent(LastDesigner.LookupRoot);
end; end;