From 322f9edf5dc16b9d56f4076be9bf910d9e63fad6 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sat, 21 Apr 2012 17:34:54 +0000
Subject: [PATCH] carbon: fixed possible bad loop in
 TCarbonSpinEdit.CreateWidget.Patch by David Jenkins.issue #21732

git-svn-id: trunk@36962 -
---
 lcl/interfaces/carbon/carbonedits.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/carbon/carbonedits.pp b/lcl/interfaces/carbon/carbonedits.pp
index 59233425e1..e716e230ec 100644
--- a/lcl/interfaces/carbon/carbonedits.pp
+++ b/lcl/interfaces/carbon/carbonedits.pp
@@ -1151,8 +1151,7 @@ begin
   CreateCFString(AParams.Caption, CFString);
   try
     if OSError(
-      CreateEditUniCodeTextControl(GetTopParentWindow,
-        HIRectToCarbonRect(GetEditBounds(ParamsToHIRect(AParams))),
+      CreateEditUniCodeTextControl(GetTopParentWindow, ParamsToCarbonRect(AParams),
         CFString, False, nil, Widget),
       Self, SCreateWidget, 'CreateEditUniCodeTextControl') then RaiseCreateWidgetError(LCLObject);
   finally
@@ -1179,6 +1178,7 @@ begin
     
   inherited;
   
+  SetBounds(ParamsToRect(AParams));
   UpdateControl;
 end;