anchor.diff:    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
  
positive.code:     procedure   SetNegativeColor(const AValue: TfpgColor);
      procedure   SetThousandSeparator(const AValue: TfpgChar);
      procedure   SetShowThousand;
    protected
      function    GetMarginAdjustment: integer; override;
      procedure   HandlePaint; override;
  
negative.code: procedure TfpgBaseNumericEdit.FormatEdit;
  begin
    SetShowThousand;
    AdjustColorForNegativeValues;
  end;
  
  constructor TfpgBaseNumericEdit.Create(AOwner: TComponent);
  