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

@@ -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}

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;