Ayuda Urgente con Richedi5 SOLUCIONADO

[remtec]

Amigos Muy buenas tardes.

Despues de varios días de pruebas del editor " Richedi5 ", con la ayuda del foro, logro funcionar muy bien, tanto para enriquecer el texto Diferentes tipos de Font y diferentes colores, guarda muy bien en campo memo. Por lo que decidí incorporarlo al Sistema

Ahora que lo he incorporado a mi Sistema, todo bien, hasta trate de enriquecer aplicando algún tipo de Font especial, para este caso se debe hacer marcando el texto y luego dar botón derecho para que muestre el menú para poder cambiar tipo de letra, pero a diferencia del programa probado antes de agregarlo, ahora muestra un mensaje que es muy molesto y no se a que se debe:

Mansaje mostrado:

Code: Select all  Expand view

Informatión.
                  La Cadena: " Properties " para el idioma ES
                  definida en: TRICHEDIT5:RBUTTONDOWN linea 1780 in.\source\classes\TRICHED5.PRG
                  no está traducida en las cadenas de FWH
                  Por favor incluir en FWH\source\function\strings.prg
 

Código del PRG:

Code: Select all  Expand view

#include "FiveWin.ch"
#include "richedi5.ch"

function Act_eco1(Folio1)

   local oDlg
   local oRich
   //
   //local hRichDLL  := LoadLibrary( "riched20.dll" )
   //
   local lSyntaxHL := .f.
   local cTxt      := ""
     Local oFont1,oFont2,oSay1,oSay2,oSay3,oSay4
     Sele Geinfec
     Seek Folio1
     if !eof()
         MsgStop(" ESTE INGRESO YA FUE INFORMADO "+alltrim(str(Folio1,10)))
             Return .f.
     endif

   // Trozo de codigo para realizar prueba temporal
   use exa
         go top

     if eof()

                 cTxt =  "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2\fcharset0 Microsoft Sans Serif;}{\f1\fnil\fcharset0 Microsoft Sans Serif;}}" + ;
             "{\colortbl ;\red128\green0\blue0;\red0\green0\blue0;\red0\green128\blue0;\red255\green0\blue0;}" + ;
             "\viewkind4\uc1\pard\cf1\b\i\f0\fs28 JH\cf2\b0\i0  - Sue let me \cf3 know\cf2  that their rep had noticed that they were not performing the yearly \cf4\ul\b\fs24 escrow\cf2\ulnone\b0\fs28  analysis.\cf0\f1\fs17\par" + ;
             "}"
        else
                    cTxt=exa->cod_det
                    close
        endif
        close
        Define Font oFont1 Name "Curier New" Size 0,16  BOLD
      Define Font oFont2 Name "Curier New" Size 0,18  BOLD

        Define Font oFont  Name "Courier new" Size 0,22   BOLD

     DEFINE DIALOG oDlg RESOURCE "#1011"     Title  "ACTUALIZA INFORME"
   oDlg:lHelpIcon   := .F.

     REDEFINE SAY oSay1  ID 4003 VAR Folio1 Pict "999999999"     OF oDlg FONT oFont2
     REDEFINE SAY oSay2  ID 4005 VAR exaeco->fec_emi Pict "@d"    OF oDlg FONT oFont2
     REDEFINE SAY oSay3  ID 4007 VAR date()          Pict "@d"    OF oDlg FONT oFont2
     REDEFINE SAY oSay4  ID 4009 VAR trim(exaeco->nom_pac) Pict "@!"    OF oDlg FONT oFont2
        */

        oRich := TRichEdit5():Redefine( 4001, bSETGET( cTxt ), oDlg )

     REDEFINE BTNBMP ID 153 Resource "GRABA" OF oDlg TOOLTIP "Graba Informe"  TRANSPARENT ADJUST 2007;
                         ACTION (oDlg:END())

     REDEFINE BTNBMP ID 4012 Resource "#8034" OF oDlg TOOLTIP "Imprime Informe"  TRANSPARENT ADJUST 2007;
                         ACTION (oDlg:END())

     REDEFINE BTNBMP ID 152 Resource "#8004" OF oDlg TOOLTIP "Volver a Lista de Pacientes" TRANSPARENT ADJUST 2007;
                         ACTION (oDlg:END())


   ACTIVATE DIALOG oDlg CENTERED ;  //
      ON INIT ( oRich:LoadRtf( cTxt ), oRich:PostMsg( WM_KEYDOWN, VK_HOME, 0 ) ) ; //oRich:SetText( cTxt ) ;  //
      VALID ( cTxt := oRich:SaveAsRTF(), .T. ) // oRich:GetText(), .T. )


return cTxt


 

Esperando por su ayuda les saluda muy atte.

Antonio

[cnavarro]

viewtopic.php?f=3&t=36331#p216717

FWAddString( { "Properties", "Propiedades", nil, nil, nil } )

[remtec]

Hola C. Navarro

Como siempre presente, muchas gracias.

La verdad que tu link contiene demaciada información, termine mareandome mucho mas.

Mi duda es super simple, porque Cuando pruebo este PRG solo y con el mismo texto, no se produce este mensaje desagradable, pero al integrarlo al sistema, el mismo PRG y mismo texto, presenta este mensaje, realmente cuesta avanzar.

Espero poder solucionar este problema, cuando ya pensaba que habia encontrado la solución, aparece esto.

Saludos
Antonio.

[cnavarro]

Utilizas esta function al principio de tu aplicación en producción?

FWSetLanguage( 2 )

[remtec]

Hola C. Navarro

Lamentablemente no funciona da el mismo error.

Aunque ya lo habia intentado antes, pero tenia la duda, lo hice como me indicas, da el mismo mensaje.

Me parece extraño, que si lo compilo solo ell prg, funciona, pero si lo incorporo al Sistema, da este error.

He vuelto a realizar cambios, pero modifique el 2 por 1 y funciono, el mensaje ya no se muestra, quedo con mas dudas ahora, ya que el Texto que estoy probando se encuentra escrito en Españoll:

Code: Select all  Expand view

      REQUEST HB_Lang_ES
     REQUEST HB_CODEPAGE_ESWIN
     HB_LangSelect("ES")

     FWSetLanguage( 1 )     <---- Esto que tu me indicastes por 2 que corresponde a Español, lo cambie a 1 y  funciono.

 

Saludos.
Antonio

[cnavarro]

Antonio, creo que no me has entendido por donde van mis comentarios
El problema es que en el código del menú aparece

Code: Select all  Expand view

MENUITEM FWString( "Properties" )
 

Evidentemente, si seleccionas el idioma inglés ( 1 ), no da error, pero si seleccionas el ( 2 )->Español, como esa cadena no está incluída dentro del programa STRING.PRG de Fivewin, es el motivo de que te aparezca el mensaje, ya que no encuentra la traducción.
Por eso te preguntaba si estabas utilizando la asignación de lenguaje al principio de tu aplicación, y, por el código que adjuntas, si
Cómo puedes solucionarlo?
1)
Utilizando la function antes de la selección de lenguaje, prueba asi

Code: Select all  Expand view

FWAddString( { "Properties", "Propiedades", nil, nil, nil } )
 

2) Modificando el programa STRING.PRG, y añadirlo a tu proyecto

3) Modificando el programa de la clase TRICHED5.PRG y añadirlo a tu proyecto

Code: Select all  Expand view

MENUITEM "Properties"
 

ó así, dependiendo del lenguaje que desees

Code: Select all  Expand view

MENUITEM "Propiedades"
 

[remtec]

Hola C- Navarro.

Grande Maestro, esta claro que te he dado mucho trabajo, siempre atento a ayudame.

Infinitas grascias.

Con el Código puesto de esta forma en el programa Principal, FUNCIONO PERFECTO:

Code: Select all  Expand view

     FWAddString( { "Properties", "Propiedades", nil, nil, nil } )

     REQUEST HB_Lang_ES
     REQUEST HB_CODEPAGE_ESWIN
     HB_LangSelect("ES")

     FWSetLanguage( 2 )
 

Muchos Saludos.
Antonio