anchor.diff:              op.Close;
               op := op.OpenerPopup;
             end;
  +          if OpenerMenubar <> nil then
  +            OpenerMenubar.InternalReset;
           end;
     else
       consumed := false;
  
positive.code:     Exit;
    FPrevFocusItem := FFocusItem;
    FFocusItem := AValue;
  end;
  
  procedure TfpgMenuBar.PrepareToShow;
  
negative.code:           Canvas.SetTextColor(clMenuDisabled);
          end;
        end;  { if/else }
        // a possible future theme option
  //      Canvas.GradientFill(r, FLightColor, FDarkColor, gdVertical);
        mi.DrawText(Canvas, r.left+4, r.top+1, cImgWidth);
        Exit; //==>
      end;  { if col=n }
      inc(r.Left, r.width);
    end;  { for }
  end;
  
  