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

IDE: reduced verbosity

Browse Source 
git-svn-id: trunk@14344 -
This commit is contained in:
mattias 2008-03-01 13:09:26 +00:00
parent 9525beef2a
commit c949bf2178
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/main.pp
View File

@ -5462,7 +5462,9 @@ begin
if ([ofProjectLoading,ofLoadHiddenResource]*OpenFlags=[]) then if ([ofProjectLoading,ofLoadHiddenResource]*OpenFlags=[]) then
FormEditor1.ClearSelection; FormEditor1.ClearSelection;
FormEditor1.CreateComponentInterface(NewComponent,true); FormEditor1.CreateComponentInterface(NewComponent,true);
{$IFDEF IDE_DEBUG}
DebugLn('SUCCESS: streaming lfm="',LFMBuf.Filename,'"'); DebugLn('SUCCESS: streaming lfm="',LFMBuf.Filename,'"');
{$ENDIF}
AnUnitInfo.ComponentName:=NewComponent.Name; AnUnitInfo.ComponentName:=NewComponent.Name;
AnUnitInfo.ComponentResourceName:=AnUnitInfo.ComponentName; AnUnitInfo.ComponentResourceName:=AnUnitInfo.ComponentName;
DesignerForm:=nil; DesignerForm:=nil;
@ -6716,7 +6718,9 @@ var ActiveSrcEdit: TSourceEditor;
ACaption, AText: string; ACaption, AText: string;
i: integer; i: integer;
begin begin
//debugln('TMainIDE.DoCloseEditorFile A PageIndex=',IntToStr(PageIndex)); {$IFDEF IDE_DEBUG}
debugln('TMainIDE.DoCloseEditorFile A PageIndex=',IntToStr(PageIndex));
{$ENDIF}
Result:=mrCancel; Result:=mrCancel;
GetUnitWithPageIndex(PageIndex,ActiveSrcEdit,ActiveUnitInfo); GetUnitWithPageIndex(PageIndex,ActiveSrcEdit,ActiveUnitInfo);
if ActiveUnitInfo=nil then begin if ActiveUnitInfo=nil then begin
@ -6777,7 +6781,9 @@ begin
Project1.RemoveUnit(i); Project1.RemoveUnit(i);
end; end;
{$IFDEF IDE_DEBUG}
DebugLn('TMainIDE.DoCloseEditorFile end'); DebugLn('TMainIDE.DoCloseEditorFile end');
{$ENDIF}
Result:=mrOk; Result:=mrOk;
end; end;