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

T(Float)SpinEdit: set Modified to False if Value is set programmatically.

Browse Source
This commit is contained in:
Bart 2021-10-03 12:47:45 +02:00
parent 2e98d119cc
commit abd3cd5c6b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/spinedit.inc
View File

@ -142,6 +142,8 @@ begin
FUpdatePending := True; FUpdatePending := True;
UpdateControl; UpdateControl;
Modified := False;
if not HandleAllocated if not HandleAllocated
and ([csLoading, csDestroying] * ComponentState = []) and ([csLoading, csDestroying] * ComponentState = [])
and not SameValue(OldValue, FValue) then and not SameValue(OldValue, FValue) then