Presentando fivedit de FiveTech

[karinha]

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.

[Antonio Linares]

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

[karinha]

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.

[Antonio Linares]

João,

Puedes capturar la pantalla y mostrármelo ? gracias

[karinha]

Pantala principal, erros en Idioma português(BR)

File = Arquivo

Tercero Boton:

Fecha = Data ó se és <Cerrar> en espanhol, en português, és <Fechar> - Close en Inglés.

Project = Projeto

http://www.4shared.com/photo/Lg3u41Joba/FIVEDIT.html



Gracias, saludos.

[karinha]

Language = Idioma ó Linguagem

http://www.4shared.com/photo/CpXFeHMbce/fivedit2.html



Saludos.

[Antonio Linares]

João,

Arreglado. Aqui tienes el nuevo fivedit:

https://bitbucket.org/fivetech/fivewin-contributions/downloads/fivedit.zip

Muchas gracias!

[karinha]

Gracias maestro, la pantala está cuasi perfecta en português del Brasil:

Solo falta cambiar el primer item del menu donde está escrito: <File> - archivo en espanhol.

El correto és: <Arquivo> ó <Ficheiro>(para portugues de portugal). No me gusta português de portugal. jejeje

http://www.4shared.com/photo/jugmNtrQba/fivedit3.html



Gracias, saludos.

[Antonio Linares]

João,

Arreglado, muchas gracias!

https://bitbucket.org/fivetech/fivewin-contributions/downloads/fivedit.zip

[karinha]

Maestro una idea, se posible:

en lugar de:

Code: Select all  Expand view

   REDEFINE COMBOBOX ::nLanguage ;
      ITEMS { "English", "Spanish", "French",;
              "Portugese", "German", "Italian" } ;
 

Podria ser:

Code: Select all  Expand view

   /* 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" }

   ENDCASE
 

Gracias, saludos.


[Antonio Linares]

João,

De donde podemos obtener el valor de csLanguage ?

[karinha]

Maestro, ahora si!!! Está perfecto la pantala en português,

Avante!! Adelante!! jejejejejeje

Muchas gracias.

[karinha]

No tengo indéa maestro y no recuerdo de dónde saqué este ejemplo:

Code: Select all  Expand view

// 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 )
//-------------------------------------------------------------//
 

[cnavarro]

Cristobal,

Estas líneas como saben sobre que margen actuar ?

::Send( SCI_STYLESETBACK, STYLE_LINENUMBER, CLR_GRAY )
::Send( SCI_STYLESETFORE, STYLE_LINENUMBER, 0 )

Antonio, eso es por el tipo de margen que marca el STYLE_LiNENUMBER y que hemos definido anteriormente
Recuerda cambiar el 1 por el 0 en la definicion del margen de numero de linea
Aqui te pongo como cambiar el Font para ese margen

Code: Select all  Expand view

      ::SendEditor( SCI_STYLESETFONT , STYLE_LINENUMBER , ::oFntLin:cFaceName )
      ::SendEditor( SCI_STYLESETSIZE , STYLE_LINENUMBER , ;
                    Abs( Int( ::oFntLin:nHeight)*1 ) )
 

[Armando]

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