From 9e959c5e2017b8796204578dfdcf9f2d1def14d5 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 12 Jun 2010 17:04:18 +0000
Subject: [PATCH] TControl.EnableAutoSizing: improved exception

git-svn-id: trunk@26061 -
---
 lcl/include/control.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 6a062a8cae..f18ada4bb3 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -4767,7 +4767,8 @@ begin
   CheckReason;
   {$ENDIF}
 
-  if FAutoSizingLockCount<=0 then RaiseGDBException('TControl.EnableAutoSizing');
+  if FAutoSizingLockCount<=0 then
+    raise Exception.Create('TControl.EnableAutoSizing '+DbgSName(Self)+': missing DisableAutoSizing');
 
   dec(FAutoSizingLockCount);
   //DebugLn([Space(FAutoSizingLockCount*2),'TControl.EnableAutoSizing ',DbgSName(Self),' ',FAutoSizingLockCount]);