anchor.diff:    end;
   end;
   
  +procedure TfpgPopupMenu.HandleMouseEnter;
  +begin
  +  inherited HandleMouseEnter;
  +  CaptureMouse;
  +end;
  +
   procedure TfpgPopupMenu.HandleMouseExit;
   begin
  +  ReleaseMouse;
     inherited HandleMouseExit;
     FFocusItem := 0;
     Repaint;
  
positive.code:   
    // Actual Menu Items are stored in TComponent's Components property
    // Visible only items are stored in FItems just before a paint
  
    TfpgPopupMenu = class(TfpgPopupWindow)
    private
      FBeforeShow: TNotifyEvent;
  
negative.code: begin
    PrepareToShow;
    inherited HandleShow;
  end;
  
  procedure TfpgPopupMenu.HandleClose;
  begin
    ReleaseMouse;
    inherited HandleClose;
  end;
  
  function TfpgPopupMenu.VisibleCount: integer;
  