General information
Category:
Third party products
The first thing I recommend you do is get yourself a legal copy of INTL. That way you'll get a manual and free technical support from me.
The number of registered INTL users we have in Russia is exactly zero.
**--** Steve
>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
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only