FiveTech Software tech support forums

Hi ryugarai27, change your code i this way: aFormat := REGetCharFormat2 ( oRich:hWnd ) If you click on the words, the format in the msgbar ist updated Updated sample (see GetFormat () to check bold and underline) // FWH and FW++ RichEdit sample#include "FiveWin.ch"#include ...

... #include "RichEdit.ch" //----------------------------------------------------------------------------// function Main() local oDlg, oRich local hRichDLL := LoadLibrary( "riched20.dll" ) local lSyntaxHL := .f. DEFINE DIALOG oDlg NAME "Test" oRich = TRichEdit():Redefine( ...

... esto es posible? Desde recursos solo debes agregar el estilo |WS_HSCROLL| al control "RichEdit20A" Desde código solo agrega WS_HSCROLL a oRich:nStyle, también el comando RICHEDIT soporta la cláusula HSCROLL. Con dicho estilo, el control actúa en la forma que has mencionado. Un abrazo ...

Hola, buen día.

Se me ocurre que podrías hacerlo con la TRichedit.

Cargar el archivo de text en el oRich y luego lo hojeas tranquilamente.

Para evitar que sea modificado haces

Code: Select all  Expand view

oRich:lReadOnly:=.t.

Mira los samples de la richedit, ahí encontrarás todo.

Rolando

hi, When I execute " pdescricao: = oRich: SaveAsRTF () " the following error is occurring: xb_free called with null to pointer DEFINE DIALOG oDlg RESOURCE "SAC170IA" oRich := TRichEdit():Redefine( 103, { || "" ...

Hola Jairo a mi me pasaron este dato, quizas te sirva oRich = TRichEdit():Redefine( 101, { || "" }, oDlg ) oRich:LoadFromRTFFile(xfileRtf ) && Lee el archivo Rtf * Cambio de color oRich:bGotFocus:= {||oRich:SetBkGndColor(nRGB(0,100,250)) } ...

... y te permite hacer una edicion simple con el uso de Richedit,, como veras hau dos funciones cRTF_FileMime(xTextoMiMe) y otra.. SaveRTF_FileMime(oRich) que me permiten crear archivos temporales de trabajo para guardar el valor del campo binario a uno de texto ,, , pues yo uso Mysql y es necesario ...

Hola Jairo a mi me pasaron este dato, quizas te sirva oRich = TRichEdit():Redefine( 101, { || "" }, oDlg ) oRich:LoadFromRTFFile(xfileRtf ) && Lee el archivo Rtf * Cambio de color oRich:bGotFocus:= {||oRich:SetBkGndColor(nRGB(0,100,250)) } ...

Hola Jairo a mi me pasaron este dato, quizas te sirva oRich = TRichEdit():Redefine( 101, { || "" }, oDlg ) oRich:LoadFromRTFFile(xfileRtf ) && Lee el archivo Rtf * Cambio de color oRich:bGotFocus:= {||oRich:SetBkGndColor(nRGB(0,100,250)) } oRich:bLostFocus:= ...

Solucionado,

oRich:bGotFocus:= {||oRich:SetBkGndColor(nRGB(0,100,250)) }

oRich:bLostFocus:= {||oRich:SetBkGndColor(nRGB(255,255,255)) }


Rolando

Buenas Noches,

Necesito poner un color de fondo en un RichEdit y hago esto:

- oRich:SetBkGndColor(nRGB(0,100,250))

Pero no funciona, sigue con el fondo blanco.

Uso xHarbour - FWH 2.7

¿Como puedo hacerlo?

Gracias.

Rolando

Gracias por responder, pero no es lo que quiero hacer.

Lo implementé con un RichEdit al cual le puedo indicar el máximo de caracteres a recibir (oRich:nRTFSize := 250) y luego paso el texto del rich directamente al campo del registro.

Gracias - Moito obrigado

Rolando

Gracias Antonio, pero la idea es hacerlo sin abrir un oRich.

Rolando

Antonio, Efectivamente el ejemplo que me envias funciona correctamente. Lo que yo necesito hacer es cambiar a la línea deseada pero sin que el oRich esté en foco. ¿Para qué?. La respuesta es que agregué a la clase un método que llamé findall() y que cubre una necesidad para mi proyecto y es la ...

Rolando,

Este cambio en samples\TestRich.prg funciona correctamente aqui:

REDEFINE BUTTON ID 998 ACTION ( oRich:GoToLine( 10 ), oRich:SetFocus() )