Gracias Antonio.
Ya no tengo ese problema. Pero tengo otro. Tal vez esten relacionados. Este codigo me funcionaba bien con xharb 0.99 y fw2.5:
- Code: Select all Expand view
cFile := WINDIR()+"t" + strZero( nRandom(), 6 ) + ".rtf"
REDEFINE RCHEDIT ::oTrGrss VAR ::oGrss:VarText ID 100 OF ::oFld:aDialogs[ 2 ] FONT ::oFont
MemoWrit( cFile, ::oGrss:VarText )
::oTrGrss:LoadFromRtfFile( cFile )
::oFld:aDialogs[ 1 ]:SetControl( ::oTrGrss )
::oTrGrss:lReadOnly := ::lReadOnly
::oTrGrss:oDbf := ::oGrss
::oFld:aDialogs[ 1 ]:Cargo := "TRICHEDIT"
cFile := WINDIR()+"t" + strZero( nRandom(), 6 ) + ".rtf"
REDEFINE RCHEDIT ::oTrDg VAR ::oDg:VarText ID 100 OF ::oFld:aDialogs[ 2 ] FONT ::oFont
MemoWrit( cFile, ::oDg:VarText )
::oTrDg:LoadFromRtfFile( cFile )
::oTrDg:oDbf := ::oDg
::oFld:aDialogs[ 2 ]:SetControl( ::oTrDg )
::oTrDg:lReadOnly := ::lReadOnly
::oFld:aDialogs[ 2 ]:Cargo := "TRICHEDIT"
Ahora cuando ejecuta recibo este run time error:
- Code: Select all Expand view
Application
===========
Path and name: F:\mp\PathLabs.exe (32 bits)
Size: 2,821,120 bytes
Time from start: 0 hours 0 mins 7 secs
Error occurred at: 03/03/2006, 19:20:28
Error description: Error FiveWin/2 Duplicated Id: No: 100
No debiera quejarse, pues cada control se encuentra dentro un folder diferente.
Que piensas?
Reinaldo.