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

Dump stack trace in case of exception when placing a component on a form.

Browse Source 
git-svn-id: trunk@7822 -
This commit is contained in:
vincents 2005-09-25 19:35:45 +00:00
parent 86a7e13da6
commit cd92287656
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/customformeditor.pp
View File

@ -1356,6 +1356,8 @@ Begin
end; end;
except except
on e: Exception do begin on e: Exception do begin
DebugLn(e.Message);
DumpExceptionBackTrace;
MessageDlg(lisErrorMovingComponent, MessageDlg(lisErrorMovingComponent,
Format(lisErrorMovingComponent2, [Temp.Component.Name, Format(lisErrorMovingComponent2, [Temp.Component.Name,
Temp.Component.ClassName]), Temp.Component.ClassName]),