Hace tiempo pregunte por el control RICHEDITBOX
viewtopic.php?f=24&t=2591&hilit=RICHEDITBOX
pero no pude hacer algo en concreto y lo deje por la paz.
Maximiliano (gracias!) me envio un fuente del RICHEDITBOX de MiniGui Ext. en donde
viene el siguiente código donde veo que el control tiene una propiedad "RichValue"
que creo es la que permite grabar a archivo con formato RTF.
Cuando yo grabo con "MemoWrit( c_File, Form_1.Edit_1.Value )" se pierde todo el formato y me deja solo texto.
Es posible que este control en HMG pueda manejar esta propiedad ?
Por otro lado, hoy al ver el fuente del DBA, en el primer archivo que abrí, vi una funcion de esgici llamada DBAAbout() dondeif Upper(AllTrim(SubStr(c_File, Rat('.',c_File) + 1))) == 'RTF'
MemoWrit( c_File, Form_1.Edit_1.RichValue )
else
MemoWrit( c_File, Form_1.Edit_1.Value )
endif
maneja un control RICHEDITBOX, me puse a analizarlo y por pura deduccion saque lo siguiente:
Ahora ya puedo armar un codigo RTF mas facilmente pero me fanta grabarlo.
----------------------------------------------------------------------------------------------------------
Hello
Long ask for the RICHEDITBOX
viewtopic.php?f=24&t=2591&hilit=RICHEDITBOX
but I could not do something concrete and leave it for peace.
Maximiliano (thanks!) sent me a Source of MiniGUI Ext RICHEDITBOX where
comes the following code where I see that the control has a property "RichValue"
I think that is what enables recording to RTF file.
When I record with "MEMOWRIT (c_File, Form_1.Edit_1.Value)" all the formatting is lost and leave me alone text.
It is possible that this control can handle HMG this property?
Moreover, today to see the source of DBA, the first file I opened, I saw a function called Esgici DBAAbout () whereif Upper (alltrim (substr (c_File, Rat ('.' c_File) + 1))) == 'RTF'
MEMOWRIT (c_File, Form_1.Edit_1.RichValue)
else
MEMOWRIT (c_File, Form_1.Edit_1.Value)
endif
RICHEDITBOX handles a control, I began to analyze and pure deduction takes the following:
Now I can more easily build an RTF code but I need to record it.