anchor.diff:      property Top: Integer read GetTop write SetTop;
       property Width: Integer read GetWidth write SetWidth;
       property Height: Integer read GetHeight write SetHeight;
  -    property Anchors: TAnchors read fAnchors write fAnchors;
  +    property Anchors: TAnchors read fAnchors write SetAnchors;
       property Enabled: Boolean read fEnabled write SetEnabled;
       property Visible: Boolean read GetVisible write SetVisible;
       procedure Enable;
  
positive.code:   protected
      procedure SetHeight(aValue: Integer); override;
      procedure SetWidth(aValue: Integer); override;
      procedure SetVisible(aValue: Boolean); override;
      procedure SetEnabled(aValue: Boolean); override;
    public
  
negative.code:     procedure SetWidth(aValue: Integer); virtual;
      procedure SetVisible(aValue: Boolean); virtual;
      procedure SetEnabled(aValue: Boolean); virtual;
      procedure SetAnchors(aValue: TAnchors); virtual;
    public
      Hitable: Boolean; //Can this control be hit with the cursor?
      Focusable: Boolean; //Can this control have focus (e.g. TKMEdit sets this true)
  