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:     if Childs[i].Visible and Childs[i].Enabled then
         Childs[i].CheckCursorOver(X,Y,AShift);
  end;
  
  constructor TKMPanel.Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer);
  begin
  
negative.code:   public
      ChildCount:word;             //Those two are actually used only for TKMPanel
      Childs: array of TKMControl; //No other elements needs to be parented
      constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer);
      procedure CheckCursorOver(X,Y:integer; AShift:TShiftState); override;
      procedure MouseWheel(X,Y:integer; WheelDelta:integer); override;
      procedure Paint(); override;
  end;
  
  