anchor.diff:      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;
  
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:   ResetFocusedControlIndex;
    OnControlMouseDown := ControlMouseDown;
    OnControlMouseUp := ControlMouseUp;
  end;
  
  
  