From e545177bc317ef8466f1f22b23765ef8222090dd Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 15 Apr 2024 17:39:01 +0000
Subject: [PATCH] RxFPC:RxSpinEdit - check input value on exit editor

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9336 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rx.inc                | 2 +-
 components/rx/trunk/rxcontrols/rxspin.pas | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/components/rx/trunk/rx.inc b/components/rx/trunk/rx.inc
index 512c548ff..5430cc604 100644
--- a/components/rx/trunk/rx.inc
+++ b/components/rx/trunk/rx.inc
@@ -47,7 +47,7 @@
 {.$DEFINE USE_TRxAppIcon}
 
 {.$DEFINE USE_DEPRECATES}
-{.$DEFINE OLD_SPIN_EDIT}
+{.$DEFINE OLD_SPIN_EDIT}  //Use old style RxSpinEdit
 
 {$if FPC_FULLVERSION<20701}
   {$DEFINE NoAutomatedBookmark}
diff --git a/components/rx/trunk/rxcontrols/rxspin.pas b/components/rx/trunk/rxcontrols/rxspin.pas
index 296c937e0..3f901c1d2 100644
--- a/components/rx/trunk/rxcontrols/rxspin.pas
+++ b/components/rx/trunk/rxcontrols/rxspin.pas
@@ -285,6 +285,7 @@ type
   protected
     function GetEditorClassType: TGEEditClass; override;
     function GetBuddyClassType: TControlClass; override;
+    procedure EditExit; override;
 
     procedure UpClick(Sender: TObject); virtual;
     procedure DownClick(Sender: TObject); virtual;
@@ -1294,6 +1295,12 @@ begin
   Result:=TRxSpinButton;
 end;
 
+procedure TCustomRxSpinEdit.EditExit;
+begin
+  if CheckValue(Value) <> Value then SetValue(Value);
+  inherited EditExit;
+end;
+
 procedure TCustomRxSpinEdit.UpClick(Sender: TObject);
 var
   OldText: string;