anchor.diff:    fShape.AnchorsStretch;
     fShape.fOnClick := ListHide;
   
  -  OnChangeVisibility := UpdateVisibility;
  -
     fAutoClose := aAutoClose;
   end;
   
  
positive.code:     property OnFocus: TNotifyEventFocus read fOnFocus write fOnFocus;
      property OnControlMouseDown: TNotifyEventShift read fOnControlMouseDown write fOnControlMouseDown;
      property OnControlMouseUp: TNotifyEventShift read fOnControlMouseUp write fOnControlMouseUp;
      property OnChangeVisibility: TEvent read fOnChangeVisibility write fOnChangeVisibility;
  
      procedure Paint; virtual;
    end;
  
negative.code:     procedure SetWidth(aValue: Integer); override;
      procedure ControlMouseDown(Sender: TObject; Shift: TShiftState);
      procedure ControlMouseUp(Sender: TObject; Shift: TShiftState);
      procedure UpdateVisibility; override;
    public
      FocusedControlIndex: Integer; //Index of currently focused control on this Panel
      ChildCount: Word;
  