Formatar texto selecionado

Question

Ol�,

Gostaria de saber como fa�o para formatar somente o texto selecionado num componente TMemo ou TRichEdit, j� que se dou o comando:
[b:f2a945df0e]Memo1.Font.Style := [fsbold];[/b:f2a945df0e]
Ele transforma todo o texto em Negrito, e n�o s� a parte desejada.

Desde j�, muito obrigado

Yankleber · Answer

Oi,Essa s� funciona no RichEdit, pois o Memo convencional n�o permite formata��o de trechos do texto, mas apenas o texto inteiro.ao inv�s de[code:1:e3b8d585e9]Memo1.Font.Style := &#91;fsbold&93;; [/code:1:e3b8d585e9]fa�a[code:1:e3b8d585e9]Richedit1.SelAttributes.Style := &91;fsbold&93;;[/code:1:e3b8d585e9]Espero ter ajudado!...

Gisele Gon�alves · Answer

Ol�, de uma certa forma essa sua dica me ajudou. Por�m o que eu preciso � deixar negrito assim que carregar os dados no Rich, como um cabe�alho. Esta forma que voc� passou eu preciso selecionar o item para que ele fique em negrito. Teria como fazer da forma como preciso?

Att
Gisele Gon�alves

Deivison Melo · Answer

Como formatar um TMemo ou TRichEdit em formato HTML
1: Crie a seguinte procedure;
procedure HTMLSyntax(RichEdit: TRichEdit; TextCol, TagCol, DopCol: TColor);
var
i, iDop: Integer;
s: string;
Col: TColor;
isTag, isDop: Boolean;
begin
iDop := 0;
isDop := False;
isTag := False;
Col := TextCol;
RichEdit.SetFocus;
for i := 0 to Length(RichEdit.Text) do
begin
RichEdit.SelStart := i;
RichEdit.SelLength := 1;
s := RichEdit.SelText;
if (s =