From ae66f2b9db09566881127f1a9620ca3023ccc155 Mon Sep 17 00:00:00 2001
From: tombo <tombo@lazarus-ide.org>
Date: Thu, 24 Apr 2008 08:08:37 +0000
Subject: [PATCH] LCL carbon: fixed updating client rect if scrollbars changed

git-svn-id: trunk@14948 -
---
 lcl/interfaces/carbon/carbondef.pp     | 3 +--
 lcl/interfaces/carbon/carbonprivate.pp | 5 +++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lcl/interfaces/carbon/carbondef.pp b/lcl/interfaces/carbon/carbondef.pp
index 2c7eee42a9..ae1d3a61c7 100644
--- a/lcl/interfaces/carbon/carbondef.pp
+++ b/lcl/interfaces/carbon/carbondef.pp
@@ -439,8 +439,7 @@ end;
 procedure TCarbonWidget.UpdateLCLClientRect;
 begin
   LCLObject.InvalidateClientRectCache(False);
-  LCLSendSizeMsg(LCLObject, LCLObject.Width,
-      LCLObject.Height, Size_SourceIsInterface);
+  LCLSendSizeMsg(LCLObject, LCLObject.Width, LCLObject.Height, Size_SourceIsInterface);
 end;
 
 {------------------------------------------------------------------------------
diff --git a/lcl/interfaces/carbon/carbonprivate.pp b/lcl/interfaces/carbon/carbonprivate.pp
index 7a9a9bfa97..a5a721eaa8 100644
--- a/lcl/interfaces/carbon/carbonprivate.pp
+++ b/lcl/interfaces/carbon/carbonprivate.pp
@@ -676,8 +676,6 @@ begin
     FTextFractional := True;
     
   inherited;
-  
-  UpdateLCLClientRect; // force update client rect
 end;
 
 {------------------------------------------------------------------------------
@@ -820,6 +818,9 @@ begin
   end;
   DeliverMessage(LCLObject, ScrollMsg);
   
+  // scroll bars can change client rect - update it
+  UpdateLCLClientRect;
+  
   OSError(
     HiViewSetNeedsDisplay(Widget, True), Self, 'ScrollTo', SViewNeedsDisplay);
 end;