anchor.diff:  end;
   
   
  -procedure TKMControl.ControlMouseMove(Sender: TObject; X: Integer; Y: Integer; Shift: TShiftState);
  -begin
  -  //Let descendants override this method
  -end;
  -
  -
   procedure TKMControl.ControlMouseDown(Sender: TObject; X,Y: Integer; Shift: TShiftState; Button: TMouseButton);
   begin
     //Let descendants override this method
  
positive.code:   {$IFDEF Unix} LCLIntf, LCLType, {$ENDIF}
    SysUtils, StrUtils, Math, KromUtils, Clipbrd,
    KM_Resource, KM_ResSprites, KM_ResSound, KM_ResCursors, KM_ResTexts,
    KM_Sound, KM_CommonUtils, KM_Utils;
  
  
  const
  
negative.code: 
  
  procedure TKMMasterControl.MouseMove(X,Y: Integer; Shift: TShiftState);
  var
    I: Integer;
    HintControl: TKMControl;
  begin
    CtrlOver := HitControl(X,Y);
  
    // Notify all ControlMouseMove subscribers
    for I := 0 to fMouseMoveSubsList.Count - 1 do
      if Assigned(fMouseMoveSubsList[I]) then
        fMouseMoveSubsList[I](CtrlOver, X, Y, Shift);
  
    //User is dragging some Ctrl (e.g. scrollbar) and went away from Ctrl bounds
    if (CtrlDown <> nil) and CtrlDown.Visible then
  