paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 19:20:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixes unicode support in wince menus.

Browse Source 
git-svn-id: trunk@15481 -
This commit is contained in:
sekelsenmat 2008-06-20 12:29:18 +00:00
parent aad6d87b22
commit ff61283d5e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/wince/wincewsmenus.pp
View File

@ -382,7 +382,7 @@ begin
MenuInfo.fType := MenuInfo.fType or Flag
else
MenuInfo.fType := MenuInfo.fType and (not Flag);
wCaption := AMenuItem.Caption;
wCaption := UTF8Decode(AMenuItem.Caption);
{$ifdef win32}
MenuInfo.dwTypeData := PChar(PWideChar(wCaption));
{$else}
@ -399,7 +399,7 @@ var
MenuInfo: MENUITEMINFO;
wCaption: WideString;
begin
wCaption := ACaption;
wCaption := UTF8Decode(ACaption);
with MenuInfo do
begin
cbsize := menuiteminfosize;
@ -476,7 +476,7 @@ begin
fState := (fState xor MF_STRING) or MF_SEPARATOR;
end;
wCaption := AmenuItem.Caption;
wCaption := UTF8Decode(AmenuItem.Caption);
Index := AMenuItem.Parent.VisibleIndexOf(AMenuItem);
if not InsertMenuW(ParentMenuHandle, Index, fState, cmd, PWideChar(wCaption)) then