I can not correct display chinese word, Why?
and It's fail when I try change title of window (MDI)
test.prg
- Code: Select all Expand view
#include "fivewin.ch"
func Main()
local oMenu, oWin
HB_SetCodePage("UTF8")
HB_CDPSELECT("UTF8")
//
FW_SetUnicode(.T.)
//
MENU oMenu
MENUITEM "[&A]基本資料"
MENU
MENUITEM "[&A]基本測試-A"
MENUITEM "[&B]基本測試-B"
MENUITEM "[&C]基本測試-C"
ENDMENU
MENUITEM "[&B]交易作業"
MENU
MENUITEM "[&A]交易作業-A"
MENUITEM "[&B]交易作業-B"
MENUITEM "[&C]交易作業-C"
ENDMENU
MENUITEM "[&S]系統設定"
MENU
MENUITEM "[&A]系統設定-A"
MENUITEM "[&B]系統設定-B"
MENUITEM "[&C]系統設定-C"
ENDMENU
MENUITEM "[&T]set MDI Window Title" ACTION oWin:cTitle('中文測試')
ENDMENU
DEFINE WINDOW oWin TITLE "中文測試(utf8 encode).龍.咙." COLOR "W+/N+" MDI MENU oMenu
ACTIVATE WINDOW oWin MAXIMIZED
return nil