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: set make sure Modified is correct in OnChange event as well.

Browse Source
This commit is contained in:
Bart 2021-10-03 16:22:04 +02:00
parent abd3cd5c6b
commit e868afe133
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazcontrols/spinex.inc
View File

@ -139,6 +139,14 @@ begin
{$ifdef debugspinex}
debugln('TSpinEditExBase.EditChange');
{$endif}
if FMustSetModifiedToTrueInOnChange then
begin
Modified := True;
FMustSetModifiedToTrueInOnChange := False;
{$ifdef debugspinex}
debugln('FMustSetModifiedToTrue=True, Setting Modifed to True');
{$endif}
end;
inherited EditChange;
end;
@ -304,7 +312,9 @@ begin
NewValue := GetLimitedValue(SafeDec(OldValue));
end;
end;
FMustSetModifiedToTrueInOnChange := True;
SetValue(NewValue);
//RealSetText of the Edit will set it to False
Modified := True;
end;
@ -328,7 +338,7 @@ end;
constructor TSpinEditExBase.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
FMustSetModifiedToTrueInOnChange := False;
FArrowKeys := True;
FIncrement := DefIncrement;
FMaxValue := DefMaxValue;