Formatação de texto
Bom dia,
estou utilizando o componente WebBrowser para o usuário digitar texto, e coloquei algumas funcionalidades para o usuário formatar o texto. Uma das funcionalidades é inserir uma tabela, com isso coloquei para inserir as tags de tabela no final do página, só que o pessoal quer que insira a tabela no meio do texto, gostaria de saber se alguém tem alguma idéia.
Atenciosamente,
Bruno Moreira Batista.
http://www.cisnnet.com.br
estou utilizando o componente WebBrowser para o usuário digitar texto, e coloquei algumas funcionalidades para o usuário formatar o texto. Uma das funcionalidades é inserir uma tabela, com isso coloquei para inserir as tags de tabela no final do página, só que o pessoal quer que insira a tabela no meio do texto, gostaria de saber se alguém tem alguma idéia.
HTML:= TStringList.Create;
try
HTML.Add('<table>');
TotalLinha:= StrToInt(frmInserirTabela.edtNumeroLinhas.Text);
TotalColuna:= StrToInt(frmInserirTabela.edtNumeroColunas.Text);
for Linha := 1 to TotalLinha do
begin
HTML.Add(' <tr>');
for Coluna := 1 to TotalColuna do
begin
HTML.Add(' <td>');
HTML.Add(' <P><o> </o></P>');
HTML.Add(' </td>');
end;
HTML.Add(' </tr>');
end;
HTML.Add('</table>');
finally
HTMLDocumento := WebBrowser1.Document as IHTMLDocument2;
HTMLDocumento.body.innerHTML:= HTMLDocumento.body.innerHTML + HTML.Text;
FreeAndNil(HTML);
end;
Atenciosamente,
Bruno Moreira Batista.
http://www.cisnnet.com.br
Bruno Batista
Curtidas 0