From c68a35d4e9b832e0b70faa024a7fbb2690606494 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 6 Jan 2021 19:08:14 +0000
Subject: [PATCH] ExCtrls: Undo r7957. Obsolete after recent changes in FPC.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7960 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/exctrls/source/exeditctrls.pas | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/components/exctrls/source/exeditctrls.pas b/components/exctrls/source/exeditctrls.pas
index bdc1a598a..40785ee96 100644
--- a/components/exctrls/source/exeditctrls.pas
+++ b/components/exctrls/source/exeditctrls.pas
@@ -47,6 +47,8 @@ type
     FDecimalSeparator: Char;
     FNegCurrencyFormat: TSpinEditNegCurrencyFormat;
     FThousandSeparator: Char;
+    function IncrementStored: Boolean;
+    function MaxValueStored: Boolean;
     procedure SetCurrencyFormat(AValue: TSpinEditCurrencyFormat);
     procedure SetCurrencyString(AValue: String);
     procedure SetDecimals(AValue: TSpinEditCurrencyDecimals);
@@ -55,9 +57,6 @@ type
     procedure SetThousandSeparator(AValue: Char);
   protected
     procedure EditKeyPress(var Key: char); override;
-    function IncrementStored: Boolean; override;
-    function MaxValuestored: Boolean; override;
-    function MinValuestored: Boolean; override;
     function SafeInc(AValue: Currency): Currency; override;
     function SafeDec(AValue: Currency): Currency; override;
     function TextIsNumber(const S: String; out ANumber: Currency): Boolean; override;
@@ -82,6 +81,8 @@ type
       read FNegCurrencyFormat write SetNegCurrencyFormat;
     property ThousandSeparator: Char
       read FThousandSeparator write SetThousandSeparator;
+    property Increment stored IncrementStored;
+    property MaxValue stored MaxValueStored;
   end;
 
   { TCurrSpinEdit }
@@ -309,6 +310,7 @@ end;
 constructor TCustomCurrSpinEditEx.Create(AOwner: TComponent);
 begin
   inherited;
+  FIncrement := 1;
   FMaxValue := 0;
   FMinValue := 0;  // --> disable Max/Min check by default
   ResetFormatSettings;
@@ -334,12 +336,6 @@ begin
   Result := FMaxValue <> 0;
 end;
 
-function TCustomCurrSpinEditEx.MinValueStored: Boolean;
-begin
-  Result := FMinValue <> 0;
-end;
-
-
 procedure TCustomCurrSpinEditEx.ResetFormatSettings;
 begin
   FDecimals := DefaultFormatSettings.CurrencyDecimals;