anchor.diff:      Exit;
     FPrevFocusItem := FFocusItem;
     FFocusItem := AValue;
  +  Repaint;
   end;
   
   procedure TfpgMenuBar.PrepareToShow;
  
positive.code:           Canvas.SetTextColor(clMenuDisabled);
          end;
        end;  { if/else }
        Canvas.FillRectangle(r);
        // a possible future theme option
  //      Canvas.GradientFill(r, FLightColor, FDarkColor, gdVertical);
        mi.DrawText(Canvas, r.left+4, r.top+1, cImgWidth);
        Canvas.EndDraw(r.Left, r.Top, r.Width, r.Height);
        Exit; //==>
      end;  { if col=n }
      inc(r.Left, ItemWidth(mi));
    end;  { for }
  end;
  
  
negative.code: begin
    FClicked := False;
    FLastItemClicked := -1;
    FFocusItem := -1;
    Repaint;
  end;
  
  procedure TfpgMenuBar.DrawColumn(col: integer; focus: boolean);
  