FiveTech Software tech support forums

Code: Select all  Expand view

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

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
 

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

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 )

Code: Select all  Expand view

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