paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 06:08:17 +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 var
ANumber: T; ANumber: T;
begin begin
{$ifdef debugspinex}
debugln(['TSpinEditExBase.UpdateControl: FSettingValue=',FSettingValue]);
{$endif}
//if (MaxValue < MinValue) then FMaxValue := MinValue; //if (MaxValue < MinValue) then FMaxValue := MinValue;
if (FNullValueBehaviour <> nvbShowTextHint) then if (FNullValueBehaviour <> nvbShowTextHint) then
FValue := GetLimitedValue(FValue); FValue := GetLimitedValue(FValue);
@ -253,7 +256,8 @@ begin
FUpdatePending := True; FUpdatePending := True;
UpdateControl; UpdateControl;
FSettingValue := False; if not (csLoading in ComponentState) then
FSettingValue := False;
end; end;
function TSpinEditExBase.GetValue: T; function TSpinEditExBase.GetValue: T;

6
components/lazcontrols/spinex.pp
View File

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