FiveTech Software tech support forums

... SpanishStr", "FrenchStr", nil, "GermalStr", "ItalianStr" } )

y desde tu aplicación usar FWString( "SpanishStr" )

El idioma a mostrar se selecciona con FWSetLanguage( nLanguage )

FWH ya incluye muchas palabras y frases ya traducidas que puedes usar. Revisa el fichero source\function\strings.prg

... May 2019" and before converte the date into this string with Convertidata(dTemp) function then I must converte to date with Conv_Textdate( cDate, nLanguage )

If i insert { dDataInizialeStagione},{ dDataFinaleStagione}
instead of {^ 2019/05/15 }, {^ 2019/05/30 } make error



then the calendar is ...

Este es el codigo para guardar las preferencias.

function SavePreferences()

local oIni

DEFAULT nLanguage := FWSetLanguage()

INI oIni FILE GetEnv( "APPDATA" ) + "\fivedbu.ini"
SET SECTION "Default" ENTRY "RDD" OF oIni TO cDefRdd
SET SECTION "Default" ENTRY "Shared" OF oIni TO lShared
SET ...

... fivedbu.prg

@ 5.0, 1.5 SAY FWString( "Language" ) OF oDlg // You use FWString( cText ) instead of cText

To retrieve the default language id:

nLanguage = FWSetLanguage()

To use a different language:
FWSetLanguage( nLanguageId )

where 1 is English, 2 is Spanish, 3 is French, 4 is Portuguese, 5 ...

... AS NUMERIC INIT 42
DATA lSelectOK AS LOGICAL INIT .T.
DATA bCambioMes //Block a ejecutar cuando cambie el mes...
DATA bFestivos //Bingen
DATA nLanguage //Bingen
DATA aMeses AS ARRAY INIT ARRAY(12) //Bingen
DATA nLastDay AS NUMERIC INIT 1

// Datos relacionados con la fecha seleccionada.
DATA ...

Hola,

En una clase, asignaba ::oFont así:


METHOD New ( nTop, nLeft, nWidth, nHeight, oWnd, oFont, nLANGUAGE ) CLASS TMiCalendario
DEFAULT nTop:=5, nLeft:=5,nWidth:=120,nHeight:=120 //Bingen
DEFAULT nLanguage := L_SPANISH
[...]
::oWnd := oWnd
::oFont := oFont



Ahora, ::oFont:SetFont( oFont ...

... 41; } ) end return nil


the function Preferences is modify with this


because I need to modify this line ON CHANGE ( FWSetLanguage( nLanguage ), oApp:oWndMain:SetMenu( oApp:BuildMenu() ), oApp:BuildBtnBar() )

function Preferences()   local oDlg   DEFINE ...

static nLanguage := 0 // Initially will be set by LanguageID() function
// 1 English, 2 Spanish, 3 French, 4 Portugese, 5 German, 6 Italian

static aStrings := { ;
{ "Attention", "Atención", "Attention", "Atenção", "Achtung", "Attenzione" }, ;
{ "PDF Plugin Error", "Error del plugin de PDF", "Erreur ...

richard-service wrote:Antonio,
May I set nLanguage 4 = Traditional Chinese?

It is possible to add any language dynamically by calling
FWAddLanguage( aTranslates ) --> nNewLangID

Antonio,
May I set nLanguage 4 = Traditional Chinese?

... T.,.F.)


// Register my application into Twain application
METHOD Register()
LOCAL nMaiorNum := 1
LOCAL nMinorNum := 0 // Result -> 1.0
LOCAL nLanguage := 0
LOCAL nCountry := 0
LOCAL cVersion := "1.0"
LOCAL cManifact := "The Genius"
LOCAL cFamily := "Digitizer"
LOCAL cProduct := StrTran ...

... Registra la aplicacion
***************************************************************************
METHOD Register( nMajor ,nMinor,nLanguage,nCountry,cVersion,cName,cFamily,cProduct ) CLASS TSCAN32

TW_REGISTERAPP( nMajor ,nMinor,nLanguage,nCountry,;
cVersion,cName,cFamily ...

... hBmp := WndBitmap( Self:hWnd )
hDib := DibFromBitmap( hBmp )
DibWrite( cFile, hDib )
GloBalFree( hDib )
DeleteObject( hBmp )
IF ::nLanguage=2
MsgInfo("La imagen ha sido grabada.","Información")
ELSE
MsgInfo("Graph image save.","Info")
ENDIF
lChDir(cDir)

RETURN ( FILE( cFile ...

... int nMajorNum, // major and incremental revision of application.
int nMinorNum, // e.g. version 4.5: nMajorNum = 4, nMinorNum = 5
int nLanguage, // (human) language (use TWLG_xxx from TWAIN.H)
int nCountry, // country (use TWCY_xxx from TWAIN.H)
LPSTR lpszVersion, // version info string ...

... 3) .and.;
nCol > (::nCol1 + 3) .and.;
nCol <= (::nCol2 - 3) ), .f., .t.)

Constructor

METHOD New (nTop, nLeft, nWidth, nHeight, oWnd, oFont, nLANGUAGE ) CLASS TMiCalendario
DEFAULT nTop:=5, nLeft:=5,nWidth:=120,nHeight:=120 //Bingen
DEFAULT nLanguage := L_SPANISH

::nContador := 1 ...