Mais uma vez ! Gravar texto e o seu formato
11/03/2003
0
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
Posts
11/03/2003
Anonymous
assim:
private
FFileName: string;
Depois voce Salva
RichEdit1.Lines.SaveToFile(FFileName);
Até Mais
11/03/2003
Marcelo Saviski
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].
11/03/2003
Aroldo Zanela
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.
Clique aqui para fazer login e interagir na Comunidade :)