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

cocoa: update setting enable for UpDown controls. #35531

Browse Source 
git-svn-id: trunk@61169 -
This commit is contained in:
dmitry 2019-05-07 02:53:38 +00:00
parent 40daf8fa7b
commit 2e9c4bde38
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customupdown.inc
View File

@ -514,8 +514,11 @@ end;
procedure TCustomUpDown.SetEnabled(Value: Boolean);
begin
FMinBtn.Enabled := Value;
FMaxBtn.Enabled := Value;
if not FUseWS then
begin
FMinBtn.Enabled := Value;
FMaxBtn.Enabled := Value;
end;
inherited SetEnabled(Value);
end;