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

T(Float)SpinEdit: set default Value of MaxValue to 0. This is compaitble with the behaviour of SPinEdit in Delphi. Issue #0038738.

Browse Source 
git-svn-id: trunk@64972 -
This commit is contained in:
bart 2021-04-11 16:51:39 +00:00
parent 97ba88fa58
commit 10281c7773
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/spin.pp
View File

@ -33,7 +33,7 @@ type
private const
DefIncrement = 1;
DefDecimals = 2;
DefMaxValue = 100;
DefMaxValue = 0;
private
FIncrement: Double;
FDecimals: Integer;
@ -151,7 +151,7 @@ type
public
property Value: integer read GetValue write SetValue default 0;
property MinValue: integer read GetMinValue write SetMinValue default 0;
property MaxValue: integer read GetMaxValue write SetMaxValue default 100;
property MaxValue: integer read GetMaxValue write SetMaxValue default 0;
property Increment: integer read GetIncrement write SetIncrement default 1;
end;