anchor.diff:  begin
     inherited HandleMouseMove(x, y, btnstate, shiftstate);
   
  -  if not MenuFocused then
  -    Exit; //==>
  +  // process menu options
  +  if mnuo_nofollowingmouse in FMenuOptions then
  +  begin
  +    if not MenuFocused then
  +      Exit; //==>
  +  end
  +  else if mnuo_autoopen in FMenuOptions then
  +  begin
  +    if not Focused then
  +      ActivateMenu;
  +  end
  +  else
  +  begin
  +    if not Focused then
  +      Exit;
  +  end;
  +
   
     newf := CalcMouseCol(x);
     if not VisibleItem(newf).Selectable then
  
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:   
    FLightColor := TfpgColor($f0ece3);  // color at top of menu bar
    FDarkColor  := TfpgColor($beb8a4);  // color at bottom of menu bar
    
    FMenuOptions := [];
  end;
  
  destructor TfpgMenuBar.Destroy;
  