anchor.diff:  end;
   
   
  -procedure TKMScrollBar.Paint;
  +procedure TKMScrollBar.PaintPanel(aPaintLayer: Integer);
   var
     ButtonState: TKMButtonStateSet;
   begin
  
positive.code:   private
      fMasterControl: TKMMasterControl;
      procedure Init;
    protected
      //Do not propogate SetEnabled and SetVisible because that would show/enable ALL childs childs
      //e.g. scrollbar on a listbox
  
negative.code:     procedure MouseMove(X,Y: Integer; Shift: TShiftState); override;
      procedure MouseWheel(Sender: TObject; WheelDelta: Integer; var aHandled: Boolean); override;
      property OnChange: TNotifyEvent read fOnChange write fOnChange;
      procedure PaintPanel(aPaintLayer: Integer); override;
    end;
  
  
  