Fórum richedit #336802
26/01/2007
0
Tenho um richedit no form.
Quero inserir na mesma linha parte do texto em negrito e outra parte normal.
Só que não estou conseguindo.....
Consigo inserir apenas em linhas diferentes. Veja abaixo:
RichEdit1.selAttributes.Style := [fsBold];
RichEdit1.Lines.Add(´texto negrito´);
RichEdit1.selAttributes.Style := RichEdit1.selAttributes.Style - [fsbold];
RichEdit1.Lines.Add(´texto normal´);
Como fazer na mesma linha???
Quero inserir na mesma linha parte do texto em negrito e outra parte normal.
Só que não estou conseguindo.....
Consigo inserir apenas em linhas diferentes. Veja abaixo:
RichEdit1.selAttributes.Style := [fsBold];
RichEdit1.Lines.Add(´texto negrito´);
RichEdit1.selAttributes.Style := RichEdit1.selAttributes.Style - [fsbold];
RichEdit1.Lines.Add(´texto normal´);
Como fazer na mesma linha???
Briciosm
Curtir tópico
+ 0
Responder
Posts
27/01/2007
Rinez
vc pode usar RxRichEdit e fazer da seguinte forma:
crie a funcao:
Coloque
function CurrText: TRxTextAttributes;
function TForm1.CurrText: TRxTextAttributes;
begin
if RxRichEdit1.SelLength > 0 then
Result := RxRichEdit1.SelAttributes
else
Result := RxRichEdit1.WordAttributes;
end;
Coloque em um botão:
CurrText.Style := CurrText.Style + [fsBold] para colocar em negrito e CurrText.Style := CurrText.Style - [fsBold] para retirar
Espero ter ajudado
Prof. Zenir
crie a funcao:
Coloque
function CurrText: TRxTextAttributes;
function TForm1.CurrText: TRxTextAttributes;
begin
if RxRichEdit1.SelLength > 0 then
Result := RxRichEdit1.SelAttributes
else
Result := RxRichEdit1.WordAttributes;
end;
Coloque em um botão:
CurrText.Style := CurrText.Style + [fsBold] para colocar em negrito e CurrText.Style := CurrText.Style - [fsBold] para retirar
Espero ter ajudado
Prof. Zenir
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)