From f8463d9cc91a3f6ff17787b87486f1b0836940b1 Mon Sep 17 00:00:00 2001 From: jesus Date: Wed, 27 Feb 2013 16:40:28 +0000 Subject: [PATCH] LCL, fix TUpDown bounds which may cause disappearing of button on some sizes, issue #23941 git-svn-id: trunk@40435 - --- lcl/include/customupdown.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/include/customupdown.inc b/lcl/include/customupdown.inc index b24e01a0ac..1558f066c8 100644 --- a/lcl/include/customupdown.inc +++ b/lcl/include/customupdown.inc @@ -271,12 +271,12 @@ begin If FOrientation = udHorizontal then begin d:=ClientWidth div 2; MinBtn.SetBounds(0,0,d,ClientHeight); - MaxBtn.SetBounds(ClientHeight-d,0,d,ClientHeight); + MaxBtn.SetBounds(d,0,d,ClientHeight); end else begin d:=ClientHeight div 2; MaxBtn.SetBounds(0,0,ClientWidth,d); - MinBtn.SetBounds(0,ClientWidth-d,ClientWidth,d); + MinBtn.SetBounds(0,d,ClientWidth,d); end; end;