Trocando fontes em um Memo

Delphi

08/10/2004

Alguém saberia me dizer, como faço para alterar a fonte de parte de um texto e inserir um imagem em certo ponto deste texto, em tempo de execução.

Exemplo:

Minha terra tem [b:e0ec8d5926]¬W[/b:e0ec8d5926] (palmeiras) em [b:e0ec8d5926]¬1[/b:e0ec8d5926] estados.


Quero trocar a fonte da palavra [b:e0ec8d5926]¬1[/b:e0ec8d5926] e o colocar uma imagem no lugar do [b:e0ec8d5926]¬W[/b:e0ec8d5926]. Sendo o [b:e0ec8d5926]¬[/b:e0ec8d5926] somente um delimitador.

Obrigado

Magnus


Magnusaw

Magnusaw

Curtidas 0

Respostas

Dbergkamps

Dbergkamps

08/10/2004

não tenho certeza, mas acho que o Memo não suporta essas funções.
Tente usar um Rich Edit.


GOSTEI 0
Dorivansousa

Dorivansousa

08/10/2004

vc pode usar RxRichEdit e fazer da seguinte forma:

crie a funcao:
[b:7594369a40]function[/b:7594369a40] TForm1.CurrText: TRxTextAttributes;
begin
if RxRichEdit1.SelLength > 0 then
Result := RxRichEdit1.SelAttributes
else
Result := RxRichEdit1.WordAttributes;
end;

use CurrText.Style := CurrText.Style + [fsBold] para colocar em negrito e CurrText.Style := CurrText.Style - [fsBold] para retirar


GOSTEI 0
POSTAR