anchor.diff:  
     AnchorsCenter;
     Hide;
  +
  +  // Subscribe to get other controls mouse move events
  +  aParent.fMasterControl.AddMouseMoveCtrlSub(ControlMouseMove);
   end;
   
   
  
positive.code:     MouseDown(X, Y, Shift, Button);
  end;
  
  procedure TKMPopUpPanel.ControlMouseMove(Sender: TObject; X, Y: Integer; Shift: TShiftState);
  begin
    inherited;
  
    MouseMove(X, Y, Shift);
  end;
  
  procedure TKMPopUpPanel.ControlMouseUp(Sender: TObject; X,Y: Integer; Shift: TShiftState; Button: TMouseButton);
  begin
  
negative.code: end;
  
  
  procedure TKMControl.ControlMouseDown(Sender: TObject; X,Y: Integer; Shift: TShiftState; Button: TMouseButton);
  begin
    //Let descendants override this method
  