Muy buenas tardes.
Estoy probando la RichEdit, con Fwh 17.09 y Harbour, he cargado la Variable cTxt, con el contenido de unos registros de una Dbf, puedo realizar cambios o actualizaciones sobre el Texto, tales como diferentes Font y Tamaños de Letras en pantalla, pero no logro obtener la variable con el contenido actualizado, para grabarlo en la DBF.
Necesito saber de que forma puedo obtener el contenido actualizado de la variable??
Desde ya muchas gracias.
Atte.
Antonio
Este es el código que estoy usando:
- Code: Select all Expand view
// FWH and FW++ RichEdit sample
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, oRich
local hRichDLL := LoadLibrary( "riched20.dll" )
local lSyntaxHL := .f.
Static cTxt := ""
Static aa
USE DETALLE
go top
WHILE !EOF()
cTxt += deinfec->COD_DET + CHR( 13 )
SKIP
ENDDO
CLOSE
DEFINE DIALOG oDlg RESOURCE "#100"
oRich = TRichEdit():Redefine( 100, { || "" }, oDlg )
oRich:lHighLight = .f.
REDEFINE BUTTON ID 110 ;
ACTION oRich:SetText(cTxt )
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 130 ;
ACTION oRich:SaveToRTFFile( cGetFile( "RTF file (*.rtf) | *.rtf",;
"Please write a filename", "test" ) )
REDEFINE BUTTON ID 998 ACTION ( oRich:GoToLine( 10 ), oRich:SetFocus() )
ACTIVATE DIALOG oDlg CENTERED ;
// ON INIT oRich:AutoURLDetect( .t. )
FreeLibrary( hRichDLL )
return nil