anchor.diff:      procedure   SetNegativeColor(const AValue: TfpgColor);
       procedure   SetThousandSeparator(const AValue: TfpgChar);
       procedure   SetShowThousand;
  +    procedure   AdjustColorForNegativeValues;
     protected
       function    GetMarginAdjustment: integer; override;
       procedure   HandlePaint; override;
  
positive.code: procedure TfpgBaseNumericEdit.FormatEdit;
  begin
    SetShowThousand;
    // Colour negative number
    if LeftStr(Text,1) = '-' then
      TextColor := NegativeColor
    else
      TextColor := OldColor;
  end;
  
  constructor TfpgBaseNumericEdit.Create(AOwner: TComponent);
  
negative.code:   end;
  end;
  
  procedure TfpgBaseNumericEdit.AdjustColorForNegativeValues;
  begin
    // Colour negative number
    if LeftStr(Text,1) = '-' then
      TextColor := NegativeColor
    else
      TextColor := OldColor;
  end;
  
  function TfpgBaseNumericEdit.GetMarginAdjustment: integer;
  begin
    // Due to numeric edits being right aligned, the margin is negative
  