Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Davis Tome

Trabalhando Com Texto Dentro De Um Memo

Question

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 já 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 não certo, o memo não 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 já no meio das tags

Ex:

<body>CURSOR AQUI</body>

Mais uma vez obrigado!!!!

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

DUVIDA - 01

Como faço pra quebrar o codigo em 2 linhas?..eu tentei usar o codigo abaixo mas não certo, o memo não aceita!

      begin

          memo1.Lines.add('<html>'+#13+'</html>');

        end;

Não seria mais fácil fazer....

memo1.Lines.add('<html>');
memo1.Lines.add('</html>');
... ? De qualquer forma, você pode fazer isso também da seguinte maneira:
memo1.Lines.add('<html>'+#13+#10+'</html>');
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;
Para isso, dê uma olhada no RichEdit da aba Win32.
DUVIDA - 03 Assim que inserido a tag tem como deixar o cursor do mouse já no meio das tags Ex: <body>CURSOR AQUI</body>
Veja este exemplo:
memo1.Lines.Clear;
memo1.Lines.add('<body></body>');
memo1.SelStart := 6;
memo1.SetFocus;

Abraços,

Graymalkin

Share this post


Link to post
Share on other sites
  • 0

Cara muito obrigado já ajudou muito!!

Na correria já consegui quase tudo que quero....só estou com um problema não consigo inserir texto na linha onde esta o cursor do mouse.....qualquer lugar que ele esteja eu já consegui pegar a coluna e a linha que ele esta....mas quando vou inserir uma tag ele vai la em baixo!

Como faço pra inserir um item em determinada linha?

Obrigado!

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148131
    • Total Posts
      643434
×
×
  • Create New...