Eder
-
Total de itens
1.002 -
Registro em
-
Última visita
Tudo que Eder postou
-
Ola... teria como focar um botão especifico do DBNavigator?? ou seja eu gostaria de focar somente o botão post do DBNavigator1 Grato
-
Ola... tou com dificuldades em transformar um numero positivo em negativo... por favor vejam meu exemplo no codigo abaixo: procedure TForm1.Button1Click(Sender: TObject); var Saldo, Saida_Estoque : Integer; begin Saldo:=strtoInt(Edit1.text); Saida_estoque:=strtoInt(Edit2.text); Showmessage(Inttostr(Saldo+Saida_Estoque)); end; vamos supor que meu saldo seja de 10(edit1) e ai o camarada da a saida_estoque no valor de 11(edit2), logicamente o resultado real seria -1, porem se eu usar o exemplinho acima o resultado da 21 pois ele pega 10 + 11 = 21 e deveria ser assim 10 - 11 = -1 isto porque no edit2 não posso dizer pro usuario digitar -11 ele vai digitar 11(e onze seria positivo, mas pro meu caso é um negativo...pois ta saindo do estoque). não sei se fui claro.... Como eu faria neste caso? :blush: muito Grato
-
OLA...valeu..muito Grato t+
-
Ola... eu estou usando este codigo para configurar a pagina, porem ao invés de tornar os links BOLD (negrito) eu gostaria de sublinhar na hora que passa o mouse em cima....mas não tou conseguindo eu estou usando este codigo: <style type="text/css"> *{ margin: 0px; /*zerando as margins dos elementos*/ padding: 0px; /*valor para os espaços entre o conteúdo e as bordas.*/ list-style: none; /*define as caractristicas das listas, */ text-decoration:none; /*definindo nenhuma decoraçao para os textos*/ line-height: 11px; /*nesse atributo você define o tamanho da linha*/ outline: none; /*nenhuma margem ao redor dos elemntos.*/ } <!--A{text-decoration: none} --> <!--a:hover{font-weight:bold;}--> </style> estas linha de codigos acima....nas primeira linhas...eu uso para não ter muita incompatibilidade com o FF e o Opera...senão fica espaços entre linhas....assim minimiza um pouco... Grato
-
Eric... fiz como mencionou mas não deu certo.....quando clicko no botão nada acontece... :blush: Ai deu certo? Grato Grande abraço.
-
R: haaa..beleza..perdão...é mesmo. :blush: valeu..
-
carinha....mil perdões...sei que você vai ficar bravo comigo...mas não deu certo aqui não. :blush: a sua explicação eu entendi...porem pelos códigos que você me passou o efeito não apareceu... fiz assim baseado no que me passou: <html> <head> <meta http-equiv="content-type" content="text/html; charset=iso-8859-1"> <title>X</title> <meta name="author" content="ED"> <style type="text/css"> table td.MouseEmCima{ background:green; } </style> <script language="JavaScript"> <!-- JavaScript window.onload=function(){classTables("Eder", "MouseEmCima")} </script></head> <body bgcolor="white" text="black" link="blue" vlink="purple" alink="red"> <table border class="Eder"> <tr> <td width="320"><p>X</td> <td width="320"><p>X</td> </tr> <tr> <td width="320"><p>X</td> <td width="320"><p>X</td> </tr> </table> <table border class="Eder"> <tr> <td width="320"><p>X</td> <td width="320"><p>X</td> </tr> <tr> <td width="320"><p>X</td> <td width="320"><p>X</td> </tr> </table> </body> </html> :wacko: bom.....agora vou aguardar...sua bronca...caso for burrada minha....rs :blush: :) Grato..
-
amigão...acho que não entendi...pois não funcionou....ou melhor...aonde configuro a cor?? :blush: fiz assim: <html> <head> <meta http-equiv="content-type" content="text/html; charset=iso-8859-1"> <title>X</title> <meta name="author" content="ED"> <script language="JavaScript"> <!-- JavaScript function classTables(classe, hover){ var tabelas=document.getElementsByTagName("table") for(var x in tabelas) if(tabelas[x].className==classe){ var tr=tabelas[x].getElementsByTagName("tr") for(var y in tr){ tr[y].onmouseover=function(){ var td=this.getElementsByTagName("td") for(var z in td) td[z].className=hover } tr[y].onmouseout=function(){ var td=this.getElementsByTagName("td") for(var z in td) td[z].className="" } } } } window.onload=function(){classTables("tabelaOpcoes", "hover")} // - JavaScript - --> </script></head> <body bgcolor="white" text="black" link="blue" vlink="purple" alink="red"> <table border class="classTables"> <tr> <td width="320"><p>X</td> <td width="320"><p>X</td> </tr> <tr> <td width="320"><p>X</td> <td width="320"><p>X</td> </tr> </table> <table border class="classTables"> <tr> <td width="320"><p>X</td> <td width="320"><p>X</td> </tr> <tr> <td width="320"><p>X</td> <td width="320"><p>X</td> </tr> </table> </body> </html> :blush:
-
Ola....tenho este codigo abaixo...que trabalha com uma enquete <script language="javascript"> <!-- var url function Abrir(url) { window.open(url,"resp","resizable=yes,toolbar=no,status=no,menubar=no,scrollbars=no,width=350,height=370"); } //--> </script></head> <body bgcolor="white" text="black" link="blue" vlink="purple" alink="red"> <table border="2" cellpadding="4" width="490" bordercolor="gray" bordercolordark="black" bordercolorlight="navy" id="AutoNumber1" style="border-collapse: collapse"> <tr> <td width="614" valign="top" bgcolor="#FFFFCC"><form target="resp" method="post" action="http://www.xxx/enquete/enquete.cgi" onsubmit="Abrir('http://www.xxx/enquete/enquete.cgi')"> <input type=hidden name="enquete" value="111111"><input type=hidden name="acao" value="votar"> <p align="center"><font face="Verdana" size="2" color="black"><b>O que?<br> </b></font><font face="Verdana" size="2"><input type="radio" name="voto" value="1"> Ótimo<input type="radio" name="voto" value="2"> Bom<input type="radio" name="voto" value="3"> Regular<br> <input type="submit" value="VOTAR" style="font-weight:bold; font-size:11; color:navy; background-color:rgb(255,255,153); text-decoration:blink; border-width:2%; border-color:gray; border-style:solid;"></font></td> </tr> </table> </form> ele funciona certinho...mas eu gostaria de substiuir este botão push button por um botão(images/imagem.jpg), mas não to conseguindo.... alguém poderia me ajudar? Grato
-
Ola...Kakarotto. Obrigado pela resposta. Carinha....seguinte...eu fiz o esqueminha...e funcionou perfeito....mas ele seleciona a célula e eu queria como no exemplo acima...selecionar a linha da tabela..independente do nr de colunas....como naquele exemplinho lá em cima...que funciona apenas em uma tabela... você mencionou: R: carinha...compreendo.... mas alem de ser mais bonitinho mesmo...rs...acho eu...facilita para usuario se achar na tabela..pois estou usando uma tabela de campeonato (jogos futebol) então fica legal....ele se cituar....na linha da tabela ..compreende. Terias alguma idéia para fazer desta forma? algo que independente do nr de tabelas...no caso aplicaria na pagina inteira(tabelas)...ai facilitaria. Carinha muito agradecido...independente da sua resposta já me ajudou muito pois aprendi algo mais... :)
-
Ola....eu fiz uma busca aqui sobre montar uma enquete para por em um site...pelo que li não é possivel somente com linguam dinamica, asp ou php..mas estes tempos um caramada muito gente fina(hipnos na Area)....me mostrou como montar um contador em Javascript e funciona muito bem....ele fez em cima de um txt que fica no servidor...cada acesso ele soma o valor do txt + 1 e assim por diante... Este é o tópico do contador: Tópico contador em TXT pergunto ...se o contador deu para montar com um TXT será que uma enquete não daria não?? muito Grato
-
R.: Sim ESerra eu já havia feito com esta idéia sua...mas não funca..... segue o codigo, se você quizer fazer um testezinho ai....aqui pelo menos não funca. <script> window.onload=function(){ var tabela=document.getElementById("tabela1") for(var celula in tabela.getElementsByTagName("tr")){ tabela.getElementsByTagName("tr")[celula].onmouseover=function(){this.style.background="red"} tabela.getElementsByTagName("tr")[celula].onmouseout=function(){this.style.background="white"} } } </script></head> <body bgcolor="white" text="black" link="blue" vlink="purple" alink="red"> <table border id="tabela1"> <tr> <td><p>Célula</td> <td><p>Célula</td> <td><p>Célula</td> </tr> <tr> <td><p>Célula</td> <td><p>Célula</td> <td><p>Célula</td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> <tr> <td><p>Célula</td> <td><p>Célula</td> <td><p>Célula</td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> </table> <table border id="tabela1"> <tr> <td><p>Célula</td> <td><p>Célula</td> <td><p>Célula</td> </tr> <tr> <td><p>Célula</td> <td><p>Célula</td> <td><p>Célula</td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> <tr> <td><p>Célula</td> <td><p>Célula</td> <td><p>Célula</td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> </table> </body> </html> Grato :)
-
Ola..JOnas....funcionou certinho... Com a ideia do Morpheus.....montei esta aqui e funcionou certinho: //Função converter Segundos para MINUTOS function Seg_Minuto( Seg:LongInt ):string; Var Minutos, Resto_Segundos : Real; begin Minutos := Quantidade_de_Segundos div 60; //<== isto resulta em minutos redondos Resto_Segundos := Quantidade_de_Segundos - (Minutos *60); //<== isto é o que sobrou de segundos Result := FloatToStr(Minutos) + ':' +FloatToStr(Resto_Segundos);//resultado end; porem tem que criar a variavel global: Quantidade_de_segundos:Integer; //que receberá a quantidade de segundos. para chamar o resultado: procedure TForm1.Button2Click(Sender: TObject); begin Quantidade_de_Segundos:=StrToInt(edit1.text); Label2.Caption := seg_minuto(Quantidade_de_Segundos); end; Obrigado a você e ao Morpheus pela.. t+
-
Ola...pesquisei e achei este codigo...teste e funciona exatamente como preciso....com uma tabela. porem ....eu tenho duas tabelas.....e não consegui adaptar para funcionar com as duas tabelas... codigo abaixo: <script> window.onload=function(){ var tabela=document.getElementById("tabela1") for(var celula in tabela.getElementsByTagName("tr")){ tabela.getElementsByTagName("tr")[celula].onmouseover=function(){this.style.background="red"} tabela.getElementsByTagName("tr")[celula].onmouseout=function(){this.style.background="white"} } } </script></head> <body bgcolor="white" text="black" link="blue" vlink="purple" alink="red"> <table border id="tabela1"> <tr> <td><p>Célula</td> <td><p>Célula</td> <td><p>Célula</td> </tr> <tr> <td><p>Célula</td> <td><p>Célula</td> <td><p>Célula</td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> <tr> <td><p>Célula</td> <td><p>Célula</td> <td><p>Célula</td> </tr> <tr> <td><p> </td> <td><p> </td> <td><p> </td> </tr> </table> </body> Terias uma ideia de como fazer para funcionar com duas tabelas ou mais?? Grato
-
Ola..tenho uma tabela com 5 linhas e 3 colunas.... eu vi num site um esqueminha que ao passar o mouse sobre a linha da tabela ele muda a cor... alguém sabe como fazer este efeito? Grato
-
Carinha...fiz o testezinho e funcionou beleza...as variaveis coloquei tipo REAL. mas me deu curiosidade de saber como ficaria com a sua dica, uma funcãozinha pronta tipo aquele ali em cima...que postei só que de Seg_Minutos tenho dificuldades em montar função..... acredito que seria mais ou menos assim: //Função converter Segundos para MINUTOS function Seg_Minuto( Seg:LongInt ):string; Var Minutos, Resto_Segundos : Real; begin Minutos := Quantidade_de_Segundos div 60; //<== isto resulta em minutos redondos Resto_Segundos := Quantidade_de_Segundos - (Minutos *60); //<== isto é o que sobrou de segundos Result := FloatToStr(Minutos) + ':' +FloatToStr(Resto_Segundos);//resultado end; O que você acha...esta função estaria correta? muito Obrigado. t+
-
Ola...eu tou acostumado a converter segundos para horas....usando esta função: //Função converter Segundos para Horas function Seg_Hora( Seg:LongInt ):string; Var Hora,Min:LongInt; Tmp : Double; begin Tmp := Seg / 3600; Hora := Round(Int(Tmp)); Seg := Round(Seg - (Hora*3600)); Tmp := Seg / 60; Min := Round(Int(Tmp)); Seg := Round(Seg - (Min*60)); Result := FormatFloat( '00', Hora )+ ':' + FormatFloat( '00', Min ) + ':' + FormatFloat( '00', Seg ); end; porem agora preciso converter segundos para minutos...tentei adaptar o codigo acima, mas sem sucesso.. alguém poderia me dar uma ajudinha para alterar esta função....onde eu consiga converter segundos para minutos?? Grato
-
beleza..Jonas...se não conseguir nada...tudo bem...ai vou vai como esta...anexar ao email... valeu...muito grato
-
Ola...tou tentando adaptar um codigo que achei na net para mandar email pelo delphi com uma figura(logomarca da empresa) no cabeçalho do email... funciona legal...porem o codigo sempre anexa a mesma figura ao email...e eu não gostaria de anexar esta logo da empresa, apenas que ela ficasse no inicio do email e dai para baixo somente o texto.. o codigo que achei foi este: procedure TForm1.Button2Click(Sender: TObject); Var newText : TIdText; sPath : String; newAttach : TIdAttachment; imgID1, imgName1 : String; begin // Endereço e ID da Imagem imgName1 := 'c:\figura.jpg'; imgID1 := CreateUniqueID; // Configura o Servidor IdSMTP1.Host := EditSmtp.text;//Host SMTP do bol IdSMTP1.Port := StrToInt(EditPorta.text); //Port do bol IdSMTP1.Username := EditUserName.text;//Login do usuário IdSMTP1.Password := EditPassWord.Text; //Senha do usuário IdSMTP1.AuthenticationType := atLogin; //tipo da autenticação // Configura o Remetente da Mensagem IdMessage1.Clear; IdMessage1.Subject := 'Teste de Envio de Mensagem'; IdMessage1.From.Address := 'xxx@yyy.com.br'; IdMessage1.From.Name := 'Eder Dias'; IdMessage1.Subject := 'My Subject'; //configura os destinatários IdMessage1.Recipients.Clear; IdMessage1.Recipients.Add; IdMessage1.Recipients.Items[IdMessage1.Recipients.Count-1].Address := 'xxx@xxx.com.br'; IdMessage1.Recipients.Items[IdMessage1.Recipients.Count-1].Name := 'Eder Dias'; // Adiciona o HTML ao corpo da mensagem newText := TIdText.Create(IdMessage1.MessageParts,nil); newText.ContentType := 'text/html'; newText.Body.Add('<HTML><BODY>'); newText.Body.Add('<H2>Teste de Envio de Email CORPO DO EMAIL</H2>'); newText.Body.Add('<IMG SRC="cid:'+imgID1+'">'); // Troca imagens pelo ID unico newText.Body.Add('<p><hr></p><br>'+Memomensagem.Text); newText.Body.Add('</BODY><HTML>'); // Adiciona uma parte texto ao corpo newText := TIdText.Create(IdMessage1.MessageParts,nil); newText.ContentType := 'text/plain'; newText.Body.Add('Este email só será visualizado em padrão HTML'); //Anexa a primeira imagem newAttach := TIdAttachment.Create(IdMessage1.MessageParts,imgName1); newAttach.ContentType := 'image/jpeg'; newAttach.ContentDisposition := 'inline'; newAttach.ExtraHeaders.Values['Content-ID'] := '<'+imgId1+'>'; //Estabelece a conexão IdSMTP1.Connect; IdSMTP1.Authenticate; // Envia Try IdSMTP1.Send(IdMessage1); showmessage('Ok. Mesagem Enviada com Sucesso.'); //Envia a mensagem except showmessage('ERRO. Não enviado.'); //Mensagem de erro end; IdSMTP1.Disconnect; end; end. Grato
-
Beleza..Jonas valeu...muito bom. grato...Abraço :)
-
Jonas.....o que você fez....eu sei fazer..... só não sei como fazer com a instrução SQL como citei acima....direto na query. compreende? :blush:
-
Ola... Tenho este exemplo abaixo: procedure TForm1.XiButton1Click(Sender: TObject); Var V1, V2 : Real; begin V1:=StrTofloat('1,23'); V2:=StrToFloat('2,10'); Showmessage(FloatToStr(V1+V2)); end; notem que o valor da soma é: 3,33 Vamos supor que eu precisasse da seguinte regra: até 3,50 arrendodaria para 3 (para baixo) acima de 3,50 arrendondaria para 4 (para cima) como ficaria o meu codigo? muito Grato
-
valeu..Churc Grato :D
-
Ola...tenho este exemplo abaixo: procedure TForm4.QRLabel12Print(sender: TObject; var Value: String); begin Value:=Floattostr(Horas_Sumary / conta); end; o resultado dele seria, 19352,11 portanto o seu resultado é um valor real(float) teria uma maneira do resultado eu arredondar eliminadando a cada após a vírgula(,11) ou seja, transformando num valor real no caso 19352 ?? muito Grato
-
Ola...eu tenho que montar um comando mais ou menos parecido com este: Qry1 :='SELECT NUMACS, SUM(VALOR) AS VALOR_TOTAL '+ 'FROM TIM WHERE (TIPO <> "") AND '+ '(TIPO <> "") AND MESREF = '+QuotedStr (ComboMesRef.TEXT) +' GROUP BY NUMACS ORDER BY 2 DESC'; FormRanking1.Query1.Close; FormRanking1.Query1.SQL.Text := Qry1; FormRanking1.Query1.Open; notem que ele tem um:SUM(VALOR) AS VALOR_TOTAL pois é este campo acima..é um campo A(Alphanumerico)e funciona certinho o codigo.. o problema é que ao invés deste campo eu somar eu tenho que somar um campo chamado DURAÇÃO tipo A(alphanumerico) porem este campo é armazenada a HORA DE DURAÇÃO. neste caso sendo HORAS...como eu poderia esta fazendo? Grato