Re: [delphi-br] Captura de Imagens no Delphi

2008-04-21 Por tôpico Paulo Alexsandro
Tudo bom Rafael

Utilizo este componente em meus projetos

http://dprogrammer.blogspot.com/2007/08/capturando-imagens-da-webcam-no-delphi.html


-- 
Paulo Alexsandro - dprogrammer

Delphi, PHP, Ajax, Padrões Web, etc
http://dprogrammer.blogspot.com/

2008/4/18 rafaelpinto19 [EMAIL PROTECTED]:



 Olá galera,

 Eu estou começando a trabalhar comcaptura de imagens(Para fotos em
 cadastros)e não tenho idéia de como começar. Quero saber dos colegas
 se tem em algum lugar(Site, tutorias, apostilas e etc) que explique ou
 ensinem e mexer com isso. Quero saber qal componente seria melhor e
 mais fácil para eu usar. programa com a Tecnologia IBX. Quero mnuito
 aprender a implementar essas funções nos meus sistemas...abraços...

  _


 



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Questionário no Delphi

2008-04-21 Por tôpico Paulo Alexsandro
Tudo bom juliano

Voce pode utilizar o TNoteBook.Fica na Aba Win 3.1

Ou usar o TPageControl, aba Win32 e esconder todas as abas do componente,
mostrando só a aba da questão atual


-- 
Paulo Alexsandro - dprogrammer

Delphi, PHP, Ajax, Padrões Web, etc
http://dprogrammer.blogspot.com/

2008/4/17 Juliano Silva - Yahoo [EMAIL PROTECTED]:


 Pessoal

 Tenho um grande problema... tenho questionário grande no delphi, são
 várias
 perguntas, cada pergunta tem uma série de opções... bem o problema é o
 seguinte, tenho que colocar tudo isso em um FORM, são ao todos 40
 questões,
 estou procurando alguma forma de fazer o FORM rolar automaticamente ou
 qualquer outra coisa, mas está muito difícil, gostaria de alguma sugestão,
 não posso colocar em ABAS...

 att.

 Juliano Silva



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Consulta de CEPs

2007-07-28 Por tôpico Paulo Alexsandro
HI,

fiz um teste agora e deu certo. mostrou meu endereço.

-- 
Paulo Alexsandro - dprogrammer

Delphi, PHP, Ajax, Padrões Web, etc
http://dprogrammer.wordpress.com/

Em 26/07/07, Davi Eduardo Borges Wall [EMAIL PROTECTED] escreveu:

   Eu Tb fiz um teste com pesquisa de CEP e não tinha funcionado.

 Mas eu falei com o cara do site e parece que tinha um problema com o '-'
 (89110-000)

 Pelo visto ele arrumou..
 



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Palm-one

2007-07-01 Por tôpico Paulo Alexsandro
HI,

você precisa criar uma conduit

com esse componente você consegue criar uma facin facin

http://www.tabdee.ltd.uk/Downloads/TurboSync.html

no exemplo vem justamente um código para acessar essas tabelas que já vem no
palm

-- 
Paulo Alexsandro - dprogrammer

Delphi, PHP, Ajax, Padrões Web, etc
http://dprogrammer.wordpress.com/

Em 25/06/07, Alexandre [EMAIL PROTECTED] escreveu:

   Alguem sabe como acessar arquivos do palm-one pelo delphi?
 tipo datebook.dat, address.dat? Não entendo de palm e preciso acessar
 esses arquivos e pegar o conteúdo.

 Alex
 ._,___



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Video Aula

2007-06-07 Por tôpico Paulo Alexsandro
HI,

eu utilizo o Wink para essa finalidade, criar um screencast

tem vários recursos para incrementar o vídeo, tipo linkar uma tela, colocar
balões explicativos, etc.

http://dprogrammer.wordpress.com/2007/01/24/criando-um-screencast-com-o-wink/

aí tem o link de uma versão para linux


-- 
Paulo Alexsandro - dprogrammer

Delphi, PHP, Ajax, Padrões Web, etc
http://dprogrammer.wordpress.com/

Em 06/06/07, Alcistemas Informática [EMAIL PROTECTED] escreveu:

   Alguém conhece algum programa Free para gravar tipo video aula daquilo
 que faço no computador.

 Para usar nos meus aplicativos que escrevo, para economizar tempo em
 treinamento e apresentação de sistema.

 sei que é off, mais me perdoem já procurei de monte e free não acho nada.

 - Original Message -
 From: sampaiobrito
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Wednesday, June 06, 2007 4:23 PM
 Subject: [delphi-br] DBGrid O que faço!!!???

 Alguém sabe como fazer para remover as barras de rolagem vert, hori do
 dbgrid...

 Desde já agradeço!



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Ref. Startar programa Delphi

2007-06-04 Por tôpico Paulo Alexsandro
HI,

aproveitando a pergunta

como criar uma entrada no agendador de tarefas do windows usando o programa
em Delphi ?


-- 
Paulo Alexsandro - dprogrammer

Delphi, PHP, Ajax, Padrões Web, etc
http://dprogrammer.wordpress.com/

Em 04/06/07, Omar Marques [EMAIL PROTECTED] escreveu:

   Olá Delphianos,

 Bom dia/tarde,

 Alguém sabe como startar um programa Delphi em um determinado horário e
 com determinados parâmetros ? Preciso disso para rodar um programa
 automaticamente em cada madrugada e com determinados parâmetros.

 Qualquer ajuda é bem-vinda.


 Abços.

 Omar M. Haddad
 Analista de Sistemas




[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Abrir arquivo do FTP com Indy

2007-05-30 Por tôpico Paulo Alexsandro
HI,

tem um comando para listar o diretório no ftp, aí vc verifica no resultado
se o arquivo existe

pode-se aplicar até um filtro

tipo listar só os txts

código que utilizo. tem um trecho para pegar os arquivos do diretório

procedure TfmFTPGet.ChageDir(DirName: String);
Var
  LS: TStringList;
  I : Integer;
  Name : String;
begin
  LS := TStringList.Create;
  try

IdFTP1.ChangeDir(DirName);
IdFTP1.TransferType := ftASCII;

DirCorrente := IdFTP1.RetrieveCurrentDir;

ListArquivos.Items.Clear; //  TListBox

// lista filtrando
IdFTP1.List(LS, Mascara, True); // mascara é o filtro, tipo *.txt

// pega o nome do arquivo
for I := 0 to LS.Count - 1 do begin
  Name := IdFTP1.DirectoryListing.Items[I].FileName;

  ListArquivos.Items.Add(Name);

end;

  finally
LS.Free;
  end;

end;

qualquer coisa é só dizer

-- 
Paulo Alexsandro - dprogrammer

Delphi, PHP, Ajax, Padrões Web, etc
http://dprogrammer.wordpress.com/

Em 30/05/07, pcinfowave [EMAIL PROTECTED] escreveu:

   Ola...

 Estou usando um sisteminha de FTP feito com componentes Indyz e
 gostaria de enviar mensagens a meus usuarios através da leitura de um
 arquivo texto que encontra-se em minha pasta de FTP.

 Assim: eu procuro na lista de arquivos a existencia de um arquivo de
 texto, ao encontrá-lo, quero abrir ele para exibir o conteudo do
 texto em um Memo ou qualquer outro meio.

 Entao, eu já consegui fazer todo o processo, só me falta abrir o
 arquivo de texto. Como fazer isso, abrir o arquivo via FTP?

 Tentei :

 Memo2.Lines.LoadFromFile('ftp://MEUFTP/LEIAME.TXT');

 mas não deu certo.

 Se alguem puder ajudar, agradeço.

 []´s
 Paulo



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Bloquear o focus de uma dbgrid

2007-05-02 Por tôpico Paulo Alexsandro
HI,

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  DBEdit1.SetFocus
end;



-- 
Paulo Alexsandro - dprogrammer

Delphi, PHP, Ajax, Padrões Web, etc
http://dprogrammer.wordpress.com/


Em 02/05/07, Henrique Cristiano Rodrigues [EMAIL PROTECTED]
escreveu:

   Em um form tenho um edit e uma grid, o focus está no edit, mas quando
 rolo a grida para cima e abaixo, o focus vai para um doa campos dela, tem
 como tirar isso?

 Henrique Cristiano Rodrigues
 tel.: 9122-4471
 Messeger: [EMAIL PROTECTED] henrique_mail%40yahoo.com.br
 Orkut: http://www.orkut.com/Profile.aspx?uid=10107590976039686513




[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Dúvidas em Delphi!!

2007-05-02 Por tôpico Paulo Alexsandro
HI,

vc pode hospedar a imagem aqui
http://imageshack.us/

caso cada pedaço tenha uma cor, vc pode verificar qual é quando clicar e
fazer o tratamento que vc deseja, associar ao campo, etc.

se cada pedaço for um componente vc trata no onclick

disponibiliza ae a figura

-- 
Paulo Alexsandro - dprogrammer

Delphi, PHP, Ajax, Padrões Web, etc
http://dprogrammer.wordpress.com/

Em 02/05/07, Vantuil [EMAIL PROTECTED] escreveu:

   Pessoal, bom dia!...estou precisando criar uma figura em delphi que
 seria um circulo e dentro deste circulo um outro circulo menor. No circulo
 maior tenho que subdividir em quatro partições e cada partição terei que
 tratar com um campo que terá que ser ligado a um dataset, assim também vale
 para o circulo menor. Tentei colar a figura no email para ficar mais
 ilustrado mas infelizmente não consegui, então tentei anexar o arquivo jpg,
 mas também não deu certo, pois segundo a regra da lista não permiti arquivos
 anexados. Bem , se alguém da lista puder me ajudar qual melhor caminho a
 seguir eu agradeço.

 Abraços,
 Vantuil.
 Analista Programador



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Rotina de Extenso.

2007-05-01 Por tôpico Paulo Alexsandro
HI,

precisei dessa rotina e peguei nesse site

http://www.delphi.eti.br/ver_dica.php?id=5632

--
Paulo Alexsandro - dprogrammer

Delphi, PHP, Ajax, Padrões Web, etc
http://dprogrammer.wordpress.com/

Em 01/05/07, Marcos Antonio [EMAIL PROTECTED] escreveu:

   Colegas do grupo , boa tarde , alguel teria um exemplo de rotina de
 extenso para valores , uso o Delphi7 , desde já agradeço muito a vossa
 colaboração.

 Abraço à todos.

 Marco Antônio - Consultor em Sistemas.



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Biblioteca de imagens

2007-04-24 Por tôpico Paulo Alexsandro
achei hoje esse serviço de busca de ícones

IconFinder
http://www.dreamplay.dk/icon

aqui tem o exemplo de duas imagens (não são *.ico hehehe, tem de vários
tamanhos)
http://www.cdmj.com.br/forum/index.php?showtopic=6566

e eu peguei o arquivo do teu blog, já tou usando em meus sistemas

e já vou catar imagens nesse sistema aí

--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 21/04/07, Adriano Santos (Yahoo) [EMAIL PROTECTED] escreveu:

   Galera,

 Tô querendo atualizar meu sistema com uns ícones mais modernos, tipo do
 Windows XP, Office 2007 ou algo assim. Incluir, alterar, excluir e talz.
 Alguém tem alguma biblioteca legal ou link que possa me passar?

 Achei uma legal, mas não tem muitos ícones pra usar, a maioria não se
 encaixa muito com as aplicações que eu desenvolvo. Coloquei a biblioteca
 que encontrei disponível para download no meu blog, quem quiser pode
 pegar.

 www.delphitodelphi.blogspot.com

 Vlw

 --
 --
 Adriano Santos
 Desenvolvedor Delphi desde 1998. Professor e programador PHP.
 Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP.

 Colunista e Comissão Editorial da revista ClubeDelphi.

  



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Gerar PDF

2007-04-21 Por tôpico Paulo Alexsandro
no link que foi passado pelo Wanderlei tem o componente TPrintPDF

ele num serve não ?

el componente que es utilizado por ExportPack para guardar a PDF, no tiene
pérdida, es simplemente fundamental. Permite crear documentos PDF facilmente
desde delphi. Gracias K.Nishita.



--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 20/04/07, Rafael Marques [EMAIL PROTECTED] escreveu:

   Bom dia Wanderlei

 eu uso o Report Builder e até consegui um componente pra exportar os
 relatorios dele pra PDF, q por sinal deu um monte de prob e tive q remover!
 :( .

 O q eu gostaria é o q escrevi abaixo, q da tela mesmo o usuario clicar em
 um botao somente e ja gerar o PDF (onde posso criar manualmente mesmo), sem
 ter q abrir relatorios.

 obrigado

 Rafael

 - Original Message -
 From: Wandarlei
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Friday, April 20, 2007 8:14 AM
 Subject: RES: [delphi-br] Gerar PDF

 Bom dia Rafael

 Se você usa o QuickReport acesse o site
 http://usuarios.lycos.es/isma/expack.htm aqui tem um componente free para
 exportação para pdf.

 Wandarlei

 eu tenho ele instalado no cliente

 mas o prob é q pra isso tenho q gerar uma impressao e tudo +!

 minha intenção seria algo da seguinte forma (relato aqui apenas um exemplo
 simples): eu tenho uma tela que mostra o extrato do cliente e dali mesmo o
 usuario clicaria em um botao q gera-se o PDF e anexa-se em um email pra ja
 enviar pro cliente dele. Tudo apenas clicando em um botao.

 é +/- dessa forma q eu utilizaria!!

 to pesquisando no google e ainda num achei nada. Se eu achar eu vo postar
 aqui pra galera!

 mto obrigado

 Rafael

 - Original Message -
 From: Leandro
 To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
 Sent: Thursday, April 19, 2007 3:07 PM
 Subject: Re: [delphi-br] Gerar PDF

 Sem passar pelo gerador de relatorios nao conheço, mas tem o FreePDF
 que instala uma impressora virtual no seu computador... tudo que vc mandar

 imprimir nela fica no formato PDF (não só do seu programa)...

 att,

 Leandro

 - Original Message -
 From: Rafael Marques
 To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br
 Sent: Thursday, April 19, 2007 1:17 PM
 Subject: [delphi-br] Gerar PDF

 Boa Tarde!

 Alguem conhece alguma rotina ou componente Free pra gerar um arquivo PDF a
 partir do Delphi???

 eu gostaria de utilizar pra gerar Arquivos diretamente pra PDF (sem passar
 por algum gerador de relatorios, por exemplo montar manualmente algo e
 gerar
 o PDF dele)

 mto Obrigado

 Rafael



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Insert com problema (data e horario)

2007-04-13 Por tôpico Paulo Alexsandro
HI,

qual a mensagem de erro ?

e vc num acha melhor trocar esses #39 por QuotedStr ?

+#39+FormatDateTime('mm/dd/',HORARIO.Time)+#39+

por

+ QuotedStr( FormatDateTime('mm/dd/',HORARIO.Time) ) +

e passando a vista de novo, vi que no final tem essas aspas

+);

tira elas, deixa assim

'+#39+FormatDateTime('mm/dd/',HORARIO.Time)+#39);

seria o caso de usá-las se fosse assim

','''+ FormatDateTime('mm/dd/',HORARIO.Time) + );


--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 13/04/07, marciot2 [EMAIL PROTECTED] escreveu:

   Ola pessoal bom dia

 Estou com um problema, minha instrucao sql da erro, alguem poderia me
 ajudar obrigado.

 with DM do

 EDTCODEVENTO.Text:='0';
 DM.IBQryevento.Close;
 DM.IBQryevento.SQL.Clear;
 DM.IBQryevento.SQL.Add('INSERT INTO EVENTO (EVE_CODIGO, CUR_CODIGO,
 EVE_NOME, EVE_RESPONSAVEL, EVE_LOCAL, EVE_DATAINICIO, EVE_DATAFIM,
 EVE_HORARIO) VALUES
 ('+EDTCODCURSO.Text+','+EDTCODCURSO.Text+','+#39+EDTNOMEEVENTO.Text+#39+','+#39+EDTRESPONSAVEL.Text+#39+','+#39+
 EDTLOCAL.Text+#39+','+#39+FormatDateTime('mm/dd/',DATAINICIO.Date
 )+#39+','+#39+FormatDateTime('mm/dd/',DATAFIM.Date
 )+#39+','+#39+FormatDateTime('mm/dd/',HORARIO.Time)+#39+);
 DM.IBQryevento.ExecSQL;
 showmessage('Dados gravados com sucesso');



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Como enviar um texto pra outro programa

2007-04-13 Por tôpico Paulo Alexsandro
HI,

lembrei que se faz isso usando comunicação DDE

catei no google a mesma dúvida

http://www.forumweb.com.br/foruns/index.php?showtopic=4195

aqui tem um exemplo
http://www.geocities.com/SiliconValley/Bay/1058/exemplo.html

DDE http://www.geocities.com/SiliconValley/Bay/1058/dde.zip Como fazer
dois computadores se comunicarem entre si.
--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 13/04/07, Fellipe Henrique [EMAIL PROTECTED] escreveu:

   Olá.. estou tentando enviar uma string de um programa para outro, tentei
 DLL
 e não consegui, agora queria saber se é possível eu tendo 2 programas,
 cada
 um com um TMemo, eu de um programa pra outro, clicar num botao, e passar
 os
 dados do TMEmo do Prog1 para o TMemo do Prog2... como faço isso?

 Desde já agradeço.

 []s

 --
 _
 Fellipe Henrique
 [EMAIL PROTECTED] fellipeh%40gmail.com



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] [maf] Tipos de dados valor

2007-04-12 Por tôpico Paulo Alexsandro
HI,

  ShowMessage( DecimalSeparator );


sabendo se é . ou ,

é só usar StringReplace para trocar

--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 12/04/07, Marcos Abreu Ferreira [EMAIL PROTECTED] escreveu:

   Pessoal

 Desenvolvi uma aplicação que recebe informações via porta serial.
 Dentre as informacoes, existem valores com campos decimais. Só que a
 aplicação vai ser usada aqui e no EUA. Queria saber como faço para
 saber se a máquina está configurada para separação decimal por '.' ou
 por ','. Alguém tem uma dica? Os valores que recebo são assim.

 $G,4,19,18,00:35:19.469
 $H,7,19,14,00:01:50.429

 ou

 $G,4,19,18,00:35:19,469
 $H,7,19,14,00:01:50,429

 Preciso substituir o '.' por ',' e ',' por '.' conforme a máquina
 estiver configurada! Alguém poderia me dar uma dica.

 Att

 Marcos Ferreira



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Criação de selects pelo usuário

2007-04-10 Por tôpico Paulo Alexsandro
como tou com o Delphi aberto aqui, quase 3 da madruga, tá facinho de
responder

tenho instalado aqui no d7 o ActiveQueryBuider, mas ainda não utilizei ele
em nenhum sistema meu


What is Active Query Builder?

Active Query Builder is a visual SQL query builder component that allows
your end-users to build complex SQL queries via an intuitive visual query
building interface easily.

http://www.activequerybuilder.com/index.html

pegue o Active Query Builder VCL Free Edition
http://www.activequerybuilder.com/download.html

só não sei se é esse que foi mencionando aqui na lista

--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 09/04/07, Murillo Proença [EMAIL PROTECTED] escreveu:

   Fala aí galera, blzinha?

 Um tempo atrás eu vi aqui na lista o pessoal falando sobre um
 componente que monta os Selects automaticamente, onde o usuário
 escolhe os campos que quer visualizar, os campos que quer filtrar e aí
 esse componente já monta o Select automaticamente. Só que andei
 pesquisando no histório e não encontrei nada.
 Alguém tem o nome deste componente?

 Vlw, abraço

 Murillo Proença



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Dúvidas sobre backup

2007-04-10 Por tôpico Paulo Alexsandro
HI,

programa baum para fazer backup de GDB

GBAK Scheduler
http://www.comunidade-firebird.org/modules.php?name=Downloadsd_op=viewdownloadcid=20

vc agenda os dias, pode gravar em dois caminhos, definir o número de cópias,
etc.

acredito que vc encontre um aqui que tenha os fontes, aí caso queira, vc
implementa a sua rotina
http://www.firebase.com.br/fb/downloads.php?categ=5

Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 09/04/07, tatianajvieira [EMAIL PROTECTED] escreveu:

   Olá,
 preciso fazer uma rotina que gere um backup de um banco de dados .gdb
 através de uma tabela cliente.Desde já agradeço.



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Semana do ano

2007-04-10 Por tôpico Paulo Alexsandro
HI,

é vero Edu

aproveitei e olhei o Help também

Returns a TDateTime that represents a specified day of a specified week in a
specified year.

Unit

DateUtils

Category

datetime routines

Delphi syntax:

function EncodeDateWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek:
Word = 1): TDateTime;

--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 09/04/07, Edu Nicácio [EMAIL PROTECTED] escreveu:

   Dê uma olhada no Help do Delphi e procure pela unit DateUtils. Há um
 monte de rotinas prontas lá para o que você precisa.

 Abraço.

 --
 Atenciosamente:

 Eduardo Cláudio Nicácio
 Analista Programador
 Fábrica 02 - CTIS
 Tel.: (11) 3150-6834
 [EMAIL PROTECTED] rsn01.web03%40telesp.com.br


 - Original Message -
 From: Natanael Rodrigues
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Thursday, April 05, 2007 11:44 AM
 Subject: [delphi-br] Semana do ano

 Existe componente ou função que retorne de acordo com o número da semana
 do ano e o númedo do dia semana(Seg-Do o dia do calendário?

 Por exemplo:

 A Semana numero: 14
 O dia da Semana: 4

 retornaria 05/04/2007

 Grato.



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Selecionar todos os Registros na Grid

2007-04-10 Por tôpico Paulo Alexsandro
HI,

tem sim um SelectALL

  RxDBGrid1.Options := RxDBGrid1.Options + [dgMultiSelect];
  RxDBGrid1.SelectAll;

--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 09/04/07, Tiago Vendemiatti [EMAIL PROTECTED] escreveu:

 Caros...

 Estou usando o código abaixo para selecionar todos os resgistro em uma
 DbGrid..porém está muito lento..pois ele vai registro a registro..e minha
 tabela tem mais de 200

 Alguém faz de outra forma?

 tipo um SelectALL ??

 Abs.

 Tiago

 var vlLinha: Integer;beginif CheckBox1.Checked = True thenbeginwith
 DBGrid1.DataSource.DataSet dobeginFirst;for vlLinha := 0 to RecordCount -
 1 dobeginDBGrid1.SelectedRows.CurrentRowSelected :=
 True;Next;end;end;DBGrid1.SelectedRows.Refresh;endelsewith
 DBGrid1.DataSource.DataSet dobeginFirst;for vlLinha := 0 to RecordCount -
 1 dobeginDBGrid1.SelectedRows.CurrentRowSelected :=
 false;Next;end;end;DBGrid1.SelectedRows.Refresh;end;


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Importar arquivo CSV

2007-04-10 Por tôpico Paulo Alexsandro
HI,

 O objetivo deste artigo é mostrar um método de importação de arquivos
textos, padrão ASCII, com delimitador, independente da linguagem de
programação utilizada na sua aplicação.

Quem desenvolve sistemas em VB ou Delphi, por exemplo, geralmente depara-se
com a necessidade de importar para um banco de dados, gerenciado pelo Access
ou Paradox entre outros, algumas informações que estão armazenadas em um
arquivo texto, de forma rápida e de fácil adaptação para outras rotinas do
sistema.

continua...
http://linhadecodigo.com.br/artigos.asp?id_ac=354pag=1
--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 10/04/07, Rodrigo Magno [EMAIL PROTECTED] escreveu:

   Delphianos,

 Alguem tem alguma rotina ou função aonde faz a importação de um arquivo
 .csv

 Atenciosamente,

 Rodrigo Magno



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Selecionar todos os Registros na Grid

2007-04-10 Por tôpico Paulo Alexsandro
HI,

digae tiago

Estava desconfiado disso, hehehe

o Grid que utilizo é da biblioteca RxLib, o TRxDBGrid

olhando agora, vi que a biblioteca JEDI, o TJvDBGrid (Paleta jv Data
Controls), também possui a propriedade SelectAll.


Links

RxLib
http://www.delphibr.com.br/download.php

JEDI
http://www.delphi-jedi.org/

qualquer coisa o Google diz mais links.

e precisando é só dizer

--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/


Em 10/04/07, Tiago Vendemiatti [EMAIL PROTECTED] escreveu:

   Fala ae Paulo...
 Eu já deixei setado por default a opção MultSelect...
 Porém a Grid que estou usando não tem essa opção SelectAll.

 Qual componente vc está usando?

 Muito Obrigado

 abs..

 Tiago

 To: [EMAIL PROTECTED] delphi-br%40yahoogrupos.com.brFrom:
 [EMAIL PROTECTED] dprogrammer.listas%40gmail.comDate:
 Tue, 10 Apr 2007 03:15:35 -0300Subject: Re: [delphi-br] Selecionar todos os
 Registros na Grid

 HI,tem sim um SelectALLRxDBGrid1.Options := RxDBGrid1.Options +
 [dgMultiSelect];RxDBGrid1.SelectAll;--Paulo Alexsandro -
 dprogrammerhttp://dprogrammer.wordpress.com/Em 09/04/07, Tiago Vendemiatti
 [EMAIL PROTECTED] tiago.vendemiatti%40hotmail.com
 escreveu: Caros... Estou usando o código abaixo para selecionar todos os
 resgistro em uma DbGrid..porém está muito lento..pois ele vai registro a
 registro..e minha tabela tem mais de 200 Alguém faz de outra forma?
 tipo um SelectALL ?? Abs. Tiago var vlLinha: Integer;beginif
 CheckBox1.Checked = True thenbeginwith 
 DBGrid1.DataSource.DataSetdobeginFirst;for vlLinha := 0 to RecordCount - 1
 dobeginDBGrid1.SelectedRows.CurrentRowSelected :=
 True;Next;end;end;DBGrid1.SelectedRows.Refresh;endelsewith
 DBGrid1.DataSource.DataSet dobeginFirst;for vlLinha := 0 to RecordCount -
 1 dobeginDBGrid1.SelectedRows.CurrentRowSelected :=
 false;Next;end;end;DBGrid1.SelectedRows.Refresh;end;[As partes desta
 mensagem que não continham texto foram removidas]



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Filter dinâmico

2007-04-10 Por tôpico Paulo Alexsandro
HI,

acredito

Em 10/04/07, marcio_cbj [EMAIL PROTECTED] escreveu:

   Pessoal, alguém já precisou trabalhar com filtro dinâmico do
 ClientDataSet.Filter.
 tenho uma aplicação que o usuário faz uma consulta e exibe os dados na
 GRID, com o resultado dessa consulta o usuário pode escolher até três
 campos para fazer o filtro em cima dos valores consultados.
 Sei que é só ir colocando AND após uma condição de filtro, mas como
 fazer?

 Os campos que o usuário escolhe eu coloca em outra grid que contém a
 informação a ser consultada.

 Deu pra entender? Se alguém puder me ajudar.

  



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Impressão de Imagem.

2007-04-10 Por tôpico Paulo Alexsandro
HI,

vc pode criar um form com o quickreport por exemplo, colocar um componente
de imagem

depois carrega a imagem nesse componente e manda imprimir

--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 10/04/07, Régis Bender [EMAIL PROTECTED] escreveu:

   Bom dia Pessoal.
 Tenho uma imagem em um determinado caminho (c:\imagens\imagem.jpg) e
 gostaria de imprimir esta imagem direto pelo delphi sem visualizar.

 Alguém pode me ajudar?

 sds

 Bender Desenvolvimento de Sistemas
 e Serviços Contábeis (Régis)
 (51) 98470699

 Novo Hamburgo/RS
 MSN: [EMAIL PROTECTED] regissk8%40terra.com.br



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Filter dinâmico

2007-04-10 Por tôpico Paulo Alexsandro
HI,

pressionei o tab sem querer e foi o que eu tinha digitado, hehehe

vc vai ter que saber o tipo do campo para montar isso aí, por que se for uma
data vai ter que botar no formato americano e dá um QuotedStr

como vai ser a tela para o usuário escolher os campos que deseja ?

pergunto, porque se tiver uma lista de 10 campo e ele colocar um valor em 3,
aí vc usar um for, testa qual ele informou o valor e e monta a condição

for 1 to 10

  if Length(ValorCampo)  0 then
Condicao := Condicao + NomeCampo = FormataValorCampo(ValorCampo) + ' AND
' ;

end;

depois vc deleta as última 5 posições da string

FormataValorCampo()

é para retornar de acordo com o tipo do campo

é por aí

--
Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 10/04/07, Paulo Alexsandro [EMAIL PROTECTED] escreveu:

 HI,

 acredito

 Em 10/04/07, marcio_cbj [EMAIL PROTECTED] escreveu:
 
Pessoal, alguém já precisou trabalhar com filtro dinâmico do
  ClientDataSet.Filter.
  tenho uma aplicação que o usuário faz uma consulta e exibe os dados na
  GRID, com o resultado dessa consulta o usuário pode escolher até três
  campos para fazer o filtro em cima dos valores consultados.
  Sei que é só ir colocando AND após uma condição de filtro, mas como
  fazer?
 
  Os campos que o usuário escolhe eu coloca em outra grid que contém a
  informação a ser consultada.
 
  Deu pra entender? Se alguém puder me ajudar.
 



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Componente WebCam

2007-04-05 Por tôpico Paulo Alexsandro
já testou esse ?

Capturando imagens da WebCam no Delphi
http://dprogrammer.wordpress.com/2007/01/27/capturando-imagens-da-webcam-no-delphi/

utilizo em um sistema para tirar foto dos funcionários para imprimir crachás

Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 05/04/07, Vinicius Florido [EMAIL PROTECTED] escreveu:

   Estou precisando de um componente freeware ou opensource para tirar
 fotos
 com a webcam para utilizar em um modulo de cadastro...

 Estou procurando e até agora não encontrei nenhum que me agrade... Alguém
 pode dar dicas de algum bom ?




[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Semana do ano

2007-04-05 Por tôpico Paulo Alexsandro
HI,

Estava aqui brincando de implementar essa rotina

Primeiro arrumei uma função para retornar a semana do ano

function TForm1.DateToWeek(Datum:TDateTime; var Year:Word):Word;
var Y,M,D : Word;
FDay : Word;
Days : Integer;
JanF : TDateTime;
begin
  try
DecodeDate(Datum,Y,M,D);
Year:=Y;
JanF:=EncodeDate(Y,1,1);
FDay:=DayOfWeek(JanF);
Days:=Trunc(Int(Datum)-JanF)+(7-DayOfWeek(Datum-1))+(7*ord(FDay in
[2..5]));
Result:=Days div 7;
if Result=0 then begin
  if (DayOfWeek(EncodeDate(Y-1,1,1))5) or
(DayOfWeek(EncodeDate(y-1,12,31))5) then
  Result:=52
  else
  Result:=53;
  Year:=Y-1;
  end else if Result=53 then begin
  if (FDay5) or (DayOfWeek(EncodeDate(Y,12,31))5) then begin
  Result:=1;
  Year:=Y+1;
  end;
end;
  except
Result:=0;
  end;
end;


depois implementei uma rotina para retornar a data com base na semana do ano
e no dia da semana (1=D, 2=S,.., 7=Sab)

procedure TForm1.BitBtn2Click(Sender: TObject);
Var DataDaSemana : TDate;
SemanaDaData : Integer;
SemanaInformada : Integer;
DiaDaDemana : Integer;
Ano : Word;
begin
  Ano := 0;

  SemanaInformada := StrToInt(Edit3.Text);
  DataDaSemana := (SemanaInformada * 7) + StrToDate('01/01/2007');

  // Depois implemente a rotina assim
  // DataDaSemana := (SemanaInformada * 7) + StrToDate('01/01/' +
PegaAnoAtual);

  DiaDaDemana := DayOfWeek(DataDaSemana);

  SemanaDaData := DateToWeek(DataDaSemana, Ano);

  Label1.Caption := DateToStr(DataDaSemana) + ' = (Dia da Semana: ' +
IntToStr(DiaDaDemana) + ') e (Semana do Ano: ' + IntToStr(SemanaDaData) +
')' ;
  Label2.Caption := IntToStr(DiaDaDemana);

  // apenas um teste para saber se a semana da data é maior que a semana
informada
  if SemanaInformada  SemanaDaData then
Label3.Caption := 'Menor';

  // caso a Semana da Data (var DataDaSemana) seja maior que a Semana do Ano
informado
  // e o Dia da Semana seja maior que o informado, repete até encontrar a
Data Correta
  // para o dia da semana informado
  //
  Repeat
DataDaSemana := DataDaSemana - 1;
  Until (DateToWeek(DataDaSemana, Ano) = SemanaInformada) and (Edit4.Text =
IntToStr(DayOfWeek(DataDaSemana)));

  Label4.Caption := DateToStr(DataDaSemana) + ' = (Dia da Semana: ' +
IntToStr(DayOfWeek(DataDaSemana)) + ') e (Semana do Ano: ' +
IntToStr(DateToWeek(DataDaSemana, Ano)) + ')' ;;
end;

tem essa imagem da tela do programinha que fiz
http://img218.imageshack.us/img218/2055/teladiasemanaeu0.jpg

tentei colocar toda a unit no pastebin.com, mas dá erro quando vai incluir

e depois vou ver se tá correta essa função que retorna a semana do ano

é que 07/01/2007 deu semana 1 dia 1, num é semana 2 não ? hehehe

Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 05/04/07, Natanael Rodrigues [EMAIL PROTECTED] escreveu:

   Existe componente ou função que retorne de acordo com o número da semana
 do ano e o númedo do dia semana(Seg-Do o dia do calendário?

 Por exemplo:

 A Semana numero: 14
 O dia da Semana: 4

 retornaria 05/04/2007

 Grato.




[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Operation not applicable

2007-02-03 Por tôpico Paulo Alexsandro
Essa mensagem de erro é familiar, hehehe, só não tava lembrando  o que
ocasionou ela

olhei no google e lembrei que no meu caso foi relacionado ao midaslib.dll

eu adiciono a unit MidasLib no uses do dpr, aí a dll é incorporada ao
executável

e não tem problema de encontrar em outro micro uma midaslib diferente

e o campo do tipo DATE e TIME só funfam no dialect 3

Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com

Em 30/01/07, Rafael Marques [EMAIL PROTECTED] escreveu:


 Boa tarde

 eu tenho alguns sistemas desenvolvido com dbexpress e bd Interbase 6 (ou
 FB 1.5) e/ou dbexpress/Sql Server .

 tem alguns computadores q dão a seguinte msg de erro qdo eu acesso algumas
 tabelas:

 Operation not applicable

 isso acontece em alguns computadores mas n acontece em outros!!! eu
 instalei a mesma versao do Firebird em todas!! ja tentei trocar pelo
 Interbase e nada!!

 eu fiz algo na epoca q ajudou q foi voltar o dialeto pra 1 e mudar os
 campos TimeStamp pra Date ( no caso do IB/FB)!!

 no Sql n funfa d jeito nenhum!!

 esta msg é sempre qdo acesso algum campo tipo Data e em só alguns PCs

 mto obrigado

 Rafael

  



[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Layout extrato bancário

2007-01-07 Por tôpico Paulo Alexsandro
Boa tarde

Alguém sabe aonde consigo o layout de extrato bancário para que eu possa
implementar a importação em um sistema que estou desenvolvendo sobre
controle de finanças pessoais



desde já eu agradeço



Paulo Alexsandro - dprogrammer
dprogrammer.wordpress.com


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Layout extrato bancário

2007-01-07 Por tôpico Paulo Alexsandro
vou fazer, entrarei em contato com os bancos
valeu pela dica

eu vi que no site da caixa tem uma opção do Money, da microsoft
ele gerou um arquivo .ofc com o conteúdo do extrato

olhando a descrição de outros sistemas, vi que alguns arquivos importados
tem a extensão .ofc e .ofx

achei até um componente para ler arquivo no formato OFC
http://www.torry.net/pages.php?id=274

especificação do OFC
http://ferraroa.dyndns.org:8200/MnyBank/help/Specs_Ofc.html

sobre o OFX
http://www.ofx.net/ofx/default.asp


caso eu achei mais coisas sobre o assunto eu coloco aqui

Em 07/01/07, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu:

   Esse layout segue o padrão CNAB, mas ele (o arquivo) varia conforme o
 banco.
 Informe-se com o(s) banco(s) que seu software irá trabalhar a respeito do
 manual de layout do arquivo de conciliação bancária. É desse manual que vc

 irá precisar. Sds.

 From: Paulo Alexsandro [EMAIL PROTECTED]dprogrammer.listas%40gmail.com
 
 Reply-To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Subject: [delphi-br] Layout extrato bancário
 Date: Sun, 7 Jan 2007 17:05:37 -0300

 
 Boa tarde
 
 Alguém sabe aonde consigo o layout de extrato bancário para que eu possa
 implementar a importação em um sistema que estou desenvolvendo sobre
 controle de finanças pessoais
 
 
 
 desde já eu agradeço
 
 
 
 Paulo Alexsandro - dprogrammer
 dprogrammer.wordpress.com
 
 



[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Ç provoca erro em WebService

2006-12-20 Por tôpico Paulo Alexsandro
HI,

estou usando o WebService
http://www.xmethods.net/sd/2001/BabelFishService.wsdl

E quando tento traduzir Heart dá esse erro (notem que para no cora)

Caractere inválido encontrado no texto.

?xml version=1.0 encoding=UTF-8?SOAP-ENV:Envelope xmlns:SOAP-ENC=
http://schemas.xmlsoap.org/soap/encoding/; SOAP-ENV:encodingStyle=
http://schemas.xmlsoap.org/soap/encoding/; xmlns:xsi=
http://www.w3.org/2001/XMLSchema-instance; xmlns:SOAP-ENV=
http://schemas.xmlsoap.org/soap/envelope/; xmlns:xsd=
http://www.w3.org/2001/XMLSchema;SOAP-ENV:Bodynamesp1:BabelFishResponse
xmlns:namesp1=urn:xmethodsBabelFishreturn xsi:type=xsd:stringcora



já tentei mudar aqui a propriedade Converter.Encoding para ISO-8859-1, mas
não adiantou, não consigo resolver essa bronca. estou duas noites caçando a
solução no google e o mais perto que cheguei foi um texto de outra pessoa
com o mesmo problema


desde já eu agradeço


[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] HTTP POST + Google Translator, como ?

2006-12-17 Por tôpico Paulo Alexsandro
HI,

tudo bom PessoALL

estou aqui quebrando a cabeça para pegar o resultado de uma tradução usando
o Google Translator

Achei uma Classe em PHP e como pegar o resultado do metodo POST usando o
delphi

Classe PHP - http://www.phpclasses.org/browse/package/3285.html

invoke a HTTP Post request?
http://www.swissdelphicenter.ch/torry/showcode.php?id=1855


Tento usar o exemplo, mas dá erro de Bad Request. Alguém aqui já pegou o
resultado do google translator ? poderia dizer como se faz ?

vou continuar tentando, caso eu consiga achar a solução, coloco aqui

uses IdMultipartFormData;

procedure TfmPrinc.JvXPButton2Click(Sender: TObject);
var
  data: TIdMultiPartFormDataStream;
begin
  data := TIdMultiPartFormDataStream.Create;
  try
{ add the used parameters for the script }
data.AddFormField('langpair', 'en|pt');
data.AddFormField('text', Memo1.Lines.Text);

{ Call the Post method of TIdHTTP and read the result into TMemo }
Memo2.Lines.Text := IdHTTP1.Post('
http://translate.google.com/translate_t', data);
  finally
data.Free;
  end;

end;


desde já eu agradeço


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Como fazer help?

2006-12-13 Por tôpico Paulo Alexsandro
http://dprogrammer.wordpress.com/2006/03/23/html-help/

usa o HelpNDoc, tem versão free.


Paulo Alexsandro
http://dprogrammer.wordpress.com/

Em 13/12/06, tatianajvieira [EMAIL PROTECTED] escreveu:

   Olá,
 estou precisando fazer um help para o sistema que estou fazendo, alguém
 pode me dar uma dica de como fazer?
 Obrigada,
 Tatiana



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Programação Delphi Para Palm

2006-12-12 Por tôpico Paulo Alexsandro
Utilizo o NSBasic para fazer meus programas para PalmOS

http://www.nsbasic.com/

visita esse site
http://www.clubepda.com.br/index.asp


Paulo Alexsandro
dprogrammer.wordpress.com

Em 11/12/06, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu:


 Não. Eu quero dizer Palm com Sistema Palm Os Garnet 5.4.8 ou outros.

 Não é Windows Mobile... São os sistemas usados no LifeDrive, TX, Zire72 e
 etc...

 Windows Mobile, PocketPC é outra plataforma completamente diferente.

 _




[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Busca por data

2006-12-09 Por tôpico Paulo Alexsandro
Tenta assim

DM.CDSAgendamento.Close;
DM.QryAgendamento.SQL.Clear; //
DM.QryAgendamento.SQL.Text:='SELECT * FROM AGENDAMENTO WHERE COD_ALUNO =
'+pcod+
' and DATA Between ' + QuotedStr(FormatDateTime('dd/mm/yyy', pdtini)) +
' and ' + QuotedStr(FormatDateTime('dd/mm/yyy', pdtfim));

DM.CDSAgendamento.Open;


Paulo Alexsandro
http://dprogrammer.wordpress.com/

Em 08/12/06, Marciot2 [EMAIL PROTECTED] escreveu:



ola pessoal

 Estou tentando fazer uma bucar por data mais da o seguinte erro

 conversion error from string 0

 alguem saber como posso tratar deste erro, abaixo vai a procedure de busca

 DM.CDSAgendamento.Close;
 DM.QryAgendamento.SQL.Clear; //
 DM.QryAgendamento.SQL.Text:='SELECT * FROM AGENDAMENTO WHERE COD_ALUNO =
 '+pcod+
 ' and DATA Between '+DateToStr(pdtini)+
 ' and '+DateToStr(pdtfim)+'';

 DM.CDSAgendamento.Open;

 --
 no delphi compilando passo a passo ele encontra-se desse jeito
 DM.QryAgendamento.SQL.Text:='SELECT * FROM AGENDAMENTO WHERE COD_ALUNO =
 50 and DATA between (12/06/2006) and (31/12/2006)'




[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] ERRO

2006-12-07 Por tôpico Paulo Alexsandro
tenta essas dicas

http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=399mode=threadorder=0thold=0

http://www.webmundi.net/forum/printer_friendly_posts.asp?TID=158


Programa para backup

GBak Scheduler

http://www.comunidade-firebird.org/modules.php?name=Downloadsd_op=viewdownloadcid=20
http://www.comunidade-firebird.org/modules.php?name=Downloadsd_op=viewdownloadcid=20


Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/


2006/12/6, Ana Amélia Souza Pereira [EMAIL PROTECTED]:

   Olá,

 Alguém pode me ajudar com este erro:

 database file appears corrupt{}
 bad checksum
 checksum error on database page 290.

 O que devo fazer para resolver.

 Ana Amélia



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] [off] Quanto vc cobra por hora?

2006-12-05 Por tôpico Paulo Alexsandro
HI,

tudo bom camaradas

vou vender meu peixe aqui, hehehe

Eu fiz um programa para controlar as horas dispensadas em um projeto. É
freeware.

Download
http://baixaki.ig.com.br/site/detail38772.htm

Página que eu fiz para ele
http://dprogrammer.cetasistemas.com.br/timertrab/

Help On-line
http://dprogrammer.cetasistemas.com.br/timertrab/help/timertrab.htm

Um pouco sobre o desenvolvimento dele
http://dprogrammer.wordpress.com/tag/timer-trab/

Não instala nada, não mexe no registro, não coleta informações e não se
conecta à internet.
Utiliza o Mybase (.cds) para armazenar os dados.



Eu usava o Tarifador, mas eu precisava de mais recursos então acabei fazendo
esse. Espero que seja útil.


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Form

2006-12-05 Por tôpico Paulo Alexsandro
você cria um procedure/function no form que vai ser chamado com o código que
vc precisa que seja executado

e no dbgrid, antes de chamar o form ( form.show{modal} ), você chamar a
procedure/function passando o valor

cria form

form.executaalgo(valor);

form.showmodal;
form.release;


Paulo Alexsandro - dprogrammer
http://dprogrammer.wordpress.com/

Em 05/12/06, Ricardo Cabral [EMAIL PROTECTED] escreveu:

   OLá pessoal !

 Utilizo o delphi 7 e problema é o seguinte:

 Renho um dbgrid e gostaria de que no envento do clique duplo um form
 fosse aberto a executasse um evento com um valor vindo do form onde
 está o dbgrid.

 Desde de já agradeço.

 Ricardo Cabral

Mensagens neste tópico
 http://br.groups.yahoo.com/group/delphi-br/message/31103;_ylc=X3oDMTM3YnBjZWVwBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2NTEwNQRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzExNjUzMzM2MTkEdHBjSWQDMzExMDM-(
 6)  Responder (através da web)
 http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJyYzJpcDVzBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BG1zZ0lkAzE2NTEwNQRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzExNjUzMzM2MTk-?act=replymessageNum=165105|
  Adicionar
 um novo tópico
 http://br.groups.yahoo.com/group/delphi-br/post;_ylc=X3oDMTJlZDM0NmxiBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA250cGMEc3RpbWUDMTE2NTMzMzYxOQ--
  
 Mensagenshttp://br.groups.yahoo.com/group/delphi-br/messages;_ylc=X3oDMTJlazBwdTQ1BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA21zZ3MEc3RpbWUDMTE2NTMzMzYxOQ--|
 Arquivoshttp://br.groups.yahoo.com/group/delphi-br/files;_ylc=X3oDMTJmYmFnNG04BF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2ZpbGVzBHN0aW1lAzExNjUzMzM2MTk-|
 Fotoshttp://br.groups.yahoo.com/group/delphi-br/photos;_ylc=X3oDMTJlZ2tiZDkxBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA3Bob3QEc3RpbWUDMTE2NTMzMzYxOQ--|
 Linkshttp://br.groups.yahoo.com/group/delphi-br/links;_ylc=X3oDMTJmZzU5YmkwBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2xpbmtzBHN0aW1lAzExNjUzMzM2MTk-|
  Banco
 de 
 dadoshttp://br.groups.yahoo.com/group/delphi-br/database;_ylc=X3oDMTJjdGk2azZhBF9TAzk3NDkwNDM3BGdycElkAzEwNTg3NzgEZ3Jwc3BJZAMyMTM3MTExMjY0BHNlYwNmdHIEc2xrA2RiBHN0aW1lAzExNjUzMzM2MTk-
  --



[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] Erro ADO + Delphi, loucura, socorro, hehehe

2005-03-10 Por tôpico Paulo Alexsandro

HI,

blz galera

tou aqui quebrando a cabeça de um sistema que tenho
com Access e Delphi utilizando ADO

tá dando esse erro

O provedor atual não oferece suporte para a interface
necessária à funcionalidade Índice

a tabela tem 2 campos e eu coloquei os 2 como chave
primaria

o erro acontece quando uso o Seek

if tabela.seek(ArrayVarOf([v1, v2], SoFirstEQ) then
  dá erro nisso

o interessante é que essa mensagem de erro só acontece
quando eu tou no Delphi, quando executo o sistema pelo
explorer, essa msg não aparece, mas também ele não
localiza, e a chave atende, era para dizer que achou

uso XP prof, o delphi 5 tá com o ADO atualizado

eu nunca que tinha visto esse erro no 98

tive que usar o locate enquanto eu num resolvo essa
parada, hehehe

é preciso eu atualizar o SP2, atualizar o MDAC ?

o que fazer ? hehehe

enquanto eu tava digitando eu tava no windows update e
já vi coisa relacionado a ADO

Atualização de segurança para o Microsoft Data Access
Components (KB832483)

vou mandar esse email e qialquer cosia digo se
funcionou

e desde já agradeço

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377





Yahoo! Mail - Com 250MB de espaço. Abra sua conta!http://mail.yahoo.com.br/


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Re: Capturar evento de minimizar/maximizar formulário

2005-03-08 Por tôpico Paulo Alexsandro

HI,

tem sim

em Public vc declara

  procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;



procedure TForm1.WMSysCommand;
begin

  if (Msg.CmdType = SC_MINIMIZE) then
quando minizar
  else if (Msg.CmdType = SC_MAXIMIZE) then
quando maximizar

  DefaultHandler(Msg);
end;

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377

--- Osmar de Souza Júnior [EMAIL PROTECTED] wrote:
 
 
 
 Para maximizar não tem. Mas acho que o evento
 OnRestore deva servir
 para o que você quer fazer...
 
 Você deve criar 2 rotinas, uma para tratar quando
 a aplicação é
 minimizada, e a outra para quando o usuário
 restaurar a aplicação.
 Essas rotinas devem, obrigatoriamente, ter os
 seguintes parâmetros:
 
 procedure appRestauracao(Sender: TObject);
 begin
 Timer.Enabled := true;
 end;
 
 procedure appMinimiza(Sender: TObject);
 begin
 Timer.Enabled := false;
 end;
 
 Aí, você passa essas rotinas para aplicação, por
 exemplo, no Data
 Module (ao criar);
 
 Application.OnRestore  := appRestauracao;
 Application.OnMinimize := appMinimiza;
 
 Isso deve bastar...
 Que a força esteja com você! 
 
 
 --- Em delphi-br@yahoogrupos.com.br, Andre - Yahoo
 [EMAIL PROTECTED]
 escreveu
  Gostaria de saber se alguem da lista saberia como
 capturar os
 eventos que ocorrem quando minimizo e quando
 maximizo um formulário.
 Preciso saber quando o formulário principal foi
 minimizado para poder
 disparar um TTimer e quando ele for maximizado
 preciso parar o TTimer.
 Alguem pode me ajudar ???
  
  
   André Luis da Silveira
  
Desenvolvedor
  
Latícinios Morrinhos Ind Com Ltda
   
  
  
  [As partes desta mensagem que não continham texto
 foram removidas]
 
 
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
 MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]
  
 Links do Yahoo! Grupos
 
 
 
 http://br.yahoo.com/info/utos.html
 
  
 
 
 
 





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] DbLockup com item nulo

2005-03-01 Por tôpico Paulo Alexsandro

HI,

no RXLib tem um componente para isso, só não lembro o nome (tou sem 
poder abrir o delphi agora senão trava tudo, hehehe ), mas eu uso ele. 
tem uma propriedade que é EmptyValue, tipo vc coloca nessa propriedade 
por exemplo, Escolha um Item Qualquer, aí aparece essa descrição e os 
itens cadastrados

e também vc testa se a opção escolhida foi a do Empty

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic (PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377


angela_cristinaa wrote:

Ola a todos da lista. Caso minha pergunta ja tenha sido respondida
peco desculpas antecipadas.
É que nunca consegui fazer um Dblockup com um item nulo, caso o
usuario nao queria relacionar nenhum item para aquele campo.
Há alguma forma de eu fazer isto? Com ListBox ou outro componente?

Agradeço qualquer dica.





  





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Manipulação de vários TPanels.

2005-02-23 Por tôpico Paulo Alexsandro

HI,

testa assim

TPanel(FindComponent('paQtde' +
IntToStr(Qtde))).Height := 1;

se acorrer erro, acredito que ele tá querendo acessar
um panel que não existe

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377


 --- Rodrigo de Moura [EMAIL PROTECTED]
escreveu: 
 
 Bom dia Senhores,
 
 Tenho o seguinte problema:
 possuo uma query que me retorna a quantidade de
 depósitos de uma determinada
 propriedade. Diante disso mostro ao usuário o volume
 de cada depósito.
 Para visualização desses volumes construi uma série
 de imagens e panels
 onde mostro como está a capacidade de cada depósito.
 Na tela tenho 10 imagens com
 10 panels onde faço os devidos ajustes na altura
 desse panel para mostrar esse volume.
 O meu problema é que quando vou calcular esse volume
 e atribuí-lo à altura do componente
 Panel dá um acess violation. Faço o seguinte:
 
 TPanel(FindComponent('paQtde' +
 IntToStr(Qtde))).Height :=

Trunc(Altura*(1-(ParamByName('@qtd_saldo').AsFloat/Capacidade)));
 
 onde Altura, é a altura fixa dos Panels, @qtd_saldo
 é o volume atual que o depósito possui e
 capacidade é o volume total que cada depósito
 suporta.
 Claro que tenho um for para fazer esse cálculo para
 cada depósito da propriedade caso esta tenha
 mais de um depósito, por isso a variável Qtde é o
 número do respectivo depósito o qual é concatenado
 com a string 'paQtde', que é o nome incial de todos
 os panels, os quais são diferenciados pelo seu
 número,
 ou seja, tenho paQtde1, paQtde2, paQtde3 ... até o
 10.
 Não sei se estou sendo claro na minha dúvida, mas
 qualquer ajuda é válida.
 
 Atenciosamente,
 
 Rodrigo de Moura
 [EMAIL PROTECTED]





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Capturar qual formulario esta ativo, para log de erro.

2005-02-23 Por tôpico Paulo Alexsandro

HI,

tenta este

indica qual o form esta com o foco
Screen.ActiveForm

NomeForm := Screen.ActiveForm.Name;

Acredito que para saber o controle que tava com o foco
seja este

Screen.ActiveForm.ActiveControl

qualquer coisa tu dá uma oiada no help por ActiveForm

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377

 --- adrianolista [EMAIL PROTECTED]
escreveu: 
 
 
 Bom dia!
 
 Como fasso para capturar o nome do formulario que
 esta ativo e gerou 
 erro na minha aplicação?
 
 Estou gerando um rotina de log de erro, so falta
 informar o 
 formulario ativo e qual dos componentes do
 formulario estava ativo.
 
 Atenciosamente
 
 Adriano





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Inserir texto no memo na posição X,Y - como ?

2005-02-21 Por tôpico Paulo Alexsandro

HI,

tudo bom camaradas

tou tentando fazer aquele esquema do IBExpert de
arrastar o campo para o memo onde a pessoa digita a
SQL

quero fazer um esquema para montar a SQL,  já fiz um
tree com as tabelas e seus campos e a parte de digitar
a SQL

só que quando eu arrasto (drag  drop) ele sempre
insere na linha de baixo

gostaria que ele fosse inserido onde está o cursor

tem alguma propriedade do memo para isso, ou eu vou
ter que criar algum esquema para isso ?

já usei Text := Text + String, Insert, Add

desde já agradeço

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Inserir texto no memo na posição X,Y- como ?

2005-02-21 Por tôpico Paulo Alexsandro

HI,

tudo bom camaradas

tou tentando fazer aquele esquema do IBExpert de
arrastar o campo para o memo onde a pessoa digita a
SQL

quero fazer um esquema para montar a SQL,  já fiz um
tree com as tabelas e seus campos e a parte de digitar
a SQL

só que quando eu arrasto ele sempre inseri na linha de
baixo

gostaria que ele fosse inserido onde está o cursor

tem alguma propriedade do memo para isso, ou eu vou
ter que criar algum esquema para isso ?

já usei Text := Text + String, Insert, Add

desde já agradeço

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Inserir texto no memo na posição X,Y - como ?

2005-02-21 Por tôpico Paulo Alexsandro

HI,

consegui resolver essa parada

pesquisei no google por 
drag drop insert text RichEdit

e de cara já veio a solução

http://www.swissdelphicenter.ch/en/showcode.php?id=733

e foi mauls por ter duas msg, eu mandei para outra
lista e coloquei errado o endereço, por isso veio uma
seguunda msg

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377

 --- Paulo Alexsandro [EMAIL PROTECTED]
escreveu: 
 
 HI,
 
 tudo bom camaradas
 
 tou tentando fazer aquele esquema do IBExpert de
 arrastar o campo para o memo onde a pessoa digita a
 SQL
 
 quero fazer um esquema para montar a SQL,  já fiz um
 tree com as tabelas e seus campos e a parte de
 digitar
 a SQL
 
 só que quando eu arrasto (drag  drop) ele sempre
 insere na linha de baixo
 
 gostaria que ele fosse inserido onde está o cursor
 
 tem alguma propriedade do memo para isso, ou eu vou
 ter que criar algum esquema para isso ?
 
 já usei Text := Text + String, Insert, Add
 
 desde já agradeço
 
 Intel +
 
 Paulo Alexsandro - dprogrammer
 O retorno do programador
 http://dprogrammer.cjb.net - Delphi  NSBasic
 (PalmOS)
 
 Orkut - Comunidade Sou Programador
 http://www.orkut.com/Community.aspx?cmm=553377
 
 
   
   
   

___
 
 Yahoo! Acesso Grátis - Instale o discador do Yahoo!
 agora. http://br.acesso.yahoo.com/ - Internet rápida
 e grátis
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
 MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]
  
 Links do Yahoo! Grupos
 
 
 
 http://br.yahoo.com/info/utos.html
 
  
 
 
 
  





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Programa de Help

2005-02-21 Por tôpico Paulo Alexsandro

HI,

HTML Help da microsoft que cria os helps no novo
padrão, os chm, estilo página web

e o helpscrible, esse é das antigasm eu usava no
colegio, caso vc não pague por ele, ele só faz inserir
um link no final do help. ele cria help no formato
antigo, hlp, mas acredito que o mesmo fabricante
possua alguma ferramenta para os help chm

ae mano, tou meio com sono agora, v se tu pega o link
no google, tou quase operando no piloto automático,
hehehe, tou catando aqui no google como colorir
palavras chaves no rich, mas o sono tá sodz, e fois
mausl aí o email, muitos caracteres digitados, hehehe

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377


 --- [EMAIL PROTECTED] escreveu: 
 
 Pessoal, alguém poderia me indicar um programa free
 para a criação de help.
 GRato 





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] JPG no OpenPictureDialog

2005-02-19 Por tôpico Paulo Alexsandro

HI,

declara a Unit JPEG na clausula Uses

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377

 --- Erika Lemes [EMAIL PROTECTED] escreveu: 
 
 Boa tarde pessoal!
  
 Eu gostaria de saber como abrir imagens JPG no
 OpenPictureDialog, pois só consigo abrir imagens
 Bitmap
  
 Obrigado!!
 
   
 -
 Yahoo! Acesso Grátis - Internet rápida e grátis.
 Instale o discador do Yahoo! agora.
 
 [As partes desta mensagem que não continham texto
 foram removidas]
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
 MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]
  
 Links do Yahoo! Grupos
 
 
 
 http://br.yahoo.com/info/utos.html
 
  
 
 
 
  





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Winzip

2005-02-19 Por tôpico Paulo Alexsandro

HI,

cabei de colocar um exemplo desses lá no meu site,
espero que sirva

http://dprogrammer.cjb.net

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377


 --- Adenes I. Freire Junior
[EMAIL PROTECTED] escreveu: 
 
 Utilizo o arj.exe para gerar backup dos banco de
 dados dos meus aplicativos, verifiquei que só
 funciona no windows 98, no XP ele não gerar o
 arquivo de backup.
 
 Pensei em usar o WinZip, como faço para compactar e
 descompactar pelo winzip?
 
 Quais são os comando?
 
 Adenes I. Freire Junior
 
 [As partes desta mensagem que não continham texto
 foram removidas]
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
 MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]
  
 Links do Yahoo! Grupos
 
 
 
 http://br.yahoo.com/info/utos.html
 
  
 
 
 
  





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Impressora Matricial em rede

2005-02-19 Por tôpico Paulo Alexsandro

HI,

acredito que seja na opção Capturar Porta da
Impressora, onde vc relaciona um caminho da rede a uma
porta do micro

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377

 --- Ulisses [EMAIL PROTECTED] escreveu: 
 
 
 Boa noite a todos!
 
 Como faço para imprimir direto para um impressora
 matricial em rede
 usando o código abaixo?
 
 AssignFile(F,Porta);
 Rewrite(F);
 Write(F,'Teste');
 
 Tem jeito?
 
 Grato.
 
 Ulisses

=
Paulo Alexsandro - dprogrammer
http://dprogrammer.cjb.net
Delphi, NSBasic, etc. Fontes, artigos, visitem.





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] depurar SQL, tem como ?

2005-02-19 Por tôpico Paulo Alexsandro

HI,

há muito tempo atrás quando eu estudava C no colegio o
prof. ensinou a escrever na tela para saber oq ue
estava acontecendo com o programa, tipow um debug

então vc poderia criar uma tabale, e dá um insert
antes do update com os valores que vc tá passando para
ele.


BEGIN
   UM INSERT AQUI, PARA CRIAR UM LOG
   UPDATE ESTOQUE SET ESTOQUE = (ESTOQUE -
 NEW.SAIDAS) WHERE CODIGO = 
 NEW.COD_MAT; 
END 


obs: como tou no delphi, eu ainda uso esse esquema, 
hehehe, dificilmente eu uso o debug, uso o
ShowMessage, hehehe

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377

 --- auristonlopes [EMAIL PROTECTED] escreveu:

 
 dados os codigos abaixo pergunto: 
 
 CREATE TRIGGER MovprodBI FOR Movprod ACTIVE BEFORE
 INSERT POSITION 0 
 AS 
 declare variable ES Varchar(1); 
 declare variable MOVIES Varchar(1); 
 declare variable CANCELADA Varchar(1); 
 BEGIN 
 Select ES,MOVIES,CANCELADA from MOVPROD where
 COD_MAT = NEW.COD_MAT INTO 
 :ES, :MOVIES, :CANCELADA; 
 IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND (ES
 = 'S')) THEN 
BEGIN 
   UPDATE ESTOQUE SET ESTOQUE = (ESTOQUE -
 NEW.SAIDAS) WHERE CODIGO = 
 NEW.COD_MAT; 
END 
 ELSE 
IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND
 (ES = 'E')) THEN 
   BEGIN 
  UPDATE ESTOQUE SET ESTOQUE = (ESTOQUE +
 NEW.ENTRADAS) WHERE 
 CODIGO = NEW.COD_MAT; 
   END 
 END 
 
 CREATE TRIGGER MovprodBU FOR Movprod ACTIVE BEFORE
 UPDATE POSITION 0 
 AS 
 declare variable ES Varchar(1); 
 declare variable MOVIES Varchar(1); 
 declare variable CANCELADA Varchar(1); 
 BEGIN 
 Select ES,MOVIES,CANCELADA from MOVPROD where
 COD_MAT = OLD.COD_MAT INTO 
 :ES, :MOVIES, :CANCELADA; 
 IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND (ES
 = 'S')) THEN 
BEGIN 
   UPDATE ESTOQUE SET ESTOQUE = (ESTOQUE +
 OLD.SAIDAS) - NEW.SAIDAS 
 WHERE CODIGO = NEW.COD_MAT; 
END 
 ELSE 
IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND
 (ES = 'E')) THEN 
   BEGIN 
  UPDATE ESTOQUE SET ESTOQUE = (ESTOQUE -
 OLD.ENTRADAS) + 
 NEW.ENTRADAS WHERE CODIGO = NEW.COD_MAT; 
   END 
 END 
 
 CREATE TRIGGER MovprodBD FOR Movprod ACTIVE Before
 DELETE POSITION 0 
 AS 
 declare variable ES Varchar(1); 
 declare variable MOVIES Varchar(1); 
 declare variable CANCELADA Varchar(1); 
 BEGIN 
 Select ES,MOVIES,CANCELADA from MOVPROD where
 COD_MAT = OLD.COD_MAT INTO 
 :ES, :MOVIES, :CANCELADA; 
 IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND (ES
 = 'S')) THEN 
BEGIN 
   UPDATE ESTOQUE SET ESTOQUE = ESTOQUE +
 OLD.SAIDAS WHERE CODIGO = 
 OLD.COD_MAT; 
END 
 ELSE 
IF ((CANCELADA = 'N') AND (MOVIES = 'S') AND
 (ES = 'E')) THEN 
   BEGIN 
  UPDATE ESTOQUE SET ESTOQUE = ESTOQUE -
 OLD.ENTRADAS WHERE 
 CODIGO = OLD.COD_MAT; 
   END 
 END^ 
 SET TERM ;^ 
 
 por que o evento delete funciona e os outros nao
 funciona, se alguem puder 
 me ajudar, me socorra. 
 fiz um teste com o ibexpert e os eventos
 funcionaram, so nao funciona na 
 minha aplicacao, sera que tem uma maneira de depurar
 estes codigos, para que 
 eu veja se ele realmente estao sendo chamados pelo
 BD ??? 
 sds 
 auriston 





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] OFF-TOPPIC - Totalmente desanimado com programação...

2005-02-19 Por tôpico Paulo Alexsandro

HI,

isso aí é verdade, eu mesmo sempre tive em mente
deixar de trabalhar por um salário. além de ser baixo,
vc desenvolve um produto e num ganha nem um parabéns
muitas das vezes, e seu chefe ganha muita grana muita
das vezes.

eu no nivel que tou hj, só aceitaria trabalhar numa
empresa de desenvolvimento se eu tivesse participação
nos lucros

e muitos dos problemas que acontence é de um
programador não trabalhar num empresa de
desenvolvimento, eu tava numa empresa assim, uma
distribuidora. vc nunca é reconhecido quando trabalha
de progamador num empresas assim, caso seus chefe nem
saiba o que vc tá fazendo, hehehe. e se vc entregar o
que ele pede rapinho ele vai achar que seu trabalho é
uma moleza, hauahuauha. sem falar que eu fazia muita
coisa que num tinha nada a ver com programação.

MAS EU SOU BRASILEIRO, NÃO DESISTO NUNCA, hehehe

programar é minha vida

e agora tou tendo a chance de trabalhar em casa (pedi
para sair da empresa, fiquei muito estressado), sem
estresse, só dando gás no produto que desenvolvi, e as
coisas tão começando a melhorar

tenho um socio, eu desenvolvo e ele vende, e tá muito
bom assim.

fazendo um pouco de propaganda, hehehe
http://cetasistemas.no-ip.info

e como agora tou com um pouquinho de tempo disponivel,
tou voltando com meu site sobre programação.

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377

 --- Williams Diaz [EMAIL PROTECTED]
escreveu: 
 
 Felipe,
 
 você está certissimo. Eu já tinha colocado esse
 assunto de salário baixo 
 aqui na lista. Sugestões, o Walter já as deu todas e
 bem explicadinhas 
 (faculdade e especialização-não esqueça). Bom, eu
 sei que nem todo mundo 
 gosta de trabalhar autónomo, mas se você puder
 desenvolva um produto, bom, 
 que possa ser vendido-Nunca mais você vai precisar
 de emprego.
 
 abraços,
 
 williams
 
 *---
 Williams Díaz
 [EMAIL PROTECTED]
 http://www.interban.com.br
 
 - Original Message - 
 From: Felipe Pasqualotto
 [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Friday, February 18, 2005 5:14 PM
 Subject: [delphi-br] OFF-TOPPIC - Totalmente
 desanimado com programação...
 
 
 
 Desculpem o OFF, mas eu recebo os resumos do CEVIU e
 assino a lista
 Delphi-Empregos, sou um programador Delphi/IB-FB a 5
 anos e estou desanimado
 pois vejo na maioria dos e-mail um valor de salário
 baixo para nossa
 profissão, sempre na faixa de 1.000,00 a 1.500,00 (e
 nem cheguei no primeiro
 ainda) e pouquíssimas vezes vi uma salário acima de
 2.000,00.
 Eu só queria saber se a realidade por esse Brasil é
 essa mesma.  Isto cada
 vez mais me leva a crer que estou no ramo errado,
 não que não goste de
 programar, é minha vida programar, mas é uma pena
 que se ganhe tão pouco.
 Claro, lembrando que sou funcionário ou colaborador
 como alguns preferem
 dizer, eu ainda prefiro falar pião e não o patrão.
 
 Caso alguém queira comentar peço que faça em
 private, não quero causar um
 tumulto aqui.
 
 Abraços e sucesso a todos...
 
 Felipe Pasqualotto
 
 
 MSN: [EMAIL PROTECTED]
 YAHOO!: [EMAIL PROTECTED]
 ICQ: 208461306






___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Query

2005-02-19 Por tôpico Paulo Alexsandro

HI,

tudo bom camarada

coloquei 2 apostilas que tratam do uso de SQL,
tabelas, etc.

mas vc poderia por exemplo dizer qual a sua
dificuldade, tipos de como criar uma SQL para ser
usadas com parametros no Delphi, etc.

qualquer coisa eu faço um pequeno exemplo e mando para
teu email

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377

 --- villacortamiguel [EMAIL PROTECTED]
escreveu: 
 
 
 
 Pessoal, alguem possui e poderia enviar algum
 material de como 
 trabalhar com consultas no delphi, segui o conselho
 de muitos e 
 procurei na net, mas achei muito pouco.
 
 Grato Miguel
 
 
 
 
 
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
 MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]
  
 Links do Yahoo! Grupos
 
 
 
 http://br.yahoo.com/info/utos.html
 
  
 
 
 
  





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] [OFF-TOPIC] Ferramenta p/ desenvolver HELP

2005-02-18 Por tôpico Paulo Alexsandro

HI,

vc pode utilizar o HTML Help da microsoft para
desenvolver Help no novo padrão, os Help que são no
estilo HTML

ou no esquema antigo, um bom progama é o HelpScrible

procura no google por Html Help, eu tenho um link de
um site sobre o desenvolvimento de Help utilizando o
padrão do HTML Help para delphi, mas tá me casa

Intel +
Paulo Alexsandro - dprogrammer
http://dprogrammer.cjb.net - Delphi  NSBasic

 --- Jéferson [EMAIL PROTECTED] escreveu: 
 
 Pessoal,
 
 Qual ferramenta devo utilizar para desenvolver
 arquivos de HELP para os meus
 sistemas??? Qual vcs utilizam???
 
 Aceito qualquer sugestão: (software, artigos, links,
 etc...)
 
 Pesso a gentileza que respondam em PVT
 para [EMAIL PROTECTED] para não poluirmos nossa
 lista.
 
 []s
 Jéferson Mehlecke
 
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
 MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]
  
 Links do Yahoo! Grupos
 
 
 
 http://br.yahoo.com/info/utos.html
 
  
 
 
 
  

=
Paulo Alexsandro - dprogrammer
http://dprogrammer.cjb.net
Delphi, NSBasic, etc. Fontes, artigos, visitem.





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Configurações Regionais!!!!

2005-02-17 Por tôpico Paulo Alexsandro

HI,

sempre eu uso para determinar o formato da data, o
ShortDateFormat

ShortDateFormat := 'dd/mm/'

tem vario, pesquisa no help do delphi qe tem muitas
opções

Intel +
Paulo Alexsandro - dprogrammer
http://dprogrammer.cjb.net - Delphi  NSBasic

 --- Andre Nunes [EMAIL PROTECTED] escreveu: 
 
 como faço para configurar via Delphi as
 configurações regionais
 
 
 Andre Nunes
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
 MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]
  
 Links do Yahoo! Grupos
 
 
 
 http://br.yahoo.com/info/utos.html
 
  
 
 
 
  





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Configurações Regionais!!!!

2005-02-17 Por tôpico Paulo Alexsandro

HI,

o problema é que a aplicação dessa maneira muda a
máquina do cliente, e se ele num queiser usar a data
assim, etc

e tem como formatar as tadas, o separador de milhar,
etc, usando comando do delphi mesmo

DecimalSeparator, ShortDateFormat

Intel +
Paulo Alexsandro
http://dprogrammer.cjb.net - Delphi  NSBasic


 --- Ulisses [EMAIL PROTECTED] escreveu: 
 
 Boa tarde!
 
 Utilize a função abaixo para configurar o formato de
 data. Faça o mesmo para os demais itens, basta
 alterar também os demais valores no Registro do
 Windows.
 
 procedure ConfiguracoesRegionais;
 var
   Reg: TRegistry;
 begin
   Reg := TRegistry.Create;
   //HKEY_CURRENT_USER\Control Panel\International
   try
 Reg.RootKey := HKEY_CURRENT_USER;
 if Reg.OpenKey('\Control Panel\International',
 True) then
   begin
   Reg.WriteString('sShortDate','dd/MM/');
   Reg.WriteString('sDate','/');
   Reg.CloseKey;
   end;
   finally
 Reg.Free;
 inherited;
   end;
 end;
 
 Boa sorte.
 
 Ulisses
   - Original Message - 
   From: Andre Nunes 
   To: delphi-br@yahoogrupos.com.br 
   Sent: Thursday, February 17, 2005 11:44 AM
   Subject: [delphi-br] Configurações Regionais
 
 
   como faço para configurar via Delphi as
 configurações regionais
 
 
   Andre Nunes
 
 
 
 [As partes desta mensagem que não continham texto
 foram removidas]
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
 MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]
  
 Links do Yahoo! Grupos
 
 
 
 http://br.yahoo.com/info/utos.html
 
  
 
 
 
  





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Sugestão para Tabelas Pai-Filh o?=

2005-02-16 Por tôpico Paulo Alexsandro

Hi,

vc testa antes se a tabela pai esta em mode de Edit ou
insert

só deixa iniciar o trabalho a tabela filha se a tabela
não estiver em nenhum desses estados

if Not tabela.state in [dsEdit, dsInsert] then

Intel +
Paulo Alexsandro
http://dprogrammer.cjb.net - Delphi  NSBasic

 --- moacirponti [EMAIL PROTECTED] escreveu: 
 
 
 Olá a todos.
 
   Quero sugestões para resolver um problema com
 tabelas pai-filho.  
 Uso Firebird e Delphi 6.
 
   O sistema que estou desenvolvendo possui duas
 tabelas para registro 
 de contas a pagar:
   
   1) CONTASPAGAR
   2) CONTASPAGAR-PARCELAS
 
   A tabela CONTASPAGAR tem como chave primária o
 campo CODIGO, e a 
 tabela CONTASPAGAR-PARCELAS tem chave primária
 composta (CODIGO, 
 PARCELA), sendo que CODIGO também é chave
 estrangeira que referencia 
 CODIGO em CONTASPAGAR.
 
   Quando fiz um formulário para cadastrar Contas a
 Pagar percebi que 
 não poderia fazer assim:
 
   ContasPagar.Insert;
   for i=1 to TotParcelas
  begin
 ContasPagarParcelas.Insert;
 ContasPagarParcelas.Post;
  end;
   ContasPagar.Post;
 
   Isto porque, como não salvei o registro em
 CONTASPAGAR antes de 
 iniciar a inserção das parcelas, o CODIGO ainda não
 existe para ser 
 salvo em CONTASPAGAR-PARCELAS.
 
   Como fazer para contornar este tipo de problema?
 
   Abraços e obrigado,
 
   Moacir.
 
 
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
 MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]
  
 Links do Yahoo! Grupos
 
 
 
 http://br.yahoo.com/info/utos.html
 
  
 
 
 
  





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Time em Firebird...

2005-02-16 Por tôpico Paulo Alexsandro

HI,

o campo é do tipo TIME ou TIMESTAMP

se num me fai a memoria, tipo TIME só no dialect 3

qual msg de erro ?

Intel +

Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net - Delphi  NSBasic
(PalmOS)

Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377

 --- Sávio Cler [EMAIL PROTECTED] escreveu: 
 
 Como faço pra salvar um hora no Firebird pelo
 Delphi? Tudo que tentei deu erro.
 
 Agradeço a todos.
 
 Tentei:
 
   TBLogsDATA.AsString ou   TBLogsDATA.AsFloat ou  
 TBLogsDATA.AsInteger ou   TBLogsDATA.AsDateTime.
 
 Com FB 1.0 + IBX( IBDataSet) + D6
 
   Sávio Cler
   ICQ 142428832
   WWW www.stc.eti.br
   MSN [EMAIL PROTECTED]
   Sto A. de Pádua - Rio de Janeiro
   Contato Pessoal:   (22)9812-0656
 
   ~ ~
 ( @ @ )
   ---o0Oo-(_)-oO0o---
   Precisando de dicas?
www.deephi.rg3.net
   ---
 Mais de 4 downloads
   -ooO---Ooo-
 z
   --
 
 No virus found in this outgoing message.
 Checked by AVG Anti-Virus.
 Version: 7.0.300 / Virus Database: 265.8.8 - Release
 Date: 14/02/2005
 
 
 [As partes desta mensagem que não continham texto
 foram removidas]
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
 MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou
 [EMAIL PROTECTED]
  
 Links do Yahoo! Grupos
 
 
 
 http://br.yahoo.com/info/utos.html
 
  
 
 
 
  





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





Re: [delphi-br] Commit naum commita...

2005-02-11 Por tôpico Paulo Alexsandro

HI,

blz camarada

eu tive problemas assim com o IBX

um mano programador me ensinou a resolver este
problema usando 

  tbExemplo.Transaction.CommitRetaining

  e
 
  tbExemplo.Transaction.RollbackRetaining;

e no componente IBTrabsaction vc define a propriedade
DefaultAction = TACommitRetaining

espero ter ajudado, té +


 --- Filipe [EMAIL PROTECTED] escreveu: 
 
 
  olá... uso FB + D7 + IBX e estou com o seguinte
 problema:
 
   tenho um cadastro de pessoas no que faço:
 
   if Not transaction.InTransaction then
 Transaction.startTransaction;
 
   try
 with query do
 begin
   close;
   sql.clear;
   sql.add(insert into blablabla);
   execSql;
 
   close;
   sql.clear;
   sql.add(insert into blablabla);
   execSql;
 
   close;
   sql.clear;
   sql.add(insert into blablabla);
   execSql;
 end;
 transaction.CommitRetaining; - usar assim
 showmessage('Comitou!');
 
   except
   transaction.RollbackRetaining; - usar assim
   showmessage('Não Comitou!');   
   
   end;
 
   Coloquei breakpoints, o editor passa pelo
 commit normalmente, mas 
   logo depois, preciso fazer uma consulta com
 esses dados, e o dado recém inserido naum aparece,
 ou melhor, as vezes aparece e as vezes naum!!!
   Existe alguma forma de commitar mais
 eficazmente?
 
   Alguém jah passou por isso???
 
   No Aguardo, Obrigado!!!
 
 
 
 
 
   
   Filipe Geyer
   Programador
   [EMAIL PROTECTED]
   www.bludata.com.br

=
Paulo Alexsandro - dprogrammer
http://dprogrammer.cjb.net
Delphi, NSBasic, etc. Fontes, artigos, visitem.





___ 
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora. 
http://br.acesso.yahoo.com/ - Internet rápida e grátis


-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 




[delphi-br] Gerador de Relatórios para incluir na aplicação

2005-02-10 Por tôpico Paulo Alexsandro


HI,

blz galera

alguém conhece algum gerador de relatório que eu possa incluir em
qualquer aplicativo meu ?

que seja possivel imprimir para windows e matricial, tipos o fortesreport

mas eu tou querendo um que o usuário possa fazer seus próprios relatórios

se alguém souber de algum exemplo ou um que esteja a venda, eu agradeço

vou testar o Scribes 3.1 http://scribes.ipnetwork.eti.br/

desde já agradeço





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Re: Mapear etiquetas

2005-02-10 Por tôpico Paulo Alexsandro


HI,

para os registros que vc não queira imprimir, vc deixa os campos em
branco, grava apenas os dados das etiquetas que vc deseja

tipow

imprimir as etiquetas 1 e 3

grava assim

1 - teste - rua tal
2 - null - null
3 - etiqueta 3 - rua sei lá

Intel +
Paulo Alexsandro - dprogrammer
http://dprogrammer.cjb.net - Delphi  NSBasic


--- Em delphi-br@yahoogrupos.com.br, [EMAIL PROTECTED] [EMAIL PROTECTED] 
escreveu
 Faala,
 seguinte to tentando fazer um relatório com etiquetas,
mas queria fazer com a pessoa que está usando, pudesse escolher em
qual etiqueta os dados irão ser impressos, caso estejam faltando
etiquetas na folha. Já penssei em algoi, mas queria saber dos amigos
se já viram ou tem alguma idéia de como fazer.
 
 falowss.
 
 [As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Re: Tabela de país

2005-02-10 Por tôpico Paulo Alexsandro


HI,

tenta pegar do código HTML de algum site

depois vc utilizar o comando Substituir do wordpad para remover as
TAGS e deixa somente os nomes dos países

Intel +
Paulo Alexsandro - dprogrammer
http://dprogrammer.cjb.net - Delphi  NSBasic


--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva ® [EMAIL PROTECTED]
escreveu
 Galera, alguém tem uma tabela com todos os países que poderia estar me
 enviando.
 
 Obrigado
 
  _  ___  _
 / )|   |( \
/ / | Eduardo de Almeida Silva  | \ \
  _( (_ |  _[EMAIL PROTECTED] _  | _) )_
 (((\ \)|_/ )___( \_|(/ /)))
 ( \_/ / \ \_/ )
  \   /   \   /
   \_/ \_/
   /   / \   \





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

 





[delphi-br] Re: Abatimento

2005-02-10 Por tôpico Paulo Alexsandro


HI,

vc tem que criar um esquema de Baixa Parcial

vc vai gravar um registro como se estivesse baixando os prego dele,
vai ter um campo com o valor total da dívida e outro com o valor
baixado, isso relacionado ao documento que originou o prego

quando ele for efetuar outro pagamento, vai se a mesma coisa se não
quitar a dívida, vai ser outra baixa parcial

ou seja, documento 002365, vai ter dois registro relacionados a ele
002365 - R$250,00
  Pagamentos para 002365
 R$200,00
 R$50,00 

isso vai envolver Flags, etc.

e para saber os registros liquidados, é só somar os valores pagos do
registros de baixa parcial e verificar se bate com o valor total

acredito que seja +/- isso

Intel +
Paulo Alexsandro - dprogrammer
http://dprogrammer.cjb.net - Delphi  NSBasic




--- Em delphi-br@yahoogrupos.com.br, Anderson de Oliveira Furtilho -
BR3 [EMAIL PROTECTED] escreveu
 Saudações caros amigos da lista!!!
 
  
 
  
 
  
 
 Preciso criar um tipo de abatimento em saldo devedor e nem tenho
idéia em
 como fazer.
 
  
 
 Exemplo.
 
  
 
 
 Chave
 
 Remédio
 
 Valor
 
 
 002
 
 Novalgina
 
 30,00
 
 
 003
 
 Doril
 
 50,00
 
 
 004
 
 Anador
 
 55,00
 
  
 
 O Cliente Antonio deve esses medicamentos acima e ele vem pagar a
continha
 na farmácia e da apenas 60,00 para descontar
 
 No que ele esta devendo.
 
  
 
 Como devo proceder para dar um abatimento na conta dele e ainda ficar
 devendo o restante.
 
  
 
 Alguém provavelmente já passou por isso e se puder me ajudar ficarei
 agradecido pois não tenho idéia nenhuma do que poderia ser feito.
 
  
 
 Uso Delphi/FireBird
 
  
 
 Se alguém tiver algum exemplo e me indicar onde posso pegar ficarei
 agradecido.
 
  
 
  
 
 Um forte abraço a todos
 
  
 
 Anderson
 
 
 
 [As partes desta mensagem que não continham texto foram removidas]





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html