anchor.diff:    
   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;
  
positive.code:     FBeforeShow: TNotifyEvent;
      FLightColor: TfpgColor;
      FDarkColor: TfpgColor;
      FPrevFocusItem: integer;
      FFocusItem: integer;
      procedure   SetFocusItem(const AValue: integer);
  
negative.code:   
    FLightColor := TfpgColor($f0ece3);  // color at top of menu bar
    FDarkColor  := TfpgColor($beb8a4);  // color at bottom of menu bar
    
    FMenuOptions := [];
  end;
  
  destructor TfpgMenuBar.Destroy;
  