Fórum Problemas com o RichEdit #225786
13/04/2004
0
Galera
Estou com o seguinte problema, tenho que gerar um contrato, estava tentando trabalhar com o RichEdit, pois mesmo não tento justificação de texto, permite eu fazer todas as devidas formatações e gravar em um arquito RTF, podendo concluir as demais formatações no proprio Word (Se necessário).
Só que ocorre é que, quando mando adicionar mais conteúdo, ele coloca em uma nova linha. O que estou fazendo de errado.
Estou colocando da seguinte forma:
RE.Lines.Clear;
RE.SelAttributes.Name:= ´Arial Narrow´;
RE.SelAttributes.Style:= [fsBold];
RE.SelAttributes.Size:= 12;
RE.Paragraph.Alignment:= taCenter;
RE.Lines.Add(´CONTRATO PARTICULAR´);
RE.Paragraph.Alignment:= taLeftJustify;
RE.SelAttributes.Style:=[];
RE.Lines.Add(Chr(13)+Chr(13)+Chr(13));
RE.Lines.Add(´Por este instrumento particular, de um lado ´);
RE.SelAttributes.Style:=[fsBold];
RE.Lines.Add(´FULANO DE TAL´);
RE.SelAttributes.Style:=[];
RE.Lines.Add(´brasileiro, solteiro, estudante, ...´);
E cada comando ADD ele insere em nova linha, tem como fazer isto formatado em um mesmo bloco ???
Conto com a colaboração da galera.
Obrigado !!! :lol:
Estou com o seguinte problema, tenho que gerar um contrato, estava tentando trabalhar com o RichEdit, pois mesmo não tento justificação de texto, permite eu fazer todas as devidas formatações e gravar em um arquito RTF, podendo concluir as demais formatações no proprio Word (Se necessário).
Só que ocorre é que, quando mando adicionar mais conteúdo, ele coloca em uma nova linha. O que estou fazendo de errado.
Estou colocando da seguinte forma:
RE.Lines.Clear;
RE.SelAttributes.Name:= ´Arial Narrow´;
RE.SelAttributes.Style:= [fsBold];
RE.SelAttributes.Size:= 12;
RE.Paragraph.Alignment:= taCenter;
RE.Lines.Add(´CONTRATO PARTICULAR´);
RE.Paragraph.Alignment:= taLeftJustify;
RE.SelAttributes.Style:=[];
RE.Lines.Add(Chr(13)+Chr(13)+Chr(13));
RE.Lines.Add(´Por este instrumento particular, de um lado ´);
RE.SelAttributes.Style:=[fsBold];
RE.Lines.Add(´FULANO DE TAL´);
RE.SelAttributes.Style:=[];
RE.Lines.Add(´brasileiro, solteiro, estudante, ...´);
E cada comando ADD ele insere em nova linha, tem como fazer isto formatado em um mesmo bloco ???
Conto com a colaboração da galera.
Obrigado !!! :lol:
Shaolin
Curtir tópico
+ 0
Responder
Posts
13/04/2004
Motta
Lines.Add ...
Caso queira na mesma linha ponha no mesmo add
re.Lines.Add(´The book is´);
re.Lines.Add(´on the table´);
The book is
on the table
re.Lines.Add(´The book on the table´);
The book is on the table
é isto ?!
Caso queira na mesma linha ponha no mesmo add
re.Lines.Add(´The book is´);
re.Lines.Add(´on the table´);
The book is
on the table
re.Lines.Add(´The book on the table´);
The book is on the table
é isto ?!
Responder
Gostei + 0
13/04/2004
Shaolin
Tudo bem, até ai eu consegui acertar, mas quando eu desejo colocar uma palavra em Negrito ou Itálico, como posso fazer para deixar o meu RTF todo formatado, faltando apenas a Justificação.
Pois não encontrei nenhum componente gratuito que faça a maldita justificção de forma correta.
O texto do contrato que tenho que fazer é cheio de frik-frik, tendo palavras negritadas no meio dos blocos de textos, eis o motivo da minha quebra nas linhas.
Pois não encontrei nenhum componente gratuito que faça a maldita justificção de forma correta.
O texto do contrato que tenho que fazer é cheio de frik-frik, tendo palavras negritadas no meio dos blocos de textos, eis o motivo da minha quebra nas linhas.
Responder
Gostei + 0
13/04/2004
Bon Jovi
Pra fazer isso, vc deve usar a propriedade SelText:
RE.Lines.Clear;
RE.SelAttributes.Style:=[fsBold];
RE.SelText := RE.SelText + ´Negrito´;
RE.SelAttributes.Style:=[fsItalic];
RE.SelText := RE.SelText + ´Italico´;
RE.Lines.Clear;
RE.SelAttributes.Style:=[fsBold];
RE.SelText := RE.SelText + ´Negrito´;
RE.SelAttributes.Style:=[fsItalic];
RE.SelText := RE.SelText + ´Italico´;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)