anchor.diff:  
     // Draw the remaining text after the & sign
     if UTF8Length(s) > 0 then
  -//    ACanvas.DrawString(x, y, s);
       fpgStyle.DrawString(ACanvas, x, y, s, Enabled);
   end;
   
  
positive.code:     procedure   PrepareToShow;
      function    VisibleCount: integer;
      function    VisibleItem(ind: integer): TfpgMenuItem;
      procedure   HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override;
      procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
  
negative.code:   FSeparator := False;
    FVisible := True;
    FEnabled := True;
    FChecked := False;
    FSubMenu := nil;
    FOnClick := nil;
  end;
  