anchor.diff:    	begin
         for i := 1 to UTF8Length(txt) do
           if txt[i] = ThousandSeparator then
  -          Exit;                               // avoids additional separators when pressing return
  +        begin
  +          txt:= UTF8Copy(txt, 1, i - 1) + UTF8Copy(txt, i + 1, long - i);
  +          dec(long);
  +        end;
     		i := 0;
     		texte := '';
     		repeat
  
positive.code:   end;
  end;
  
  procedure TfpgEditFloat.SetDecimals(const AValue: integer);
  begin
    if AValue < -1 then
  
negative.code: 
    TfpgBaseNumericEdit = class(TfpgBaseEdit)
    private
      FDecimals: integer;
      FOldColor: TfpgColor;
      FAlignment: TAlignment;
      FDecimalseparator: char;
      FNegativeColor: TfpgColor;
      FThousandSeparator: char;
      FShowThousand: boolean;
      procedure   SetOldColor(const AValue: TfpgColor);
      procedure   SetAlignment(const AValue: TAlignment);
      procedure   SetDecimalSeparator(const AValue: char);
      procedure   SetNegativeColor(const AValue: TfpgColor);
      procedure   SetThousandSeparator(const AValue: char);
      procedure   SetShowThousand;
    protected
      procedure   HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); override;
      procedure   HandlePaint; override;
      procedure   FormatEdit; virtual;
      procedure   Justify; virtual; // to implement in derived classes
      property    OldColor: TfpgColor read FOldColor write SetOldColor;
      property    Alignment: TAlignment read FAlignment write SetAlignment default taRightJustify;
      property    AutoSelect;
      property    BackgroundColor default clBoxColor;
      property    BorderStyle;
      {Someone likes to use English operating system but localized decimal and thousand separators
       Still to implement !!}
      property    DecimalSeparator: char read FDecimalseparator write SetDecimalSeparator;
      property    ThousandSeparator: char read FThousandSeparator write SetThousandSeparator;
      property    NegativeColor: TfpgColor read FNegativeColor write SetNegativeColor;
      property    HideSelection;
  //    property    MaxLength;  { probably MaxValue and MinValue }
      property    TabOrder;
      property    TextColor;
      property    ShowThousand: boolean read FShowThousand write FShowThousand default False;
      property    OnChange;
      property    OnEnter;
      property    OnExit;
  