RICHEDITBOX en HMG

Moderator: Rathinagiri

Post Reply
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

RICHEDITBOX en HMG

Post by andyglezl »

Hola

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 ?
if 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
Por otro lado, hoy al ver el fuente del DBA, en el primer archivo que abrí, vi una funcion de esgici llamada DBAAbout() donde
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?
if 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
Moreover, today to see the source of DBA, the first file I opened, I saw a function called Esgici DBAAbout () where
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.
Attachments
HMG-RTF.jpg
HMG-RTF.jpg (248.27 KiB) Viewed 2452 times
Andrés González López
Desde Guadalajara, Jalisco. México.
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: RICHEDITBOX en HMG

Post by esgici »

andyglezl wrote:...
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?
...
Now I can more easily build an RTF code but I need to record it.
Did you tried HB_MEMOWRIT() instead of MEMOWRIT() ?

Happy HMG :D
Viva INTERNATIONAL HMG :D
User avatar
andyglezl
Posts: 1461
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Contact:

Re: RICHEDITBOX en HMG

Post by andyglezl »

Perfecto esgici, funciona con HB_MEMOWRIT(), Gracias.
-------------------------------------------------------
Perfect Esgici, works with HB_MEMOWRIT () Thanks.
Andrés González López
Desde Guadalajara, Jalisco. México.
Post Reply