Trabalhando Com Texto Dentro De Um Memo

#1 Davis Tomé

Normal

Usuários
60 posts

Sexo:Não informado

Posted 02/03/2005, 12:56

Estou fazendo um programinha que facilite fazer paginas em html, e so estou com alguns problemas na hora de tratar o texto dentro do campo MEMO
Eu criei uns botoes que ja inserem as tags prontas no MEMO
Ex:
procedure TForm1.Button5Click(Sender: TObject);
begin
memo1.Lines.add('<html> </html>');
end;

DUVIDA - 01
Como faço pra quebrar o codigo em 2 linhas?..eu tentei usar o codigo abaixo mas nao certo, o memo nao aceita!
begin
memo1.Lines.add('<html>'+#13+'</html>');
end;

DUVIDA - 02
Eu queria que cada tag ficasse de uma cor diferente, usando o codigo abaixo eu consegui colorir o texto mas quando eu insiro a tag ele deixa todo o texto do Memo da mesma cor, eu gostaria que colorisse somente a linha que eu estou adicionando
begin
memo1.Font.style:=[fsbold]; //deixa negrito
memo1.font.Color:=clActiveCaption; //nome da cor
memo1.Lines.add('<body></body>');
end;

DUVIDA - 03
Assim que inserido a tag tem como deixar o cursor do mouse ja no meio das tags
Ex:

<body>CURSOR AQUI</body>

Mais uma vez obrigado!!!!

#2 proteus_adi

@handle:=proteus;//>>>

Usuários
309 posts

Sexo:Não informado
Localidade:Minas Gerais>> Belo Horizonte
Interesses:Programação e Web>>>

Posted 03/03/2005, 13:00

DUVIDA - 01 : com certeza existe outra solução, depende da sua necessidade ai...
DUVIDA - 02 : não tem como, o TMemo só aceita que mude ESTAS PROPRIEDADES pra tudo o componente.
DUVIDA - 03 : como está sendo inserido estas tags? o sujeito clicka em um botão e insere lá?

PROTEUS [ADSUMUS]
ETERNAL ########
---------------------------------------------------------------
"Já dizia o mestre: PROGRAMAR é diferente de CODIFICAR"...

#3 Davis Tomé

Normal

Usuários
60 posts

Sexo:Não informado

Posted 03/03/2005, 13:25

Obrigado pela atenção

Isso é um botao onde ele clica e o texto é inserido!

#4 proteus_adi

@handle:=proteus;//>>>

Usuários
309 posts

Sexo:Não informado
Localidade:Minas Gerais>> Belo Horizonte
Interesses:Programação e Web>>>

Posted 03/03/2005, 21:19

velho.. se vc quiser continuar podemos pesquisar sobre o paint do TMemo...
mas acho que o que está querendo já tem pronto...
eu tenho um componente aqui que tem hightligth e alguns métodos muito bons pra fazer o que tá querendo...

mas se quiser continuar..
só falar que pesquisamos..
embora ache que com um TMemo vai ser bem dificin...

PROTEUS [ADSUMUS]
ETERNAL ########
---------------------------------------------------------------
"Já dizia o mestre: PROGRAMAR é diferente de CODIFICAR"...

#5 Paulo Freitas

××××××× LRU #456504 ××××××× ××××××× LRM #364686 ×××××××

Ex-Admins
5612 posts

Sexo:Masculino
Localidade:Campinas - SP

Posted 04/03/2005, 00:51

Olá!

Vamos tentar responder...

Dúvida 01

Para ele pular a linha, não basta só o #13, ele deve vir acompanhado de um #10, veja:

begin
Memo1.Lines.Add('<html>'+#13#10+'</html>');
end;

Dúvida 02

Como o proteus_adi disse, trabalhar assim com um Memo será difícil... você deverá em minha opinião, usar um componente chamado SynEdit, que também contém um Memo modificado no pacote... este componente é free, e pode ser encontrado em synedit.sourgeforge.net...
Você irá se surpreender com ele, por usa facilidade...

Esta técnica de "pintar" as tags, como o proteus_adi disse também, se chama Highlight. Este SynEdit, já tem como padrão o Highlight de 55 linguagens... :blink: