anchor.diff:      if prevval <> Text then
         DoOnChange;
     end;
  -  
  +
     if consumed then
       RePaint;
   
  
positive.code: 
    TfpgEditFloat = class(TfpgBaseNumericEdit)
    private
      FDecimals: integer;
      FFixedDecimals: boolean;
    protected
      function    GetValue: extended; virtual;
      procedure   SetValue(const AValue: extended); virtual;
      procedure   SetShowThousand;
      procedure   SetDecimals(const AValue: integer);
      procedure   SetFixedDecimals(const AValue: boolean);
      procedure   Format; override;
      procedure   HandleKeyChar(var AText: TfpgChar; var shiftstate: TShiftState; var consumed: Boolean); override;
    public
      constructor Create(AOwner: TComponent); override;
      property    OldColor;
      property    Text;
    published
      property    Alignment;
      property    Decimals: integer read fDecimals write SetDecimals;
      property    DecimalSeparator;
      property    FixedDecimals: boolean read FFixedDecimals write SetFixedDecimals;
      property    NegativeColor;
  
negative.code:     FFixedDecimals := AValue;
  end;
  
  procedure TfpgEditFloat.HandleKeyChar(var AText: TfpgChar;
    var shiftstate: TShiftState; var consumed: Boolean);
  var
  