FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ayuda Urgente con Richedi5 SOLUCIONADO
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Ayuda Urgente con Richedi5 SOLUCIONADO
Posted: Sun Feb 24, 2019 10:51 PM
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 (fw): Select all Collapse
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 (fw): Select all Collapse
#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
FWH 22.10 - HARBOUR - PELLES C
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ayuda Urgente con Richedi5
Posted: Sun Feb 24, 2019 11:07 PM

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

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

&

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Urgente con Richedi5
Posted: Mon Feb 25, 2019 12:17 AM

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.

FWH 22.10 - HARBOUR - PELLES C
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ayuda Urgente con Richedi5
Posted: Mon Feb 25, 2019 12:45 AM
Utilizas esta function al principio de tu aplicaci贸n en producci贸n?


FWSetLanguage( 2 )
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Urgente con Richedi5
Posted: Mon Feb 25, 2019 01:02 AM
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 (fw): Select all Collapse
聽 聽 聽 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
FWH 22.10 - HARBOUR - PELLES C
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Ayuda Urgente con Richedi5
Posted: Mon Feb 25, 2019 01:38 AM
Antonio, creo que no me has entendido por donde van mis comentarios
El problema es que en el c贸digo del men煤 aparece
Code (fw): Select all Collapse
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 (fw): Select all Collapse
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 (fw): Select all Collapse
MENUITEM "Properties"


贸 as铆, dependiendo del lenguaje que desees

Code (fw): Select all Collapse
MENUITEM "Propiedades"
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda Urgente con Richedi5
Posted: Mon Feb 25, 2019 02:23 AM
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 (fw): Select all Collapse
聽 聽 聽FWAddString( { "Properties", "Propiedades", nil, nil, nil } )

聽 聽 聽REQUEST HB_Lang_ES
聽 聽 聽REQUEST HB_CODEPAGE_ESWIN
聽 聽 聽HB_LangSelect("ES")

聽 聽 聽FWSetLanguage( 2 )


Muchos Saludos.
Antonio
FWH 22.10 - HARBOUR - PELLES C

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions