VCLStyle无法正确绘制大弹出菜单

Question

在大弹出菜单上绘制问题。 菜单的箭头末端没有显示和一些绘画问题

如何解决这个问题？

使用示例代码生成的菜单项：

 procedure TForm1.Button1Click(Sender: TObject);
 var
   mi:TMenuItem;
   I: Integer;
 begin
   for I := 0 to 100 do
   begin
     mi:=TMenuItem.Create(PopupMenu1);
     mi.Caption:='Item '+IntToStr(I);
     PopupMenu1.Items.Add(mi);
   end;
end;

示例图片：

没有样式的弹出菜单结束（Native）

带有样式的弹出菜单结束

点击菜单上的箭头位置：

全屏图片：

修改：

-Delphi XE3

- 添加了全屏菜单图像。

Answer 1

问题由@RRUZ修复

您可以更新：https://github.com/RRUZ/vcl-styles-utils