anchor.diff:  
       property OnHint: TNotifyEvent write fOnHint;
   
  -    function HitControl(X,Y: Integer; aIncludeDisabled: Boolean=false): TKMControl;
  +    function HitControl(X,Y: Integer; aIncludeDisabled: Boolean=false; aMouseUp: Boolean = False): TKMControl;
   
       function KeyDown    (Key: Word; Shift: TShiftState): Boolean;
       procedure KeyPress  (Key: Char);
  
positive.code: 
  procedure TKMMasterControl.MouseUp(X,Y: Integer; Shift: TShiftState; Button: TMouseButton);
  begin
    CtrlUp := HitControl(X,Y);
  
    //Here comes tricky part, we can't do anything after calling an event (it might Destroy everything,
    //e.g. Exit button, or Resolution change). We need to release CtrlDown (otherwise it remains
  
negative.code:     procedure ListClick(Sender: TObject); virtual;
      procedure ListChange(Sender: TObject); virtual;
      procedure ListHide(Sender: TObject); virtual;
      procedure ListHide2(Sender: TObject);
      function ListVisible: Boolean; virtual; abstract;
      function GetItemIndex: SmallInt; virtual; abstract;
      procedure SetItemIndex(aIndex: SmallInt); virtual; abstract;
  