Componente do tipo RichEdit, mais inovador ???

Question

Ol� pessoal estou a procura de algum componente em Delphi 5, 6 ou 7 que tenha suporte HTML, de forma que possa digitar textos dinamicamente, utilizando assim bot�es para formata��o generalizados.

Agrade�o que me ajudar!!!

Bon Jovi · Answer

Vc quer um editor RichEdit q exporte pra HTML ou um editor HTML puro?...

Faelcavalcanti · Answer

Na verdade estou buscando um componente se � que existe, que j� possua barras de ferramentas de formata��o, cor, etc.,

Da� tamb�m gostaria de extrair todo o conte�do digitado e exportar para HTML, ou que fosse da mesma forma como o editor de digita��o de texto da Hotmail. Algu�m sabe essa, ou pelo menos poderia me dar uma for�a!

:roll:

Nildo · Answer

Voc� pode usar o pr�prio richedit. Coloque uns bot�es pra voc� testar.
No evento OnClick de um bot�o voc� coloca assim:

RichEdit1.SelAttributes.Color := clRed;

dai voc� vai pro richedit e come�a a digitar. Td q vc digitar a partir dali vai ficar vermelho. Essa regra atribue tamb�m se voc� tem um texto selecionado e executar esse comando, s�mente o texto selecionado fica em vermelho.

Faelcavalcanti · Answer

O Problema � que terei que formatar o richedit em formato HTML, mas isso deverei fazer quando envi�-lo, mas como poderei index�-lo junto ao Componente TIdMessage via SMTP, pois queria enviar em formato HTML e gostaria de gerar as TAGS j� formatadas de acordo com as fontes, etc.

Utilizei o seguinte procedimento para format�-lo :

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 = �<�) or (s = �{�) then 
      isTag := True;
    if isTag then
      if (s = �"�) then
        if not isDop then 
        begin
          iDop := 1;
          isDop := True;
        end
        else 
          isDop := False;
      if isTag then
        if isDop then 
        begin
          if iDop <> 1 then Col := DopCol;
        end
        else 
          Col := TagCol
        else 
          Col := TextCol;
      RichEdit.SelAttributes.Color := Col;
      iDop := 0;
      if (s = �>�) or (s = �}�) then 
        isTag := False;
    end;
    RichEdit.SelLength := 0;
end;

Em seguida efetuo os seguintes procedimentos :

RichEdit1.Lines.BeginUpdate;
HTMLSyntax(RichEdit1, clBlue, clRed, clGreen);
RichEdit1.Lines.EndUpdate;

O Problema � que terei que faz�-lo ap�s toda a digita��o, pois ap�s efetuar estes procedimentos ele n�o deixa eu impor cores, e/ou qualquer coisa que seja relativo a formata��o de texto

Como posso ent�o gerar um arquivo HTML, com um texto j� pronto.
Talvez eu terei que montar na m�o, sei l� usar a TAG <DIV>.
Me Ajudem!!!

Faelcavalcanti · Answer

Erro meu o c�digo completo abaixo, ficou faltando um pedacinho :lol:

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 = �<�) or (s = �{�) then 
      isTag := True;
    if isTag then
      if (s = �"�) then
        if not isDop then 
        begin
          iDop := 1;
          isDop := True;
        end
        else 
          isDop := False;
      if isTag then
        if isDop then 
        begin
          if iDop <> 1 then Col := DopCol;
        end
        else 
          Col := TagCol
        else 
          Col := TextCol;
      RichEdit.SelAttributes.Color := Col;
      iDop := 0;
      if (s = �>�) or (s = �}�) then 
        isTag := False;
    end;
    RichEdit.SelLength := 0;
end;

Marcelo Saviski · Answer

Voc� pode usar o [url=//sourceforge.net/projects/synedit/]SynEdit[/url], que � um edit para exibir c�digos formatados, voc� coloca um SynEdit e linka a propriedade HighLighter com um TSynHTMLSyn.O texto digitado no ynEdit ficar� formatado rea�ando tags ou textos etc.N�o � s� p/ HTML, tem para trocentas linguagens.Muito bom....

Bon Jovi · Answer

Solu��o 1: Usar RichEdit normalmente + Exportacao pra HTML. No Delphi j� tem um demo completo com tudo q vc quer (C:\Arquivos de programas\Borland\Delphi7\Demos\RichEdit). E pra exportar pra HTML, use o componente TJvRichEditToHtml (aba Jv Internet) do Pacote JEDI VCL (http://homepages.borland.com/jedi/jvcl/).

Solu��o 2: Usar Editor DHTML, que trabalha diretamente com HTML.

Faelcavalcanti · Answer

[quote:450a3cc0d4]Voc� pode usar o SynEdit, que � um edit para exibir c�digos formatados, voc� coloca um SynEdit e linka a propriedade HighLighter com um TSynHTMLSyn. O texto digitado no ynEdit ficar� formatado rea�ando tags ou textos etc. N�o � s� p/ HTML, tem para trocentas linguagens. [/quote:450a3cc0d4]Rapaz este componente � realmente, espetacular!!!!!N�o tenho muito a falar � s� conferir!!!!Mas ainda h� uma d�vida, gostaria de formatar v�rias vezes um TRichEdit ou outro componente, ou talvez este do SynEdit. N�o testei ainda.Mas o que eu queria de fato � Formatar de diversos tamanhos e cores um texto digitado.Agrade�o pela ajuda de todos!!!...

F�rum Componente do tipo RichEdit, mais inovador ??? #254318