paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 20:30:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix TUpDown bounds which may cause disappearing of button on some sizes, issue #23941

Browse Source 
git-svn-id: trunk@40435 -
This commit is contained in:
jesus 2013-02-27 16:40:28 +00:00
parent 24fdf2be90
commit f8463d9cc9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customupdown.inc
View File

@ -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;