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

increased verbosity when saving a form fails

Browse Source 
git-svn-id: trunk@9391 -
This commit is contained in:
vincents 2006-06-02 20:35:31 +00:00
parent 20141d2b3b
commit a26dc1c093
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -4119,6 +4119,9 @@ begin
end; end;
except except
on E: Exception do begin on E: Exception do begin
// added to get more feedback on issue 7009
Debugln('TMainIDE.SaveFileResources E3: ', E.Message);
DumpExceptionBackTrace;
ACaption:=lisStreamingError; ACaption:=lisStreamingError;
AText:=Format( AText:=Format(
lisUnableToTransformBinaryComponentStreamOfTIntoText, [ lisUnableToTransformBinaryComponentStreamOfTIntoText, [
@ -6764,8 +6767,9 @@ begin
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoOpenProjectFile A');{$ENDIF} {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.DoOpenProjectFile A');{$ENDIF}
Result:=mrCancel; Result:=mrCancel;
if ExtractFileNameOnly(AFileName)='' then exit; if ExtractFileNameOnly(AFileName)='' then exit;
//debugln('TMainIDE.DoOpenProjectFile A1 "'+AFileName+'"');
AFilename:=ExpandFileName(TrimFilename(AFilename)); AFilename:=ExpandFileName(TrimFilename(AFilename));
//debugln('TMainIDE.DoOpenProjectFile A2 "'+AFileName+'"');
if not FilenameIsAbsolute(AFilename) then if not FilenameIsAbsolute(AFilename) then
RaiseException('TMainIDE.DoOpenProjectFile: buggy ExpandFileName'); RaiseException('TMainIDE.DoOpenProjectFile: buggy ExpandFileName');
Ext:=lowercase(ExtractFileExt(AFilename)); Ext:=lowercase(ExtractFileExt(AFilename));