anchor.diff:  
   
   procedure TKMControlsCollection.MouseWheel(X,Y:integer; WheelDelta:integer);
  -var i:integer;
  -begin
  -  for i:=0 to Count-1 do
  -    if Controls[i].HitTest(X, Y)
  -    and Controls[i].Enabled then begin
  -      if Controls[i] is TKMFileList then
  -        TKMFileList(Controls[i]).TopIndex := EnsureRange(TKMFileList(Controls[i]).TopIndex - WheelDelta div 120, 0, 3);
  -
  -      if Assigned(Controls[i].OnMouseWheel) then
  -      begin
  -        Controls[i].OnMouseWheel(Controls[i], WheelDelta);
  -        exit; //Send OnWheel only to one item
  -      end;
  -    end;
  +begin
  +  Controls[0].MouseWheel(X,Y,WheelDelta);
   end;
   
   
  
positive.code:     procedure Hide;
      function IsVisible():boolean;
      function KeyUp(Key: Word; Shift: TShiftState; IsDown:boolean=false):boolean; virtual;
      property OnChange: TNotifyEvent read FOnChange write FOnChange;
      property OnClick: TNotifyEvent read FOnClick write FOnClick;
      property OnClickEither: TNotifyEventMB read FOnClickEither write FOnClickEither;
  
negative.code: end;
  
  
  procedure TKMFileList.MouseWheel(X,Y:integer; WheelDelta:integer);
  begin
    Inherited;
    TopIndex := EnsureRange(TopIndex - WheelDelta div 120, 0, 3);
  end;
  
  
  function TKMFileList.FileName():string;
  begin
    if InRange(ItemIndex, 0, fFiles.Count) then
  