anchor.diff:    private
       fMasterControl: TKMMasterControl;
       procedure Init;
  -    procedure UpdateVisibility;
     protected
       //Do not propogate SetEnabled and SetVisible because that would show/enable ALL childs childs
       //e.g. scrollbar on a listbox
  
positive.code: end;
  
  
  procedure TKMPanel.Hide;
  
  begin
    inherited Hide;
    if Assigned(OnChangeVisibility) then
      OnChangeVisibility;
  end;
  
  
  procedure TKMPanel.UpdateVisibility;
  var I: Integer;
  begin
    for I := 0 to ChildCount - 1 do
      if Assigned(Childs[I].OnChangeVisibility) then
        Childs[I].OnChangeVisibility;
  end;
  
  
  
negative.code: 
      fTimeOfLastClick: Cardinal; //Required to handle double-clicks
  
      fOnClick: TNotifyEvent;
      fOnClickShift: TNotifyEventShift;
      fOnClickRight: TPointEvent;
  