anchor.diff:      constructor Create(AOwner: TComponent); override;
       destructor  Destroy; override;
       function    AddMenuItem(const AMenuTitle: string; OnClickProc: TNotifyEvent): TfpgMenuItem;
  +    property    MenuOptions: TfpgMenuOptions read FMenuOptions write FMenuOptions;
       property    BeforeShow: TNotifyEvent read FBeforeShow write FBeforeShow;
     end;
   
  
positive.code:   if newf = FFocusItem then
      Exit; //==>
  
    //if VisibleItem(newf).SubMenu.Visible then
      //exit;
  
    FocusItem := newf;
    Repaint;
  end;
  
  procedure TfpgMenuBar.HandleLMouseDown(x, y: integer; shiftstate: TShiftState);
  
negative.code:   
  type
    TfpgHotKeyDef = string;
    
    TfpgMenuOption = (mnuo_autoopen,          // auto open menus when mouse over menubar
                      mnuo_nofollowingmouse   // don't auto open new menus as mouse moves over menubar
                      );
    
    TfpgMenuOptions = set of TfpgMenuOption;
    
    // forward declarations
    TfpgPopupMenu = class;
  