Mais uma vez ! Gravar texto e o seu formato
Olá tudo bem?
Tenho um objeto da paleta win32 (RichEdit), nele digito e formato os textos, desejo salvar o texto com o seu formato. Por exemplo,
cor da fonte, tipo de fonte, tamanho, etc.
Eu só consigo gravar o texto, mas a formatação não vai junto.
Tem um colega do site que me mostrou um exemplo utilizando DbRichEdit, mas eu gostaria de gravar utilizando um richEdit comum.
estou utilizando a rotina abaixo:
with DM.qryGeral do
begin
close;
sql.clear;
sql.text := ´insert into parecer values (:1, :2, :3, :4, :5, :6, :7)´;
Params[0].Value := codigo;
Params[1].Value := ´1´;
Params[2].Value := edReferencia.text;
Params[3].Value := edOrigem.text;
Params[4].Value := edInteressado.text;
// A LINHA ABAIXO DEVERIA PASSAR O TEXTO E O SEU FORMATO, MAS SÓ CONSIGO GRAVAR O TEXTO.
Params[5].AsMemo := rcParecer.Lines.Text;
params[6].Value := date;
execsql;
end;
Tenho um objeto da paleta win32 (RichEdit), nele digito e formato os textos, desejo salvar o texto com o seu formato. Por exemplo,
cor da fonte, tipo de fonte, tamanho, etc.
Eu só consigo gravar o texto, mas a formatação não vai junto.
Tem um colega do site que me mostrou um exemplo utilizando DbRichEdit, mas eu gostaria de gravar utilizando um richEdit comum.
estou utilizando a rotina abaixo:
with DM.qryGeral do
begin
close;
sql.clear;
sql.text := ´insert into parecer values (:1, :2, :3, :4, :5, :6, :7)´;
Params[0].Value := codigo;
Params[1].Value := ´1´;
Params[2].Value := edReferencia.text;
Params[3].Value := edOrigem.text;
Params[4].Value := edInteressado.text;
// A LINHA ABAIXO DEVERIA PASSAR O TEXTO E O SEU FORMATO, MAS SÓ CONSIGO GRAVAR O TEXTO.
Params[5].AsMemo := rcParecer.Lines.Text;
params[6].Value := date;
execsql;
end;
Sandrodantas
Curtidas 0
Respostas
Anonymous
11/03/2003
Primeiro voce declara uma String
assim:
private
FFileName: string;
Depois voce Salva
RichEdit1.Lines.SaveToFile(FFileName);
Até Mais
assim:
private
FFileName: string;
Depois voce Salva
RichEdit1.Lines.SaveToFile(FFileName);
Até Mais
GOSTEI 0
Marcelo Saviski
11/03/2003
No Params[5].? não tem alguma coisa como asformatedmemo, talvez.
Ele não salva a formatação, só leva o texto com ele, se voce der um richedit.savetofile(file.rtf) e abrir este arquivo no bleco de notas, vai ver as ´tag´s´ da formatacao, tinha que dar um jeito de passar este texto com as tags para o params[5].
Ele não salva a formatação, só leva o texto com ele, se voce der um richedit.savetofile(file.rtf) e abrir este arquivo no bleco de notas, vai ver as ´tag´s´ da formatacao, tinha que dar um jeito de passar este texto com as tags para o params[5].
GOSTEI 0
Aroldo Zanela
11/03/2003
Não sei se entendi o problema, mas veja isso:
Warning:If you paste formatted text into the Lines property at design time, the formatting is lost when the form is saved (it does not appear at runtime). To set the value of a rich edit control at design time, you must save the formatted text in some other manner and use the LoadFromStream or LoadFromFile method of the Lines property to load the value in the OnShow method of the parent form.
Warning:If you paste formatted text into the Lines property at design time, the formatting is lost when the form is saved (it does not appear at runtime). To set the value of a rich edit control at design time, you must save the formatted text in some other manner and use the LoadFromStream or LoadFromFile method of the Lines property to load the value in the OnShow method of the parent form.
GOSTEI 0