anchor.diff:  procedure TfpgBaseNumericEdit.FormatEdit;
   begin
     SetShowThousand;
  -  // Colour negative number
  -  if LeftStr(Text,1) = '-' then
  -    TextColor := NegativeColor
  -  else
  -    TextColor := OldColor;
  +  AdjustColorForNegativeValues;
   end;
   
   constructor TfpgBaseNumericEdit.Create(AOwner: TComponent);
  
positive.code:     procedure   SetNegativeColor(const AValue: TfpgColor);
      procedure   SetThousandSeparator(const AValue: TfpgChar);
      procedure   SetShowThousand;
    protected
      function    GetMarginAdjustment: integer; override;
      procedure   HandlePaint; override;
  
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
  