From edd5d118b575574377ba8b5b8661a62c42bbdb92 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 2 Aug 2009 21:07:10 +0000
Subject: [PATCH] IDE: added try..except for exceptions during start

git-svn-id: trunk@21077 -
---
 ide/lazarus.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ide/lazarus.pp b/ide/lazarus.pp
index f02b8887fc..9dab40b52e 100644
--- a/ide/lazarus.pp
+++ b/ide/lazarus.pp
@@ -103,7 +103,11 @@ begin
 
   MainIDE:=TMainIDE.Create(Application);
   MainIDE.CreateOftenUsedForms;
-  MainIDE.StartIDE;
+  try
+    MainIDE.StartIDE;
+  except
+    Application.HandleException(MainIDE);
+  end;
   {$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('lazarus.pp: TMainIDE created');{$ENDIF}
 
   try