paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 22:20:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
(cherry picked from commit abd3cd5c6b)
This commit is contained in:
Bart 2021-10-03 12:47:45 +02:00 committed by Maxim Ganetsky
parent 66b87899c0
commit 89a9ce9785
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;
UpdateControl;
Modified := False;
if not HandleAllocated
and ([csLoading, csDestroying] * ComponentState = [])
and not SameValue(OldValue, FValue) then