anchor.diff:      procedure MouseDown (X,Y: Integer; Shift: TShiftState; Button: TMouseButton); override;
       procedure MouseMove (X,Y: Integer; Shift: TShiftState); override;
       procedure MouseUp   (X,Y: Integer; Shift: TShiftState; Button: TMouseButton); override;
  -    procedure Paint; override;
  +    procedure PaintPanel(aPaintLayer: Integer); override;
     end;
   
   
  
positive.code: end;
  
  
  procedure TKMScrollBar.Paint;
  var
    ButtonState: TKMButtonStateSet;
  begin
  
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;
  
  
  