Ir para conteúdo
Fórum Script Brasil

Vírus~

Membros
  • Total de itens

    14
  • Registro em

  • Última visita

Sobre Vírus~

Perfil

  • Location
    Americana - SP

Vírus~'s Achievements

0

Reputação

  1. Já desisti e passei a usar TABLE... Percebi que div modo tabela não funcionava em internet explorer... Grato.
  2. Olá, Estou com um problema ao esconder várias linhas de uma tabela em DIV, se alguém puder ajudar será muito bem vindo... Exemplo: <div style="display: table;"> <div style="display: table-row;"> <div style="display: table-cell;"> Celula 1</div> <div style="display: table-cell;"> Celula 2</div> </div> <div style="display: table-row;"> <div style="display: table-cell;"> Celula 1,1</div> <div style="display: table-cell;"> Celula 2,1</div> </div> <div style="display: table-row;"> <div style="display: table-cell;"> Celula 1,1,1</div> <div style="display: table-cell;"> Celula 2,1,1</div> </div> </div> Porém, quero que as linhas 1 e 2 sejam escondidas ao clicar-se em um botão. Não posso nomear todas as divs-linhas e faze-las sumir uma a uma, preciso coloca-las dentro de um outro div, ou um span, com display block (ou algo que faça a mesma função) e depois mudar para none para esconder as linhas de uma vez... Se alguém puder ajudar, fico grato.
  3. tr.scrollIntoView(True); try i:=GetCurrentWbPos(WebBrowser1); finally ScrollWb(WebBrowser1, i + 200); end; Não funcionou, fiz assim... Expliquei errado no post anterior... queria dizer que o scrollIntoView funciona, mas o outro não :/
  4. Nãodeu. Fiz assim Dei o scrool, ai ele foi sozinho até o treco, depois mandei descer 200, 500 e não desceu nada @_@
  5. Aproveitando o tópico para outra dúvida do mesmo assunto: O comando "tr.scrollIntoView(True);" vai levar o documento até a 'ponta' do que ta escrito... Eu queria que ele descesse umas 2 ou 3 linhas a mais, para mostrar o scrap inteiro (vou tirar foto)... Tentei o "WebBrowser1.ScrollBy();" mas ele desce o treco todo e a foto continua saindo identica. Se alguém (Churc) souber como fazer isso... agradeço novamente a ajuda XD
  6. Postando a solução para quem algum dia precisar disso ^^ Me ajudam eu ajudo também quem precisar :P procedure TForm2.Buscar(WB: TWebBrowser; Text: string); var tr: IHTMLTxtRange; documento: IHTMLDocument2; index: OleVariant; frame_dispatch: IDispatch; framewnd: IHTMLWindow2; framedoc: IHTMLDocument2; begin documento := WebBrowser1.Document as IHTMLDocument2; index := 0; frame_dispatch := documento.Frames.Item(index); if Assigned(frame_dispatch) then begin framewnd := frame_dispatch as IHTMLWindow2; framedoc := framewnd.document; framedoc.Get_body.Get_outerText; if Assigned(WB.Document) then begin tr := ((framedoc AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange; if tr.findText(Text, 1, 0) then begin ShowMessage('achou'); end; end; end; end; Adaptei o código que ele passou no final com o código que me passou no começo! O código mostra "achou" se encontrar a palavra buscada. Ai é só adaptar para uma function com resposta true ou false ;D Obrigado novamente!!!! :D
  7. Ahhhhhhhhhh!!! Funcionou. Bom saber que tem gente inteligente assim em Americana (Y) XD Obrigado²³¹³¹²³¹²³²¹ Churc ;D
  8. Vírus~

    [ajuda] codigo

    você quer fazer um CE, é isso? O.ô
  9. Olha, encontrei um código que funciona como preciso: procedure TForm2.WBFindDialog(AWebBrowser: TWebbrowser); const CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}'; HTMLID_FIND = 1; var CmdTarget : IOleCommandTarget; vaIn, vaOut: OleVariant; PtrGUID: PGUID; begin New(PtrGUID); PtrGUID^ := CGID_WebBrowser; if AWebBrowser.Document <> nil then try AWebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget); if CmdTarget <> nil then try CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut); finally CmdTarget._Release; end; except end; Dispose(PtrGUID); end; Só não entendi como separar o código de busca certinho... Me parece que ele chama uma função já existente. Essa função consegue localizar o texto. Se alguém souber isolar só o código de buscar, de modo que seja possível alterar ele para receber um true / false se ele encontrar ou não o texto a ajuda seria muito bem vinda '-' Nota: Não quero que apareça o dialog, a busca tem que ser feita automaticamente pelo programa. Como buscar depois eu dou um jeito, faço ele seguir uma lista, o problema é como passar direto a string que quero buscar e apenas saber se tem ou não...
  10. Não entendi. Você quer um componente que mostre porcentagem? Tenta usar o MaskEdit com a ultima casa porcentagem... É isso? '-'
  11. Testei o código... Ele funciona nas páginas normais (no google funciona, etc) mas no orkut não ;x~ Esse é o problema, ele simplesmente não busca nada '-' Já é o 3 código desse tipo que usa... Código que analisa HTML não funciona, porque o código do orkut é todo importado, não da nem para salvar as páginas. Tem que ser alguma função que faça uma busca identica à busca dos navegadores... Elas encontram as palavras no orkut, mas no delphi as funções comuns não estão funcionando não :/ Nota: Obrigado pela resposta ^^ Se souber algum outro código ou como posso achar isso agradeço muito '-'
  12. Hi there. Gostaria de saber como posso descobrir se há algo em uma página. Exemplificando: Quero saber se no google.com existe a palavra "amigo" escrito. Mas não posso puxar o html para pesquisar nele (estou trabalhando com um site que usa import por javascript). Ok ok, direto ao ponto. É um programa que ficará monitorando meu orkut (ele puxa tudo por javascript, html não pega os textos...) e se encontrar alguma palavra de xingamento (de uma lista de palavras) me avisa imediatamente (com uma mensagem na tela). O que preciso saber é apenas como descobrir se há algo escrito na página... Já penei pesquisando no google isso e não encontrei, até que achei esse fórum (primeiro fórum que vejo que tem usuarios bem ativos). Se alguém souber help.
×
×
  • Criar Novo...