Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. dessa maneira estaria incorreto ... pois seria uma dupla chamada abraço
  2. Se voce der um exemplo prático talvez possa ajudá-lo
  3. Essa mensagem de erro ocorre porque houve erro na conversão de tipos o correto seria loSp.ParamByName('PINICIOCONTRATO' ).AsDate := Cds_CondominioINICIOCONTRATO.AsDate; loSp.ParamByName('PFIMCONTRATO' ).AsDate := Cds_CondominioFIMCONTRATO.AsDate; abraço
  4. Jhonas

    TreeView

    mude o código para o evento OnExpanded procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode); begin // comandos end; abraço
  5. Não .. quando dou o comando a impressão do Form é imediata, a menos que a impressora esteja em Pausa.
  6. Ok ... a lógica deve seguir a maneira de como esse procedimento é realizado na fazenda. veja um exemplo: PRIMEIROS PASSOS PARA COMEÇAR A CONTROLAR O SEU GADO E SUA PROPRIEDADE COM AUXÍLIO DO COMPUTADOR http://www.webrural.com.br/webrural/artigo...tgado.htm#DICAS OBS: Isso vai te dar a noção básica de como coletar os dados necessarios abraço
  7. Jhonas

    MainMenu com Vclskin

    Experimente esse: http://www.activedelphi.com.br/componentes/vclskin2.rar voce tambem pode utilizar o skin builder para alterar a cor da fonte skin http://www.link-rank.com/builder/skinbuilder.htm abraço
  8. Não entendi .... eu uso esse comando para imprimir direto para a impressora o Form
  9. Se voce entendeu esse exemplo é só adpatar a sua necessidade http://scriptbrasil.com.br/forum/index.php...st&p=575984 abraço
  10. primeiro coloque qual o erro se não fica dificil advinhar o código pode ser transportado para um bitbtn sem problema abraço
  11. Veja nestes posts http://scriptbrasil.com.br/forum/index.php...ighlite=beetwen abraço
  12. Material para pesquisa sobre o assunto: http://www.planetadelphi.com.br/dica/6544/...s%20procedures) http://www.devmedia.com.br/articles/viewcomp.asp?comp=3102 http://www.firebase.com.br/fb/imgdocs/Trat...TrataExcept.pdf http://www.linhadecodigo.com.br/Artigo.aspx?id=505 http://www.scribd.com/doc/7085788/Guia-Do-...ivro-CompletoBR http://www.susviela.hpg.com.br/delphi/delphi/mensagens.htm abraço
  13. o componente NMHTTP fica na paleta FastNet abraço
  14. Jhonas

    TreeView

    Faça uma busca no forum e veja o que encontra http://scriptbrasil.com.br/forum/index.php...ghlite=TreeView abraço
  15. Use um quickreport direto e no seu form é só chamá-lo com o preview. abraço
  16. Exemplo usando o componente NMHTTP procedure TFBdi.NMHTTP1PacketRecvd(Sender: TObject); var State: TResource; begin If NMHTTP1.BytesTotal = 4040 then begin showmessage('Arquivo Não Encontrado'); exit; end; QProgressBar1.maximum := NMHTTP1.BytesTotal; // total de bytes do arquivo QProgressBar1.position := NMHTTP1.BytesRecvd; // total de bytes recebidos durante o download StatusBar1.SimpleText := ' Download >> ' + IntToStr(NMHTTP1.BytesRecvd)+' de '+IntToStr(NMHTTP1.BytesTotal)+' Bytes recebidos'; end; abraço
  17. Veja se tem o evento OnTitleClick, e nele voce terá que montar o código sql para ordenar pelo nome do campo da coluna abraço
  18. Jhonas

    MainMenu com Vclskin

    a fonte dos itens não somem, somente estão com a mesma cor que o fundo, por isso voce não consegue ver para teste mude o modelo do skin e veja o que acontece abraço
  19. Faça uma busca no forum http://scriptbrasil.com.br/forum/index.php...=Stack+overflow abraço
  20. Para mudar o local de PDOXUSRS.NET abrir o Administrador do BDE e clicar em Configuration | Drivers | Native | Paradox.... então mude o Parâmetro DIR para o caminho de um diretório com permissão de escrita abraço
  21. exemplo: procedure TForm1.BitBtn1Click(Sender: TObject); begin Form1.Print; end; abraço
  22. Jhonas

    Som do notebook HP

    Não ... é defeito de fabricação mesmo abraço
  23. Jhonas

    Som do notebook HP

    Este problema não é de software, mas sim do próprio plugue femea do conetor p2 esquema do plugue para os falantes http://img254.imageshack.us/i/uhjkhjkjkhjhkhkjkhjwo8.jpg/ observe que na ponta do plugue ou conector p2 existe uma saliencia que serve para empurrar para cima a conexão com o falante do micro ... o mais provável é que essa conexão esteja amassada ou emperrada, desta maneira mesmo plugando os fones de ouvido a conexão do falante interno não é desligado ... para solucionar o problema somente abrindo o notebook para verificar. peça com problema no notebook é parecida com essa http://img517.imageshack.us/i/duvidawn3.jpg/ abraço
  24. Falha na inicialização da rede Arquivo ou diretório não existe FILE: C: \ PDOXURS.NET erro de sistema operação interna desconhecida diretório C: \ Esse erro ocorre porque o Paradox não tem premissão para escrever no drive C: o arquivo pdoxurs.net vá em Painel de Controle > Ferramentas Administrativas, e desative a opção Diretivas de Usuários http://www.corel.com/servlet/Satellite/us/...d=1153321343967 Voce tambem pode tentar usar a tabela de correção de Bugs do paradox ( 2007-12-05 Fixed bugs ) http://hem.bredband.net/bertilisberg/paradox/fixedbugs.htm OBS: Se ainda assim não conseguir, terá que especificar um diretório ( exemplo d: ) onde o paradox poderá ter permissão para escrever o arquivo pdoxurs.net abraço e Feliz Ano Novo
  25. procedure TDM.Cds_CondominioBeforePost(DataSet: TDataSet); procedure TF_Modelo.ac_salvarExecute(Sender: TObject); begin TClientDataSet(Ds.DataSet).Post; TClientDataSet(Ds.DataSet).ApplyUpdates(0); PageControl1.ActivePage := tbConsulta; end; Aparentemente o erro não está correlacionado com estas duas procedures, tente usar o debug do delphi e acompanhar a execução linha a linha para poder descobrir onde está o problema ... coloque um breakpoint a partir da linha de código: TClientDataSet(Ds.DataSet).Post; abraço e Feliz Ano Novo
×
×
  • Criar Novo...