anchor.diff:      procedure UpdateThumbPos;
       procedure UpdateThumbSize;
     protected
  -    procedure SetLeft(aValue: Integer); override;
  -    procedure SetTop(aValue: Integer); override;
       procedure SetHeight(aValue: Integer); override;
       procedure SetWidth(aValue: Integer); override;
       procedure SetEnabled(aValue: Boolean); override;
  -    procedure SetVisible(aValue: Boolean); override;
     public
       BackAlpha: Single; //Alpha of background (usually 0.5, dropbox 1)
       EdgeAlpha: Single; //Alpha of background outline (usually 1)
  
positive.code:     sa_Vertical:   fThumbSize := Math.max(0, (Height-2*Width)) div 4;
      sa_Horizontal: fThumbSize := Math.max(0, (Width-2*Height)) div 4;
    end;
  end;
  
  
  
negative.code:   private
      GetCollection: TKMMasterControl;
    protected
      //Do not propogate SetEnabled and SetVisible because that would show/enable ALL child controls
      //e.g. scrollbar on a listbox
      procedure SetHeight(aValue: Integer); override;
      procedure SetWidth(aValue: Integer); override;
    public
  