anchor.diff:    public
       ChildCount:word;             //Those two are actually used only for TKMPanel
       Childs: array of TKMControl; //No other elements needs to be parented
  -  protected
       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;
   
  
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: 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
  