anchor.diff:    GuiFieldName := 'FocusItem';
   end;
   
  +{ TMediatorSpinEditFloatView }
  +
  +function TMediatorSpinEditFloatView.GetGUIControl: TComponent;
  +begin
  +  Result := FEditControl;
  +end;
  +
  +procedure TMediatorSpinEditFloatView.SetGUIControl(const AValue: TComponent);
  +begin
  +  FEditControl := AValue as TfpgSpinEditFloat;
  +  inherited SetGUIControl(AValue);
  +end;
  +
  +procedure TMediatorSpinEditFloatView.UpdateGuiValidStatus(pErrors: TtiObjectErrors);
  +var
  +  oError: TtiObjectError;
  +begin
  +  inherited UpdateGuiValidStatus(pErrors);
  +
  +  oError := pErrors.FindByErrorProperty(FieldName);
  +  if oError <> nil then
  +  begin
  +    EditControl.BackgroundColor  := clError;
  +    EditControl.Hint   := oError.ErrorMessage;
  +  end
  +  else
  +  begin
  +    EditControl.BackgroundColor  := clWindowBackground;
  +    EditControl.Hint   := '';
  +  end;
  +end;
  +
  +constructor TMediatorSpinEditFloatView.Create;
  +begin
  +  inherited Create;
  +  GuiFieldName := 'Value';
  +end;
  +
  +class function TMediatorSpinEditFloatView.ComponentClass: TClass;
  +begin
  +  Result := TfpgSpinEditFloat;
  +end;
  +
   end.
   
  
positive.code:   oError := pErrors.FindByErrorProperty(FieldName);
    if oError <> nil then
    begin
      EditControl.Color  := clError;
      EditControl.Hint   := oError.ErrorMessage;
    end
    else
    begin
      EditControl.Color  := ColorToRGB(clWindow);
      EditControl.Hint   := '';
    end;
  end;
  *)
  
  { TMediatorTrackBarView}
  
  
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;
  