Delphi VCL Menus单元绘制菜单逻辑错误

来源:互联网 发布:测试ip端口是否打开 编辑:程序博客网 时间:2024/06/03 20:09
Delphi VCL Menus单元绘制菜单逻辑错误

DrawThemeTextEx(ThemeServices.Theme[teMenu], ACanvas.Handle, MENU_POPUPITEM, MenuStates[MenuItem.Enabled], PWideChar(WideString(Text)), Length(Text), Flags, @Rect, Options);

Text不是WideString,所以如果有汉字, Length(Text)会比WideString(Text)的长度大,就越界了。

C:\Program Files (x86)\CodeGear\RAD Studio\5.0\source\Win32\vcl\Menus.pas
0 0
原创粉丝点击