FiveTech Software tech support forums

Posted: **Wed Nov 03, 2010 10:57 pm**

Hola a todos:

A ver quien me puede ayudar sobre estas cuestiones:

1.- Tengo definido un objeto RichEdit para el campo comentarios, asi se pueden poner determinadas cuestiones como Font grandes y en colores vivos, hasta aqui bien. Pero cuando hago la consulta de la ficha, desactivo todos _, _ se ven sobre fondo blanco, pero en cambio el control RichtEdit me aparece en otro color que supongo que sera el definido por windows. ¿ como puedo asignar el color blanco al objeto RichEdit cuando esta desactivado ?.

Imagen de como queda, con el control RicthEdit desactivado:

2.- Tengo un proceso para mandar e-mails usando CDOSYS, creo recordar que es de Manuel Mercado. Funciona perfectamente usando como SMTP de gmail, excepto que si en el cuerpo del correo contiene una direccion de correo electronico¡, ese correo no llega al destino, si contiene texto, direciones web, etc funciona bien.

Para este proceso uso la clase RichEdit para definir el cuerpo del correo, alguien tiene alguna idea de donde puede venir ese problemilla?, porque es muy curioso.

3.- Todavia tengo pendiente una cuestion sobre los objetos TREE que tengo en este hilo:

http://forums.fivetechsupport.com/viewt ... =6&t=20183

Muchas gracias de antemano:
JLL

Posted: **Thu Nov 04, 2010 8:00 am**

Jll,

Sí que te pasan cosas curiosas:

1.- Yo uso RichEdit sin ese problema, no hago nada especial, por lo que me inclino a algún tipo de configuración de diálogo o ventana o a cómo creas el campo RichEdit (si es desde recursos, etc.). Simplemente lo hago así:

Code: Select all

#include "FiveWin.ch"
#include "RichEdit.ch"
#define COLOR_BTNFACE    15

static oRich, oFont

********************************************************************************************
function EditFicTec( oWndChild, cTextEdit, lModi, cAlias )
********************************************************************************************
   
   local oWnd
   local hRichDLL := LoadLibrary( "riched20.dll" )


   DEFINE DIALOG oWnd FROM 0, 0 TO 300, 937 PIXEL TITLE "Ficha Técnica" OF oWndChild

   @  1, .3 RICHEDIT oRich VAR cTextEdit SIZE 300, 100 OF oWnd
   oRich:SetText( OemToAnsi( cTextEdit ) )
   oRich:lHighLight := .t.
   oRich:lReadOnly := lModi
                     
   ACTIVATE DIALOG oWnd CENTERED ON INIT ( SetChildBar( oWnd, oRich ), oWnd:SetFocus() )
   
   FreeLibrary( hRichDLL )

return nil

2.- Con CDOSYS, puedo enviar en el cuerpo del mensaje lo que sea, hasta direcciones de correo que llega sin problemas, quizás si nos pones el código te podamos echar una mano.

Saludos!

Posted: **Thu Nov 04, 2010 7:18 pm**

Hola triumvirato:

Respectos al envio de correos, no era nada del control RichEdit, ni CDOSYS, sino que era problema de mi servidor de correo que esos correos los recibia como SPAM, y yo lo tengo configurado para no recibirlos, hasta que anoche se me encendio la bombillita de mirar eso, ahora funciona ok.

Sobre el tema de desactivar el objeto que usa el control RichEdit, sigo igual. He probado a usar :lReadOnly, funciona ok en la declaracion, pero si en tiempo de ejecucion cambias el valor no funciona, se queda como lo he declarado al iniciar el dialogo.

El control RichEdit es la 1 vez que lo uso y no lo habia testeado hasta ahora. De momento hay algo que no me funciona bien, lo demas todo ok y la clase esta super bien para programas que queramos ser independientes a usar Word, esta genial.

Muchas gracias por tu ayuda.
Un saludo
JLL

FiveTech Software tech support forums

Necesito una mano sobre 3 temas:

Necesito una mano sobre 3 temas:

Re: Necesito una mano sobre 3 temas:

Re: Necesito una mano sobre 3 temas: