anchor.diff:    //Only swap focus if visibility changed
     if (OldVisible <> fVisible) and (Focusable or (Self is TKMPanel)) then
       MasterParent.fMasterControl.UpdateFocus(Self);
  +
  +  if Assigned(fOnChangeVisibility) then
  +    fOnChangeVisibility;
   end;
   
   
  
positive.code:   private
      fMasterControl: TKMMasterControl;
      procedure Init;
    protected
      //Do not propogate SetEnabled and SetVisible because that would show/enable ALL childs childs
      //e.g. scrollbar on a listbox
  
negative.code:   ResetFocusedControlIndex;
    OnControlMouseDown := ControlMouseDown;
    OnControlMouseUp := ControlMouseUp;
    OnChangeVisibility := UpdateVisibility;
  end;
  
  
  