From fe1e18eb8d616f3d49ee373f42a55d2a2ff616f0 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 29 Jan 2016 20:50:21 +0000
Subject: [PATCH] * Fixed TRect setwith and setheight (from Ondrej Pokorny)

git-svn-id: trunk@33030 -
---
 rtl/inc/typshrd.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/typshrd.inc b/rtl/inc/typshrd.inc
index d69f6da921..657a100c14 100644
--- a/rtl/inc/typshrd.inc
+++ b/rtl/inc/typshrd.inc
@@ -366,7 +366,7 @@ end;
 
 procedure TRect.setHeight(AValue: Longint);
 begin
-  right:=left+avalue;
+  bottom:=top+avalue;
 end;
 
 procedure TRect.SetLocation(X, Y: Longint);
@@ -387,7 +387,7 @@ end;
 
 procedure TRect.setWidth(AValue: Longint);
 begin
-  bottom:=top+avalue;
+  right:=left+avalue;
 end;
 
 function TRect.SplitRect(SplitType: TSplitRectType; Percent: Double): TRect;