From abd3cd5c6ba713b51cd0172cd903657da347a2e1 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Sun, 3 Oct 2021 12:47:45 +0200
Subject: [PATCH] T(Float)SpinEdit: set Modified to False if Value is set
 programmatically.

---
 lcl/include/spinedit.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/include/spinedit.inc b/lcl/include/spinedit.inc
index ed46c01d96..7ac6ec0905 100644
--- a/lcl/include/spinedit.inc
+++ b/lcl/include/spinedit.inc
@@ -142,6 +142,8 @@ begin
   FUpdatePending := True;
   UpdateControl;
 
+  Modified := False;
+
   if not HandleAllocated
   and ([csLoading, csDestroying] * ComponentState = [])
   and not SameValue(OldValue, FValue) then