From 4d5cde8a0fe582f2bcd5ff7eef0544287321de92 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 15 Dec 2009 05:56:08 +0000
Subject: [PATCH] lcl: fix range check errors in TControl.SetBoundsRect (issue
 #0015004)

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

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 5714228bf0..a035ee12be 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -2532,7 +2532,7 @@ begin
   DebugLn('[TControl.SetBoundsRect] ',Name,':',ClassName);
   {$ENDIF}
   with ARect do
-    SetBounds(Left,Top,Right - Left, Bottom - Top);
+    SetBounds(Left, Top, Max(Right - Left, 0), Max(Bottom - Top, 0));
 end;
 
 procedure TControl.SetBoundsRectForNewParent(const AValue: TRect);