anchor.diff:  end;
   
   
  +procedure TKMControl.MouseWheel(X,Y:integer; WheelDelta:integer);
  +begin
  +  if Assigned(OnMouseWheel) then OnMouseWheel(Self, WheelDelta);
  +end;
  +
  +
   function TKMControl.HitTest(X, Y: Integer): Boolean;
   begin
     Result := IsVisible and InRange(X, Left, Left + Width) and InRange(Y, Top, Top + Height);
  
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: 
  
  procedure TKMControlsCollection.MouseWheel(X,Y:integer; WheelDelta:integer);
  begin
    Controls[0].MouseWheel(X,Y,WheelDelta);
  end;
  
  
  