anchor.diff:    oError := pErrors.FindByErrorProperty(FieldName);
     if oError <> nil then
     begin
  -    EditControl.Color  := clError;
  +    EditControl.BackgroundColor  := clError;
       EditControl.Hint   := oError.ErrorMessage;
     end
     else
     begin
  -    EditControl.Color  := ColorToRGB(clWindow);
  +    EditControl.BackgroundColor  := clWindowBackground;
       EditControl.Hint   := '';
     end;
   end;
  -*)
  +
  +constructor TMediatorSpinEditView.Create;
  +begin
  +  inherited Create;
  +  GuiFieldName := 'Value';
  +end;
  +
   
   { TMediatorTrackBarView}
   
  
positive.code:     procedure   SetGUIControl(const AValue: TComponent);override;
      procedure   SetupGUIandObject; override;
    public
      Constructor Create; override;
      property    EditControl: TfpgLabel read FEditControl write FEditControl;
      class function ComponentClass: TClass; override;
    end;
  
  
    { Base class to handle TSpinEdit controls }
  {
    TMediatorSpinEditView = class(TMediatorView)
    private
      function    GetEditControl: TSpinEdit;
      procedure   OnLostFocus(Sender: TObject);
      procedure   SetEditControl(const AValue: TSpinEdit);
    protected
      procedure   SetupGUIandObject; override;
      procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
    public
      property    EditControl: TSpinEdit read GetEditControl write SetEditControl;
      procedure   GuiToObject; override;
      class function ComponentClass: TClass; override;
    end;
  }
  
  
    { Base class to handle TfpgTrackBar controls }
  
negative.code:     procedure   SetGUIControl(const AValue: TComponent);override;
      procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
    public
      constructor Create; override;
      property    EditControl: TfpgCheckBox read FEditControl write FEditControl;
      class function ComponentClass: TClass; override;
    end;
  