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

T(Float)SpinEditEx: fix setting (initial) value if NullValueBehaviour = nvbShowTextHint.

Browse Source
This commit is contained in:
Bart 2024-02-18 16:02:44 +01:00
parent 893885c9db
commit 5168d97f96
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazcontrols/spinex.inc
View File

@ -34,6 +34,9 @@ procedure TSpinEditExBase.UpdateControl;
var
ANumber: T;
begin
{$ifdef debugspinex}
debugln(['TSpinEditExBase.UpdateControl: FSettingValue=',FSettingValue]);
{$endif}
//if (MaxValue < MinValue) then FMaxValue := MinValue;
if (FNullValueBehaviour <> nvbShowTextHint) then
FValue := GetLimitedValue(FValue);
@ -253,7 +256,8 @@ begin
FUpdatePending := True;
UpdateControl;
FSettingValue := False;
if not (csLoading in ComponentState) then
FSettingValue := False;
end;
function TSpinEditExBase.GetValue: T;

6
components/lazcontrols/spinex.pp
View File

@ -71,13 +71,15 @@ unit SpinEx;
interface
{.$define debugspinex}
uses
Classes, SysUtils, Math,
// LCL
LCLType, Controls, ClipBrd, ComCtrls, GroupedEdit, LResources;
LCLType, Controls, ClipBrd, ComCtrls, GroupedEdit, LResources
{$ifdef debugspinex}, LazLogger{$endif};
{.$define debugspinex}
type
{ TSpinEditExBase }