My customer need to use Norwegian for his client name but I don't know how to use it in FWH?
Any help are appreciated.
dutch wrote:Dear Uwe,
I mean the user need to type keyboard (Norwegian) through my program (TGET, TMULTIGET). When user type in MS Word, it works fine with Norwegian character but in my program has shown different character and save different also.
#include "FiveWin.ch"
STATIC oNorwEngl, lEnglNorway, c_path
FUNCTION MAIN()
LOCAL oDlg, oGet, oBtn1, oBtn2, oButtFont
LOCAL cLanguage := "English Oo Ee Aa"
c_path := CURDRIVE() + ":\" + GETCURDIR()
oNorwEngl := TFont():New( "Arial", 0, 20,.F.,.F., 0, 0, 0,.F.,.F.)
oButtFont := TFont():New("Arial",0,-16,.F.,.T.,0,0,0,.T. )
lEnglNorway := .F.
DEFINE DIALOG oDlg FROM 50, 50 TO 400, 600 PIXEL TITLE "Font-Switcher"
@ 10, 20 GET oGet VAR cLanguage OF oDlg SIZE 100, 20 PIXEL COLOR "+W/B" PICTURE "XXXXXXXXXXXXXXX" ;
FONT oNorwEngl UPDATE
@ 90, 40 BTNBMP oBtn1 SIZE 120, 40 OF oDlg 2007 ;
FILENAME c_path + "\Images\Great_britain.bmp" ;
LEFT ;
PROMPT " &English / Norway " ;
FONT oButtFont ;
ACTION ( DeleteObject(oNorwEngl), ;
IIF( lEnglNorway = .F., ; // Engl.
( lEnglNorway := .T., ;
cLanguage := "Norway Oo Ee Aa", ;
oNorwEngl := TFont():New( "ArialNew", 0, 20,.F.,.F., 0, 0, 0,.F.,.F.), ; // Norway
oBtn1:SetFile( c_path + "\Images\Norway.bmp" ) ), ;
( lEnglNorway := .F., ;
cLanguage := "English Oo Ee Aa", ;
oNorwEngl := TFont():New( "Arial", 0, 20,.F.,.F., 0, 0, 0,.F.,.F.), ; // Engl.
oBtn1:SetFile( c_path + "\Images\Great_Britain.bmp" ) ) ), ;
oGet:SetFont( oNorwEngl ), oGet:Refresh() )
oBtn1:cToolTip = { "Language-Switch", "English / Norway", 1, CLR_BLACK, 14089979 }
@ 90, 170 BTNBMP oBtn2 SIZE 80, 40 OF oDlg 2007 ;
FILENAME c_path + "\Images\Exit.bmp" ;
LEFT ;
PROMPT " &Exit " ;
FONT oProgFont ;
ACTION ( oDlg:End() )
oBtn2:cToolTip = { "Exit", "Language-Switch", 1, CLR_BLACK, 14089979 }
ACTIVATE DIALOG oDlg CENTERED
oButtFont:End()
oNorwEngl:End()
RETURN( NIL )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 61 guests