Gracias maestro, ahora ya puedo ver en português.
Erros:
Inglés:
File = Arquivo ó Ficheiro(Português de Portugal)
Espanhol:
Fecha = Data
Inglés:
Language = Idioma ó Linguagem.
Cual és la mejor resolución? Uso: 1024 x 768 y no está bién la pantala del fivedit.exe
Saludos.
João,
> File = Arquivo ó Ficheiro(Português de Portugal)
ok, arreglado. gracias
> Espanhol: Fecha = Data
Que palabra está en inglés ? "Date" ?
> Cual és la mejor resolución? Uso: 1024 x 768 y no está bién la pantala del fivedit.exe
Fivedit.prg ha sido programado en 1280 x 800, pero lo modificaremos para que se ajuste al mayor número de resoluciones posibles.
De todas formas, lo ideal es puesto que todo el código fuente está disponible, que lo modifiqueis y que luego compartamos los mejores cambios que se le vayan haciendo 
Espanhol: Fecha = Data
Que palabra está en inglés ? "Date" ?
No maestro:
Está escrito en espanhol donde se cambai el idioma -> FECHA en português és Data.
Gracias, saludos.
João,
Puedes capturar la pantalla y mostrármelo ? gracias
REDEFINE COMBOBOX ::nLanguage ;
ITEMS { "English", "Spanish", "French",;
"Portugese", "German", "Italian" } ; /* Which language is Windows set to USE ? */
DO CASE
CASE csLanguage == "DEU" //; cMsg :="German [deu] "
CASE csLanguage == "ENU" //; cMsg :="US English [enu] "
CASE csLanguage == "ESN" //; cMsg :="Modern Spanish [esn]"
CASE csLanguage == "ESP" //; cMsg :="Castilian Spanish [esp]"
CASE csLanguage == "FRA" //; cMsg :="French [fra]"
CASE csLanguage == "ITA" //; cMsg :="Italian [ita]"
CASE csLanguage == "PTG" //; cMsg :="Portuguese [ptg]"
REDEFINE COMBOBOX ::nLanguage ;
ITEMS { "Inglês", "Espanhol", "Francês",;
"Português", "Alemão", "Italiano" }
ENDCASEJoão,
De donde podemos obtener el valor de csLanguage ?
Maestro, ahora si!!! Está perfecto la pantala en português,
Avante!! Adelante!! jejejejejeje
Muchas gracias.
// Using Windows .INI files FOR configuration inFormation ê
/*
File Name : TESTINI1.PRG
Description: This applications shows various ways to USE both
Win.ini and private .INI files.
Author : Chris Welch / Hummingbird Software
Modified :
08/28/95 : Code formatted, Grokked & verified by QA Team
Tested by QA under FiveWin 1.9
*/
#INCLUDE "FiveWin.ch"
//-------------------------------------------------------------//
FUNCTION Main()
LOCAL cIniFile := GetWinDir()+"\FiveWin.ini"
LOCAL cMSG , cVer , csLanguage , cCurrency
LOCAL lIsMAPI , cDateFmt
LOCAL cInc , cObj , cLib
LOCAL nExecs := ;
val( GetPvProfString( "TestIni2", "Executions", "0", ;
cIniFile ) ) + 1
IF GetPvProfString("FiveWin","ThreeD","1",cIniFile ) == "1"
SET _3DLOOK ON
ENDIF
/* Get Windows language setting from Win.ini */
csLanguage := ;
upper(GetProfString( "intl" ,"sLanguage" , "ENU" ) )
/* What Currency setting are we using */
cCurrency := GetProfString( "intl" ,"sCurrency" , "$" )
/* Is a MAPI eMail package installed ? */
lIsMAPI := iif(GetProfString("MAIL","MAPI","0")== "1",.T.,.F.)
/* What date format are we using ? */
cDateFmt := ;
upper(GetProfString( "intl","sShortDate","MM/DD/YY" ))
/* Which language is Windows set to USE ? */
DO CASE
CASE csLanguage == "DAN" ; cMsg :="Danish [dan] "
CASE csLanguage == "DEU" ; cMsg :="German [deu] "
CASE csLanguage == "ENG" ; cMsg :="Int. English [eng]"
CASE csLanguage == "ENU" ; cMsg :="US English [enu] "
CASE csLanguage == "ESN" ; cMsg :="Modern Spanish [esn]"
CASE csLanguage == "ESP" ; cMsg :="Castilian Spanish [esp]"
CASE csLanguage == "FIN" ; cMsg :="Finnish [fin]"
CASE csLanguage == "FRA" ; cMsg :="French [fra]"
CASE csLanguage == "FRC" ; cMsg :="French Canadian [frc]"
CASE csLanguage == "ISL" ; cMsg :="Icelandic [isl]"
CASE csLanguage == "ITA" ; cMsg :="Italian [ita]"
CASE csLanguage == "NLD" ; cMsg :="Dutch [nld] "
CASE csLanguage == "NOR" ; cMsg :="Norwegian [nor]"
CASE csLanguage == "PTG" ; cMsg :="Portuguese [ptg]"
CASE csLanguage == "SVE" ; cMsg :="Swedish [sve]"
ENDCASE
/* Update FiveWin.ini with your Current Clipper Environment */
cObj := iif( !empty( getenv("OBJ") ) , ;
getenv("OBJ") , ;
"c:\clipper5\obj;c:\fivewin\obj" )
cLib := iif( !empty( getenv("LIB") ) , ;
getenv("LIB") , ;
"c:\clipper5\lib;c:\fivewin\lib" )
cInc := iif( !empty( getenv("INCLUDE") ) , ;
getenv("INCLUDE") , ;
"c:\clipper5\include;c:\fivewin\include" )
WritePProString( "PATH" , "OBJ" , cObj , cIniFile )
WritePProString( "PATH" , "LIB" , cLib , cIniFile )
WritePProString( "PATH" , "INCLUDE" , cInc , cIniFile )
/* Show what we've found out */
MsgInfo( "You have run this program "+ltrim(str(nExecs,4))+ ;
" times" + CRLF + CRLF + ;
"Using " + cMsg + CRLF + CRLF + ;
"Currency is set to " + cCurrency + CRLF + CRLF + ;
"You "+iif( lIsMAPI ,"","do not ")+ "have MAPI enabled"+ ;
CRLF + CRLF + ;
"Date format is "+cDateFmt , ;
FWVERSION )
/* Update the number of executions */
WritePProString( "TestIni2", "Executions", ltrim(str(nExecs)) , ;
cIniFile )
RETURN( NIL )
//-------------------------------------------------------------//Antonio Linares wrote:Cristobal,
Estas líneas como saben sobre que margen actuar ?
::Send( SCI_STYLESETBACK, STYLE_LINENUMBER, CLR_GRAY )
::Send( SCI_STYLESETFORE, STYLE_LINENUMBER, 0 )
::SendEditor( SCI_STYLESETFONT , STYLE_LINENUMBER , ::oFntLin:cFaceName )
::SendEditor( SCI_STYLESETSIZE , STYLE_LINENUMBER , ;
Abs( Int( ::oFntLin:nHeight)*1 ) )Antonio:
Con el debido respeto y sin intención de ofender, en mi opinión, Cristóbal y tú están duplicando esfuerzos
con una misma intención. No sería mejor unir esfuerzos en un bien común?.
Saludos
