Hi All,
Below code snippet loads an RTF file. I want to automatically manipulate the contents, insert/delete some text on the control automatically ( within the program, much as like typing the words manually ). But I can't find any function to insert text automatically any words on a richedit control, and without losing the format. When I use :SetText() function, it replaces all the contents of the control.
What i needed is to insert text without losing the current contents, and the inserted text will have the format of the text it precedes...
Hope somebody encountered a solution for this....thanks.
--------------------testrich.prg----------------------------------
// FWH and FW++ RichEdit sample
include "FiveWin.ch"
include "Constant.ch"
include "WColors.ch"
include "RichEdit.ch"
STATIC oMsg, oLen, oRow, oCol
//----------------------------------------------------------------------------//
function Main()
local oDlg, oRich
local hRichDLL := LoadLibrary( "riched32.dll" )
local lSyntaxHL := .f.
local aF, aF2
DEFINE DIALOG oDlg NAME "Test"
oRich = TRichEdit():Redefine( 100, { || "" }, oDlg )
oRich:lHighLight = .f.
REDEFINE BUTTON ID 110 ;
ACTION oRich:SetText( MemoRead( "TestRich.prg" ) )
REDEFINE CHECKBOX lSyntaxHL ID 115 OF oDlg ;
ON CHANGE ( oRich:lHighLight := lSyntaxHL,;
oRich:SetText( oRich:GetText() ) )
REDEFINE BUTTON ID 120 ;
ACTION oRich:LoadFromRTFFile( cGetFile( "RTF file (*.rtf) | *.rtf" ) )
REDEFINE BUTTON ID 998 ACTION ( Test( oRich, oDlg ) )
ACTIVATE DIALOG oDlg CENTERED;
ON INIT ( SendMessage( oRich, EM_GETAUTOURLDETECT ) )
FreeLibrary( hRichDLL )
return nil
//----------------------------------------------------------------------------//
function Test( oRich, oDlg )
IF oRich:IsSelection()
oRich:SetText( "test" + cvaltochar(oRich:GetSel()) )
ELSE
Msginfo( 'Nothing selected! ')
END
RETURN ( nil )
----------------------testrich.rc------------------------------------------
include "......\include\winapi.ch"
define IDC_EDIT1 101
Test DIALOG 41, 64, 409, 229
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Testing the RichEdit control"
FONT 8, "MS Sans Serif"
{
CONTROL "", 100, "RichEdit20A", 4100 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 6, 12, 398, 163
PUSHBUTTON "&Load text file", 110, 5, 179, 50, 16
CHECKBOX "Activate syntax highlight", 115, 65, 182, 92, 11, BS_AUTOCHECKBOX | WS_TABSTOP
PUSHBUTTON "L&oad RTF file", 120, 162, 179, 50, 16
PUSHBUTTON "&End", IDCANCEL, 290, 179, 50, 16
PUSHBUTTON "&Test", 998, 354, 179, 50, 16
}
