anchor.diff:      CloseSubmenus;
       DeActivateMenu;
       FLastItemClicked := -1;
  +    FocusItem := -1;
       exit; //==>
     end;
  +
  +  if newf <> FFocusItem then
  +    FocusItem := newf;
   
     if not VisibleItem(newf).Selectable then
       Exit; //==>
  -
  -  if newf <> FFocusItem then
  -  begin
  -//    DrawColumn(FFocusItem, False);
  -    FocusItem := newf;
  -//    DrawColumn(FFocusItem, True);
  -  end;
   
     DoSelect;
   end;
  
positive.code:             op.Close;
              op := op.OpenerPopup;
            end;
          end;
    else
      consumed := false;
  
negative.code:   r: TfpgRect;
    mi: TfpgMenuItem;
  begin
    r.SetRect(2, 1, 1, Height-4);
  
    for n := 0 to VisibleCount-1 do  { so we can calculate menu item position }
    begin
      mi := VisibleItem(n);
      r.width := ItemWidth(mi);
      if col = n then
      begin
        if focus then
        begin
          fpgStyle.DrawBevel(Canvas, r.left, r.top, r.width, r.height, False);
          Canvas.SetColor(BackgroundColor);
          Canvas.SetTextColor(clMenuText);
        end
        else
        begin
  