anchor.diff:  end;
   
   
  +procedure TKMScrollBar.MouseDown(X,Y:integer; Shift:TShiftState; Button:TMouseButton);
  +begin
  +  Inherited;
  +  MouseMove(X,Y,Shift); //Will change Position and call OnChange event
  +end;
  +
  +
   procedure TKMScrollBar.MouseMove(X,Y:integer; Shift:TShiftState);
   var NewPos: integer;
   begin
  
positive.code: 
      procedure RefreshList(aPath,aExtension:string; ScanSubFolders:boolean=false);
      function FileName:string;
      procedure MouseMove(X,Y:Integer; Shift:TShiftState); override;
      procedure MouseWheel(X,Y:integer; WheelDelta:integer); override;
      property OnChange: TNotifyEvent read FOnChange write FOnChange;
  
negative.code:     procedure IncPosition(Sender:TObject);
      procedure DecPosition(Sender:TObject);
      constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer; aScrollAxis:TScrollAxis; aStyle:TButtonStyle);
      procedure MouseDown(X,Y:integer; Shift:TShiftState; Button:TMouseButton); override;
      procedure MouseMove(X,Y:Integer; Shift:TShiftState); override;
      procedure RefreshItems();
      property OnChange: TNotifyEvent read FOnChange write FOnChange;
  