To who use Chinese Language (another problem)
To who use Chinese Language (another problem)
I use FWH 8.04 and xHarbour.com 11/07.
I would like to show menu in Chinese Language.
- Source code file must be which format ANSI or Unicode or ??????
- Can I copy Chinese Text from Google Dictionary to paste in Source Code?
- Can I use MingLiU (standard windows vista font file)?
Regards,
Dutch
I would like to show menu in Chinese Language.
- Source code file must be which format ANSI or Unicode or ??????
- Can I copy Chinese Text from Google Dictionary to paste in Source Code?
- Can I use MingLiU (standard windows vista font file)?
Regards,
Dutch
Last edited by dutch on Mon Nov 03, 2008 2:10 am, edited 2 times in total.
- richard-service
- Posts: 583
- Joined: Tue Oct 16, 2007 8:57 am
- Location: New Taipei City, Taiwan
- Contact:
- richard-service
- Posts: 583
- Joined: Tue Oct 16, 2007 8:57 am
- Location: New Taipei City, Taiwan
- Contact:
Hi
You mean this
Regards,
Richard
You mean this
Code: Select all
DEFINE WINDOW ::oWnd ;
FROM 0, 0 TO 38, 130 ;
TITLE "營運管理系統" ;
MENU ::Build_FW_Menu()
//-------------------------------------------------------------------------//
METHOD Build_FW_Menu() CLASS TMisPawn32
LOCAL oMenu
MENU oMenu
MENUITEM "基本管理"
MENU
MENUITEM "客戶類別資料維護" ; && M000011001
RESOURCE "MN_CUSTTYPE" ;
MESSAGE "執行客戶類別資料維護作業" ;
ACTION ::RunCustType()
MENUITEM "來電類型資料設定" ; && M000011002
RESOURCE "MN_CallPhoneMsf" ;
MESSAGE "執行來電類型資料設定作業" ;
ACTION ::RunCallPhoneMsf()
..........
Regards,
Richard
- kokookao2007
- Posts: 59
- Joined: Thu May 17, 2007 8:27 am
-
- Posts: 454
- Joined: Sun Oct 30, 2005 6:37 am
- Location: Guangzhou(Canton),China
- richard-service
- Posts: 583
- Joined: Tue Oct 16, 2007 8:57 am
- Location: New Taipei City, Taiwan
- Contact:
Dear All,
I've problem when I type Chinese, it show well. But when I change keyboard from Chinese to English, Chinese word is disappear.
Another case is after type Chinese word and save, it shows like Chinese is Unicode and it will be lost after save in ANSI format.
I use notepad to test it.
How can I fix it?
Thanks&Regards,
Dutch
I've problem when I type Chinese, it show well. But when I change keyboard from Chinese to English, Chinese word is disappear.
Another case is after type Chinese word and save, it shows like Chinese is Unicode and it will be lost after save in ANSI format.
I use notepad to test it.
How can I fix it?
Thanks&Regards,
Dutch
- richard-service
- Posts: 583
- Joined: Tue Oct 16, 2007 8:57 am
- Location: New Taipei City, Taiwan
- Contact:
- richard-service
- Posts: 583
- Joined: Tue Oct 16, 2007 8:57 am
- Location: New Taipei City, Taiwan
- Contact:
Dear Richard,
I try as this code but it still shows wrong charactor. Could you test this code and let me know the result pls. Does it show correctly?
Thanks®ards,
Dutch
I try as this code but it still shows wrong charactor. Could you test this code and let me know the result pls. Does it show correctly?
Code: Select all
#include 'Fivewin.ch'
Function Main
local oWnd, oFont
local oTxtFile, nLines, n, cLines, aFonts
aFonts := {}
if file('FONT.INI')
oTxtFile := TTxtFile():New('FONT.INI')
nLines := oTxtFile:RecCount()
for n := 1 to nlines
cLines := oTxtFile:ReadLine()
if n = 6 .or. n = 7 .or. n = 8
aadd( aFonts , if(cLines='.T.',.T.,.F.) )
elseif n = 14
aadd( aFonts , cLines )
else
aadd( aFonts , val(cLines) )
end
oTxtFile:Skip()
next
oTxtFile:Close()
end
DEFINE FONT oFont NAME "Microsoft JhengHei" SIZE 0, -12
oFont:hFont := CreateFont( aFonts )
DEFINE WINDOW oWnd ;
FROM 0, 0 TO 38, 130 ;
TITLE "營運管理系統" ;
MENU Build_FW_Menu()
oWnd:oFont := oFont
ACTIVATE WINDOW oWnd
return nil
//-------------------------------------------------------------------------//
Function Build_FW_Menu()
LOCAL oMenu
MENU oMenu
MENUITEM "基本管理"
MENU
MENUITEM "客戶類別資料維護" ; && M000011001
RESOURCE "MN_CUSTTYPE" ;
MESSAGE "執行客戶類別資料維護作業"
MENUITEM "來電類型資料設定" ; && M000011002
RESOURCE "MN_CallPhoneMsf" ;
MESSAGE "執行來電類型資料設定作業"
ENDMENU
ENDMENU
return oMenu
Dutch
- richard-service
- Posts: 583
- Joined: Tue Oct 16, 2007 8:57 am
- Location: New Taipei City, Taiwan
- Contact:
Hidutch wrote:Dear Richard,
I try as this code but it still shows wrong charactor. Could you test this code and let me know the result pls. Does it show correctly?
Thanks®ards,Code: Select all
#include 'Fivewin.ch' Function Main local oWnd, oFont local oTxtFile, nLines, n, cLines, aFonts aFonts := {} if file('FONT.INI') oTxtFile := TTxtFile():New('FONT.INI') nLines := oTxtFile:RecCount() for n := 1 to nlines cLines := oTxtFile:ReadLine() if n = 6 .or. n = 7 .or. n = 8 aadd( aFonts , if(cLines='.T.',.T.,.F.) ) elseif n = 14 aadd( aFonts , cLines ) else aadd( aFonts , val(cLines) ) end oTxtFile:Skip() next oTxtFile:Close() end DEFINE FONT oFont NAME "Microsoft JhengHei" SIZE 0, -12 oFont:hFont := CreateFont( aFonts ) DEFINE WINDOW oWnd ; FROM 0, 0 TO 38, 130 ; TITLE "營運管理系統" ; MENU Build_FW_Menu() oWnd:oFont := oFont ACTIVATE WINDOW oWnd return nil //-------------------------------------------------------------------------// Function Build_FW_Menu() LOCAL oMenu MENU oMenu MENUITEM "基本管理" MENU MENUITEM "客戶類別資料維護" ; && M000011001 RESOURCE "MN_CUSTTYPE" ; MESSAGE "執行客戶類別資料維護作業" MENUITEM "來電類型資料設定" ; && M000011002 RESOURCE "MN_CallPhoneMsf" ; MESSAGE "執行來電類型資料設定作業" ENDMENU ENDMENU return oMenu
Dutch
Your sample code work fine in my OS.
http://www.fivetech.com.tw/downloads/test-dutch.rar
Regards,
Richard