anchor.diff:  
       fTimeOfLastClick: Cardinal; //Required to handle double-clicks
   
  +    fOnChangeVisibility: TEvent;
       fOnClick: TNotifyEvent;
       fOnClickShift: TNotifyEventShift;
       fOnClickRight: TPointEvent;
  
positive.code:   for I := 0 to ChildCount - 1 do
      if Assigned(Childs[I].fOnControlMouseUp) then
        Childs[I].fOnControlMouseUp(Sender, Shift);
  end;
  
  
  
negative.code:     procedure SetWidth(aValue: Integer); override;
      procedure ControlMouseDown(Sender: TObject; Shift: TShiftState);
      procedure ControlMouseUp(Sender: TObject; Shift: TShiftState);
      procedure Hide; override;
    public
      FocusedControlIndex: Integer; //Index of currently focused control on this Panel
      ChildCount: Word;
  