Eder

Ola..pessoal estou com um problama num form. tenho um dbgrid e um statusbar coloquei os dois no form e apontei a propriedade dos dois aligh=allbotton(para que os dois fiquem em baixo do form no rodape). porem eu coloco para que fique na seguinte ordem de baixo para cima: Statusbar e logo em seguida vem o DbGrid. o problema que depois de compilado, o Dbgrid troca de posicao com o statusbar, invertente a posição dos dois. como é que eu poderia configurar para que o Statusbar fique la em baixo no rodapé e em seguida vem o dbgrid e não o inverso? :blush: Grato

valeu..pessoal. era isto mesmo que precisava, deu certo muito Grato :)

Ola.. Bom dia a todos... Tenho um timer e um label. Vamos supor que eu coloque no Timer1 interval=30000 no caso 30 segundos. teria como atraves de um label eu mostrar o timer contanto, ou seja, a medida que o timer conta vai mostrando no label? muito Grato

Deixe a banda de detalhe extamente com o mesmo tamanho de uma etiqueta + o espaçamento ate a proxima. por exemplo: se a etiqueta tiver 2,5 cm e o espaço entre elas é de 0,5 cm, então a banda de detalhe deverá ser de 3,0 cm Jonas...entendi...valeu...deu certo muito Grato

OLA...Jonas..Bza. pesquisei..e até achei bem facil imprimir etiquetas....fiz assim: quickrep1, banddetail, QrDbtext´s e 1 query Na BandDetail adicionei os qrdbtext e configurei os campos conforme a query. e apontei o dataset do quickrep1=query1 no quickrep1=colunas=2 beleza imprimiu as etiquetas... mas tem um problema....na altura das etiquetas, ou seja, de uma para a outra conforme vai imprimindo(descendo) tem uma diferença... quando começa a imprimir até a meia folha fica legal, mas na verdade vai aumentando um pouquinho de uma a outra(altura), quando chega em baixo que termina a impressão a ultima etiqueta já imprimiu a ultima linha fora da etiqueta.. Tem como controlar isto?? :blush: pois começa certo e no final tem uma diferença na altura, parece que vai aumentando a cada etiqueta impressa, bem pouquinho mas no final da uma diferença de 1,5 linha. muito Grato

Ola.. Eu precisaria imprimir etiquetas de clientes baseado em uma consulta de uma query. ou seja.... select * from clientes where (clientes.Uf = "SC") order by clientes.nome mas eu nunca fiz nenhum aplicativo que trabalhe com etiquetas...nem tenho ideia de como fazer. alguém teria algum exemplo ou dica para me ajudar? :blush: muito Grato

ola...cheguei na lista ...mas qual a opção procurar? Spooler de Impressão? tem uma monte de serviços :blush: fico noa guardo... de mais muito grato

Ola... ontem tentei instalar uma impressora no winxp e deu o seguinte erro ao clicar no icone adicionar impressora "NÃO FOI POSSIVEL CONCLUIR A OPERAÇÃO" o que pode acasionar este erro? pois ele não da nenhuma dica do que pode ser... Grato

ops....perdão pessoal...é java script..postei errado..foi mal.. t+ :blush:

Ola. Neste exemplo de codigo(data) abaixo, teria como tirar o dia da semana dele?? <script language="JavaScript"> var now = new Date(); var mName = now.getMonth() + 1; mName = mName.toString(); if (mName.length == 1) { mName = "0" + mName; } var dayNr = now.getDate(); dayNr = dayNr.toString(); if (dayNr.length == 1) { dayNr = "0" + dayNr; } var yearNr=now.getYear(); var vMostrar =(dayNr + "/" + mName + "/" + yearNr); //document.write(vMostrar); // if (vMostrar == "25/08/2008") { document.write("Segunda-feira");} else { document.write("Fora da Data programada."); } </script> Na verdade eu queria mostrar uma mensagem diferente em cada dia da semana...exemplo: if segunda mostra ('hoje é segunda') if terça mostra ('hoje é terça') e assim por diante... Teria como? Muito Grato

pessoal...DEU CERTO....muito Grato pela ajuda......valeu..mesmo.. muito grato

valeu...carinha...muito grato..pela dica.. abraço

beleza..deu certo.... eu trabalho com delphi é ai eu uso exatamento igual...porem com AND so para fechar o tópico.....no delphi eu uso OR (ou) e neste caso como ficaria se eu precisasse usar OR? DELPHI=JAVASCRIPT ============== AND - && OR - (?) muito Grato

Ola... tenho este codigo....e gostaria de fazer um and...ou seja... Se (data > 01/01/2008) and (data < 05/01/2008) mostra imagem, a ideia é esta do codigo abaixo...é claro que eu teria que dar uma mudadinha... mas a minha pergunta é para manipular uma Gif num determinado dia do mes. tipo do dia 01 a 5 mostra gif1 do dia 6 a 10 mostra gif 2 e assim por diante. do jeito que fiz abaixo...ele já entende que deve mostrar a gf_principal1.gif e parece que não percorre mais o codigo...para por ali. Neste caso au acho que ele deveria mostrar a gf_principal2.gif pois já passou do dia 20/08/08 segue o codigo abaixo: <script language="JavaScript"> var now = new Date(); var mName = now.getMonth() + 1; mName = mName.toString(); if (mName.length == 1) { mName = "0" + mName; } var dayNr = now.getDate(); dayNr = dayNr.toString(); if (dayNr.length == 1) { dayNr = "0" + dayNr; } var yearNr=now.getYear(); var vMostrar =(dayNr + "/" + mName + "/" + yearNr); //document.write(vMostrar); // if(vMostrar > "01/08/2008") { document.write('<img src="images/fotos/gf_principal1.gif" width="148" height="73" border="0" hspace="2" />'); document.write("");} else if(vMostrar > "05/08/2008") { document.write('<img src="images/fotos/gf_principal2.gif" width="148" height="73" border="0" hspace="2" />'); document.write("");} else if(vMostrar > "10/08/2008") { document.write('<img src="images/fotos/gf_principal3.gif" width="148" height="73" border="0" hspace="2" />'); document.write("");} else if(vMostrar > "15/08/2008") { document.write('<img src="images/fotos/gf_principal1.gif" width="148" height="73" border="0" hspace="2" />'); document.write("");} else if(vMostrar > "20/08/2008") { document.write('<img src="images/fotos/gf_principal2.gif" width="148" height="73" border="0" hspace="2" />'); document.write("");} else if(vMostrar > "25/08/2008") { document.write('<img src="images/fotos/gf_principal3.gif" width="148" height="73" border="0" hspace="2" />'); document.write("");} else if(vMostrar > "30/08/2008") { document.write('<img src="images/fotos/gf_principal1.gif" width="148" height="73" border="0" hspace="2" />'); document.write("");} </script> muito Grato Pela ajuda... :blush:

Ola... Carinha fiz o teste...porem não deu certo.... vou tentar explicar .... eu já tenho uma matricial conectado ao meu micro....e gostaria também de poder imprimir em uma impressora matricial na rede: o problema que esta imprimindo na minha com este comando abaixo: Deveria imprimir neste caso na impressora da REDE..... ai fui verificar na maquina da rede e ela esta compartilhada... O que pode estar errado?? muito Grato :D

Ola... Tenho um arquivo em TXT e preciso criar um codigo onde o usuario clique no botão e imprima o conteudo deste arquivo numa impressoa matricial na rede. Tentei criar um bat bem simples com este codigo: TYPE arquivo.txt >PRN funciona perfeito, porem so funciona se a impressora estiver local na mesma maquina onde tem este BAT. mas eu precisaria imprimir numa impressora da REDE. não tem uma maneira via delphi? :blush: muito Grato

valeu..Denis...desculpe a demora em reposta eu estava fora.. Grato t+

Ola Não to sabendo diminuir a data desta forma: eu tenho a data de hoje no caso 11/08/2008 e quero diminuir digamos 20 dias e mostrar o resultado. No caso como ficaria o código? Grato

[Resolvido] fiz assim: uses filectrl, {FUNÇÃO IncludeTrailingBackslash} function IncludeTrailingBackslash(const S: string): string; begin Result := S; if S[Length(S)] <> '\' then Result := Result + '\'; end; {COPIAR ARQUIVOS} procedure CopiarArquivos(Mascara, De, Para: string); var Search: TSearchRec; Done: Boolean; begin De := IncludeTrailingBackslash(De); Para := IncludeTrailingBackslash(Para); Done := FindFirst(De + Mascara, faAnyFile, Search) <> 0; while not Done do begin if (Search.Attr and faDirectory) = faDirectory then begin if (Search.Name <> '.') and (Search.Name <> '..') then begin ForceDirectories(Para + Search.Name); CopiarArquivos(Mascara, De + Search.Name, Para + Search.Name); end; end else begin If not CopyFile(PChar(De + Search.Name), PChar(Para + Search.Name), FALSE) then begin ShowMessage('Erro ao copiar: ' + De + ' para: ' + Para); //trata erro na cópia end; end; Done := FindNext(Search) <> 0; end; end; No botão executar: procedure TForm1.Button1Click(Sender: TObject); begin CopiarArquivos('*.*', EditOrigem.text, EditDestino.text); end; Copia tudo...... falou

Ola... Eu uso este codigo aqui para copiar arquivos de uma pasta para outra pasta....porem ele só copia os arquivos...Não copia as subpastas ... procedure TForm1.Button2Click(Sender: TObject); var SR: TSearchRec; I: integer; Origem, Destino: string; Begin I := FindFirst(EditOrigem.text + '\*.*', faAnyFile, SR); while I = 0 do begin if (SR.Attr and faDirectory) <> faDirectory then begin Origem := EditOrigem.text +'\'+ SR.Name; Destino := EditDestino.text +'\'+ SR.Name; if not CopyFile(PChar(Origem), PChar(Destino), FALSE) then ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino); end; I := FindNext(SR); End; Teria como copiar tudo que esta na pasta, arquivos, pastas em fim tudo? Grato

Beleza..pessoal.. Obrigado pelas dicas...é realmente eu costumo carregar todos na inicialização....como a aplicação estão um pouco grande...acredito que seja isto mesmo que esta acarretando a demora.. valeu.. Grande Abraço a todos falou :)

Ola.. tenho um programa que ta em rede, e ele ta lento para fechar toda a aplicação.... ela leva alguns segundos para o a janela em baixo minimizada sumir. é verdade que ele ta bem carregado...ta bom um monte de tabelas, relacionados em entre si..em fim ta bem grandinho a base de dados.. Existe algum código para tentar resolver o problema fazendo com que ele feche um pouco mais rápido?? Eu uso para fechar o código: Application.Terminate; Grato

Opa..valeu..Jonas..muito Grato falou..

Pessoal..perdão.....ta certo sim....fiz confusão. :blush: valeu..muito grato.

Opa...eu já havia tentando assim...rs.. mas não da não.... veja você colocou: mas tem um porem...o resultado deveria sair assim(NEGATIVO): -1 E sai 1(positivo). se eu tinha 10 no estoque e dei saida em 11 o resultado é -1 e não +1 é este problema...que não to sabendo controlar... :blush: Grato