Antonio,
there is a colleague who modify this program in such a way that it works in the Chinese language?
I can not understand Whether it is possible
Many Thanks
Marco
#include "fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL oSay , cSay := "Chinese Text "
LOCAL oGet1 , cGet1 := SPACE( 20 )
LOCAL oGet2 , cGet2 := SPACE( 20 )
LOCAL oBut1 , oBut2
IF !FILE( "TESTCHINA.DBF" )
DBCREATE( "TESTCHINA" , { { "CINESE1", "C", 20, 0 } , { "CINESE2", "C", 20, 0 }} )
ENDIF
USE testchina
GO BOTTOM
cGet1 := field->cinese1
cGet2 := field->cinese2
DEFINE DIALOG oDlg
@ 1 , 1 SAY oSay PROMPT cSay OF oDlg
@ 2 , 1 GET oGet1 VAR cGet1 OF oDlg
@ 3 , 1 GET oGet2 VAR cGet2 OF oDlg
@ 3 , 1 BUTTON oBut2 PROMPT "WRITE" ACTION write_dbf( cGet1 , cGet2 )
@ 3 , 10 BUTTON oBut1 PROMPT "PRINT" ACTION MsgInfo( "Print get content" )
ACTIVATE DIALOG oDlg
CLOSE DATABASE
RETURN NIL
FUNCTION WRITE_DBF( cGet1 , cGet2 )
APPEND BLANK
REPLACE field->cinese1 WITH cGet1
REPLACE field->cinese2 WITH cGet2
RETURN NIL