Formatar texto selecionado

Delphi

04/12/2003

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


Bruno Tafarelo

Bruno Tafarelo

Curtidas 0

Respostas

Yankleber

Yankleber

04/12/2003

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
Memo1.Font.Style := [fsbold];

faça
Richedit1.SelAttributes.Style := [fsbold];


Espero ter ajudado!


GOSTEI 0
Gisele Gonçalves

Gisele Gonçalves

04/12/2003

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
GOSTEI 0
Deivison Melo

Deivison Melo

04/12/2003

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 =
GOSTEI 0
POSTAR