Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How To Localize Data Sources in INTL ?
Message
De
23/12/2001 09:04:59
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Titre:
How To Localize Data Sources in INTL ?
Divers
Thread ID:
00597811
Message ID:
00597811
Vues:
38
Hi,all
How To Localize Data Sources
i have used the xdemo.scx for sample:

I add record to String.dbf
cOriginal cFrench
((Data))John ((Data))JohnFrench


and change for use localization the customer.dbf
FORM1.INIT()

*-- This is cheating <s>
_GENMENU="GENMENUX.PRG"
SET PROC TO INTL
nCallType=1
*-- Localize captions and fonts only
IF TYPE("_SCREEN.oINTL") <> "O"
_SCREEN.AddObject("oINTL", "INTL", 1)
************************************************** the new codes
*-- Set Data localization on
*-- Set 2^2 "ON"
_SCREEN.oINTL.SetConfig( BITSET( _SCREEN.oINTL.GetConfig(), 2) )
*-- Get a handle on the font strategy:
oData= _SCREEN.oINTL.GetStrategy("Data")
*-- We want RecordSource (8)
*-- property localized.
oData.SetConfig( 8)
******************************* end new codes
_SCREEN.oINTL.LoadLanguageCollection()
ENDIF
THIS.LangCombo.RowSource= "_SCREEN.oINTl.Languages"
THIS.LangCombo.RowSourceType= 5 && Array
THIS.LangCombo.ReQuery()
THIS.LangCombo.DisplayValue=_SCREEN.oINTl.Languages[1]
IF THIS.DataSession =2
USE STRINGS IN 0 AGAIN SHARED
ENDIF
RETURN

but when i run xdemo again and change this.langCombo to French
Grin1.column1.text1.value = John (don't changes to JohnFrench)

Thanks
Andrey
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform