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

IDE: formeditor patch from Yury Sidorov

Browse Source 
* show Exception message text is displayed when exception occurs in
component's constructor.
* fixed AV when destroying component when its creation failed.

git-svn-id: trunk@10654 -
This commit is contained in:
vincents 2007-02-18 21:00:39 +00:00
parent 25344cd643
commit 3dea707621
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/customformeditor.pp
View File

@ -1332,6 +1332,7 @@ Begin
Temp:=nil;
ParentComponent:=nil;
AParent:=nil;
NewComponent:=nil;
try
DebugLn('[TCustomFormEditor.CreateComponent] Class='''+TypeClass.ClassName+'''');
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TCustomFormEditor.CreateComponent A');{$ENDIF}
@ -1350,7 +1351,7 @@ Begin
on e: Exception do begin
DumpExceptionBackTrace;
MessageDlg('Error creating component',
'Error creating component: '+TypeClass.ClassName,
'Error creating component: '+TypeClass.ClassName+#13+E.Message,
mtError,[mbCancel],0);
exit;
end;