Re: Res: Res: [delphi-br] Unidades Mapeadas e Firebird
Você não entendeu. Não sou EU quem coloca o caminho como \\carlos-6a1ff64\c\sistema\sistema.fdb, é o componente pra selecionar arquivos que traz ele assim. Isso se \\carlos-6a1ff64\c não tiver sido remapeado pra algo como J:. Nesse caso o usuário poderia selecionar J:\sistema\sistema.fdb. O que eu queria saber é como transformar J:\sistema\sistema.fdb para carlos-6a1ff64:c:\sistema\sistema.fdb, já que converter \\carlos-6a1ff64\c\sistema\sistema.fdb seria fácil. --- Em delphi-br@yahoogrupos.com.br, Robson [EMAIL PROTECTED] escreveu O erro está depois do nome da maquina, seu: \\carlos-6a1ff64\ c\sistema\ sistema.fdb correto: carlos-6a1ff64: c:\sistema\ sistema.fdb eu naum uso as duas barras, mas funciona tb. Kaputz, Robson Skype: kaputz_gri Não pude escolher muitas coisas que nasceram comigo, mas posso escolher meu amigo..E nessa busca empenho a minha própria alma, pois com uma Amizade Verdadeira, a vida se torna mais simples, mais rica e mais bela... Charlie Chaplin . Keep the Dream Alive
[delphi-br] Pedindo informações extras no Inno Setup
Quero pedir o endereço do servidor de uma rede na instalação de um cliente usando Inno Setup e passar ele para um programa na seção [Run], mas não está dando certo. Alguém sabe o modo correto de fazer isso? Já procurei no Google e não consegui nada.
[delphi-br] Re: Soma SELECT
Vou assumir que você esteja usando Firebird, porque tive o mesmo problema com ele. O valor NULL no Firebird representa um valor desconhecido. Qualquer valor somado à um valor desconhecido é um valor desconhecido, então: 1 + NULL = NULL 'JOSÉ' || NULL = NULL e assim por diante. Solução: use coalesce(campo, 0) em operações em que o campo possa ter valor NULL. Seu (credito-debito) fica (coalesce(credito, 0)-coalesce(debito, 0)) --- Em delphi-br@yahoogrupos.com.br, wellingtonamsantos [EMAIL PROTECTED] escreveu select contasrecebimento.codigoconta,contasrecebimento.descricaoconta,SUM(recebimento.valor) as credito, SUM(pagamento.valor) as debito from contasrecebimento left join recebimento on recebimento.codigoconta=contasrecebimento.codigoconta left join pagamento on pagamento.codigoconta=contasrecebimento.codigoconta group by contasrecebimento.codigoconta,contasrecebimento.descricaoconta ola a todos... nao consigo criar um coluna com o resultado de (credito-debito) pq alguns valores sao null .. alguem tem ideia do que aconteca??? grato. well.
[delphi-br] Re: Envio de Relatório PDF por E-mail
Usando Indy 10 var cnt : Integer; idtTextPart : TIdText; begin IdSMTP1.Host := 'smtp.servidor.com'; IdSMTP1.Port := 25; // porta do servidor IdSMTP1.Username := 'usuário'; IdSMTP1.Password := 'senha'; try IdSMTP1.Connect; IdMessage1.ClearHeader; IdMessage1.ClearBody; IdMessage1.Recipients.Clear; //talvez uma das duas linhas abaixo seja supérflua IdMessage1.From.Address := '[EMAIL PROTECTED]'; IdMessage1.Sender.Address := '[EMAIL PROTECTED]'; IdMessage1.Recipients.Add.Address := '[EMAIL PROTECTED]'; IdMessage1.ContentType := 'multipart/mixed'; IdMessage1.Subject := 'Assunto'; // as três linhas não comentadas abaixo são opcionais, caso queira colocar algo em html // (não sei se todos os programas de email visualizam PDF) idtTextPart:= TIdText.Create(IdMessage1.MessageParts,nil); idtTextPart.ContentType := 'text/html'; idtTextPart.Body.LoadFromFile('arquivo.html'); //aruivo PDF vai aqui TIdAttachmentFile.Create(IdMessage1.MessageParts, 'Arquivo.pdf'); IdSMTP1.Send(IdMessage1); IdSMTP1.Disconnect; end; --- Em delphi-br@yahoogrupos.com.br, Jorge Ericsson [EMAIL PROTECTED] escreveu Olá amigos, Meus relatórios são baseados em um template e gostaria de acrescentar um botão no mesmo, para envio do relatório em pdf para o cliente que possuir e-mail cadastrado no banco. Então a lógica é o seguinte: Selecionar o cliente e gerar o relatório com suas informações; Checar na abertura no relatório se o mesmo possui um e-mail cadastrado e liberar o botão de envio. Ao clicar no botão, gerar um arquivo PDF do relatório e enviar automáticamente ao cliente e aguardar o retorno que mesmo sendo enviado. Alguém já desenvolveu algo parecido ou pode passr alguma dica ? []´s Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Unidades Mapeadas e Firebird
Tem como fazer com que uma máquina cliente consiga usar um banco de dados firebird localizado em c:\sistema\banco_de_dados.fdb no servidor quando é informado no cliente f:\sistema\banco_de_dados.fdb? Meu chefe insiste que configurou um dos nossos programas que utiliza firebird em várias máquinas de uma rede dessa forma, mas não encontro nenhuma pista de como isso é possível no código.
Re: Res: [delphi-br] Unidades Mapeadas e Firebird
Sim, eu sei que dá pra fazer assim, mas meu chefe quer que que os usuários possam usar um FilenameEdit (da RX) pra selecionar o arquivo do banco de dados, e esse componente vai mostrar o caminho como o windows mapear ele na rede. Quer dizer, no meu servidor de teste, o banco está em C:\sistema\sistema.fdb No cliente de teste, ele aparece como \\carlos-6a1ff64\c\sistema\sistema.fdb ou J:\sistema\sistema.fdb E nenhuma das duas últimas opções funcionam com o firebird. O que preciso saber é se tem alguma opção que faria com os dois últimos caminhos fossem aceitos, ou como transformar um deles em 192.168.0.1:c:\sistema\sistema.fdb É possível? --- Em delphi-br@yahoogrupos.com.br, Robson [EMAIL PROTECTED] escreveu Sem nome, O caminho para o banco de dados em rede vc pode utilizar desta forma ipservidor:caminho_no_servidor exemplo 192.168.0.1:c:\sistema\banco_de_dados.fdb lebrando q é o caminho do servidor e tb q se tiver com o firewall ativo liberar a porta 3050, porta de serviço do firebird, e naum há necessidade de mapear unidades. Kaputz, Robson Skype: kaputz_gri Keep the Dream Alive
[delphi-br] Conexões ativas.
Dá pra saber quantas conexões com um banco de dados firebird estão ativas? Como?
[delphi-br] Re: JEDI no Turbo Delphi Professional, como?
--- Em delphi-br@yahoogrupos.com.br, Daniel Lucena [EMAIL PROTECTED] escreveu Olá senhores, Tenta baixar o pacote disponível na seguinte página: http://cc.borland.com/item/24146 Acabo de comprar o Turbo Delphi e não consigo instalar os componentes JEDI no mesmo. Ele não encontra o dcc32.exe porque não vem no Turbo Delphi. Existe alguma forma de instalar o JEDI que não seja componente por componente no Turbo Delphi? Obrigado a todos! Daniel Vitor Eng. de Computação Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/
[delphi-br] Problema com OnEnter
Alguém já teve problemas com o OnEnter de algum descendente do TEdit sendo disparado duas vezes? Preciso pedir uma senha quando tentam alterar o conteúdo de um RXCalcEdit, e quando tentam cancelar, a senha é pedida de novo.
[delphi-br] Re: DBGrid - cores - problemas para visualizar (desculpem)
Já tentou usar a propriedade Focused da DBgrid? --- Em delphi-br@yahoogrupos.com.br, Jefferson - Fórum [EMAIL PROTECTED] escreveu Pessoal, boa tarde! Consigo alterar a fonte e o fundo da célula de um DBGrid, mas não estou conseguindo fazer o seguinte: - Tenho 3 Grid's na mesma tela, cada um tem cores que significam alguma coisa. O problema é que quando mudo a cor da fonte, a célula que está com foco não fica muito visível . Eu gostaria que a célula que está com foco, fique com o fundo azul e a fonte branca. Mas que quando eu sair desse grid e ir ao outro, a última célula volte às cores padrão. Pois nos meus testes, a última célula fica parecendo que ainda está com foco. Alguém pode me ajudar nisso? Espero ter sido claro em minha dúvida e me desculpem voltar nesse assunto novamente. Obrigado, e bom trabalho a todos! Jefferson [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: DBGrid - cores - problemas para visualizar (desculpem)
Você deve estar usando o OnDrawColumnCell para pintar as células como quer, não é? Se estiver, você testaria DBGrid1.Focused no mesmo lugar em que testa se a célula está com foco (ou selecionada). --- Em delphi-br@yahoogrupos.com.br, Jefferson - Fórum [EMAIL PROTECTED] escreveu Não. Mas como eu usaria essa função? Pois estou querendo deixar a célula com fonte branca e fundo azul (como no padrão), e quando eu sair desse grid, gostaria que a última célula ativa não ficasse marcada, parecendo que está com foco. - Original Message - From: blcksun954 To: delphi-br@yahoogrupos.com.br Sent: Friday, October 26, 2007 12:18 PM Subject: [delphi-br] Re: DBGrid - cores - problemas para visualizar (desculpem) Já tentou usar a propriedade Focused da DBgrid? --- Em delphi-br@yahoogrupos.com.br, Jefferson - Fórum t_object@ escreveu Pessoal, boa tarde! Consigo alterar a fonte e o fundo da célula de um DBGrid, mas não estou conseguindo fazer o seguinte: - Tenho 3 Grid's na mesma tela, cada um tem cores que significam alguma coisa. O problema é que quando mudo a cor da fonte, a célula que está com foco não fica muito visível . Eu gostaria que a célula que está com foco, fique com o fundo azul e a fonte branca. Mas que quando eu sair desse grid e ir ao outro, a última célula volte às cores padrão. Pois nos meus testes, a última célula fica parecendo que ainda está com foco. Alguém pode me ajudar nisso? Espero ter sido claro em minha dúvida e me desculpem voltar nesse assunto novamente. Obrigado, e bom trabalho a todos! Jefferson [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Comunicação com PABX
O problema é que no momento não tenho acesso a um PABX, e mesmo que tivesse não basta poder usar um único modelo, preciso planejar alguma flexibilidade para usar vários modelos diferentes, usando ou arquivos de configuração ou DLLs. --- Em delphi-br@yahoogrupos.com.br, Marcos Abreu Ferreira [EMAIL PROTECTED] escreveu O mais fácil seria montar um programa que le-se a porta serial e ir interpretando as informações que você receber. Tentei algumas vezes procurar manual e nada. As centrais PABX que mais vejo sao da Siemens Att,Marcos Abreu FerreiraSão Paulo To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Wed, 12 Sep 2007 14:27:32 +Subject: [delphi-br] Comunicação com PABX Sei que aparelhos de PABX usam a serial para se comunicar com ocomputador, e que cada marca e modelo tem um padrão diferenteO que quero saber é quais são as marcas e modelos mais comuns e ondeconseguir conseguir os manuais necessários pra eles. Alguém sabe? _ Explore the seven wonders of the world http://search.msn.com/results.aspx?q=7+wonders+worldmkt=en-USform=QBRE [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como saber se uma janela aberta com Show foi fechada?
Precisei fazer uma janela que é aberta com o método Show, e agora preciso saber quando ela é fechada. NÃO posso usar ShowModal. Alguém tem alguma idéia? Mais uma coisa: alguém mais não está recebendo emails da lista? De dois dias pra cá não recebi mais nada.
[delphi-br] [Off-Topic] Programa para criar demos em vídeo
Alguém conhece um programa para criar videos de demonstração que seja fácil de usar?
[delphi-br] Pergunta sobre SQL
Tem como pegar o resultado de um sql que esteja desta forma: conta | mes | valor 101 | jan | 100,00 101 | fev | 250,00 101 | mar | 3000,00 101 | mai | 40,00 e deixar desta forma: conta | jan| fev| mar | mai 101 | 100,00 | 250,00 | 3000,00 | 40,00 É possível fazer isso?
[delphi-br] Re: Pergunta sobre SQL
Imaginei que poderia fazer isso com um clientdataset, mas quis perguntar pra garantir que não havia meio mais simples. Obrigado pela resposta. --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu O que vc quer fazer é uma espécie de referência cruzada, ou tabela cross-tab. Não existem recursos no SQL ANSI (padrão) que permitam fazer isso. Geralmente, se parte para a criação dessas tabelas de forma manual, ou pelo banco de dados, através de tabelas temporárias (quando o SGBD suporta este feature), ou então quando se faz essa criação na aplicação cliente, criando um clientdataset (por exemplo) com a configuração de linhas e colunas necessárias, ou então se usa um componente visual que faça esta tarefa (já vi componentes descendentes de TDBGrid que desenham as linhas de dados de forma vertical, e não horizontal!). Pesquise sobre os itens mencionadas no Google, AltaVista, etc. e com certeza vc vai achar mais comentários para fundamentar uma solução para o seu problema. Sds. To: [EMAIL PROTECTED]: [EMAIL PROTECTED]: Sat, 28 Jul 2007 16:39:47 +Subject: [delphi-br] Pergunta sobre SQL Tem como pegar o resultado de um sql que esteja desta forma:conta | mes | valor101 | jan | 100,00101 | fev | 250,00101 | mar | 3000,00101 | mai | 40,00 e deixar desta forma:conta | jan | fev | mar | mai101 | 100,00 | 250,00 | 3000,00 | 40,00É possível fazer isso? _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Instalação simplificada para o firebird
Alguém sabe de alguma versão mais simplificada do instalador do servidor do firebird, sem nenhuma opção modificável, ou pelo menos como eu poderia fazer um?
[delphi-br] Criando componente visual
Estou tentando fazer um componente pra gráfico de barras, porque o TeeChart que vem como o Delphi está me atrapalhando mais do que ajudaf e não encontrie outro que sirva pro que eu quero, e apareceu uma dúvida. Eu derivei o componente do TPanl, e pretendo fazer o desenho do gráfico em um TImage dentro dele, só que não sei como fazer para o TImage aparecer, e desenhar no Canvas do TPanel também não deu certo. Alguém tem alguma idéia?
[delphi-br] JvAVICapture e ShowModal
Coloquei o JvAviCapture num form que exibo com ShowModal e ele simplesmente trava o programa, sem sequer desenhar por completo a nova janela. Se for pra usar Show, vou ter de fazer modificações em outras partes do código pra impedir que o código continue antes das janelas serem fechadas. Alguém tem alguma idéia de como resolver?
[delphi-br] Re: JvAVICapture e ShowModal
Ignorem esse e-mail. Resolvi colocando o JvAviCapture invisível até a hora de ajustar a propriedade previewing dele para True. --- Em delphi-br@yahoogrupos.com.br, blcksun954 [EMAIL PROTECTED] escreveu Coloquei o JvAviCapture num form que exibo com ShowModal e ele simplesmente trava o programa, sem sequer desenhar por completo a nova janela. Se for pra usar Show, vou ter de fazer modificações em outras partes do código pra impedir que o código continue antes das janelas serem fechadas. Alguém tem alguma idéia de como resolver?
[delphi-br] Re: Fortes Reports no Turbo Delphi
Eu consegui compilar ele no Turbo Delphi Explorer, não sei se é isso que você quer. --- Em delphi-br@yahoogrupos.com.br, Marcelo Moacir Florindo [EMAIL PROTECTED] escreveu Colegas, Alguém conseguiu instalar o Fortes Report no Turbo Delphi???/ Obrigado, -- Marcelo Moacir Florindo
Re: RES: RES: [Spam] [delphi-br] DSPack
Na verdade não ajuda, porque o problema era justamente o componente pra captura, mas isso resolvi alguns minutos atrás, quando achei um jeito de fazer a captura com o componente da JEDI, coisa que não achei que era possível. Caso interesse a alguém: Em um botão coloque o seguinte: begin JvAVICapture1.Connect(0); JvAVICapture1.Previewing := True; end; para conectar a primeira camera disponível e em outro botão: begin JvAVICapture1.CaptureFrame; JvAvicapture1.ApplyCaptureSettings; JvAViCApture1.SaveDIB('c:/bmp.bmp'); JvAVICapture1.connect(-1); end; para capturar em um arquivo bmp. Daí basta carregar onde quiser. --- Em delphi-br@yahoogrupos.com.br, Valdir Sola [EMAIL PROTECTED] escreveu Faça da seguinte forma: Coloque junto c/ o componente um TImage. Altere o nome p/ FOTO. Vou supor o nome do componente de captura c/ sendo CAMERA. Faça as seguintes Declarações na sua seção uses da sua unit: JPEG,CLIPBR ... Desta forma vc pode pegar um ScreenShot da câmera. O TImage usei apenas p/ exemplo. Através deste exemplo vc pode adaptar da maneira q achar melhor. Espero q possa ajudá-lo. Abs! Valdir -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] Em nome de blcksun954 Enviada em: sexta-feira, 15 de junho de 2007 18:49 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [Spam] [delphi-br] DSPack Já conheço ele. O problema é que preciso poder capturar um screen shot da câmera quando o usuário clicar em um botão, e não achei como fazer isso com o componente da JEDI. O DSPack eu sei que faz isso, mas não sei nem o básico dele, ainda estou tentando entender os exemplos, mas tá dificil. --- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br, Valdir fastbyte@ escreveu Só serve este? Eu uso um componente da JEDI Library que além de ser muito bom e fácil de usar tem também os exemplos. Abs Valdir _ E-mail classificado pelo Identificador de Spam Inteligente. Para alterar a categoria classificada, visite o Terra Mail http://mail.terra.com.br/cgi-bin/ imail.cgi?+_u=fastbyte_l=1,1181944228 .22442.9092.camenana.hst.terra.com.br,15870,Des15,Des15 _ Esta mensagem foi verificada pelo E-mail Protegido Terra http://mail.terra.com.br/ . Scan engine: McAfee VirusScan / Atualizado em 15/06/2007 / Versão: 5.1.00/5054 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DSPack
Alguém sabe me dizer como usar o DSPack pra fazer captura de vídeo com uma webcam? E por favor, não me dêem o link praquele tutorial em francês, nem digam pra olhar as demos que vem com ele, eu não consegui entender nenhum dos dois.
Re: RES: [Spam] [delphi-br] DSPack
Já conheço ele. O problema é que preciso poder capturar um screen shot da câmera quando o usuário clicar em um botão, e não achei como fazer isso com o componente da JEDI. O DSPack eu sei que faz isso, mas não sei nem o básico dele, ainda estou tentando entender os exemplos, mas tá dificil. --- Em delphi-br@yahoogrupos.com.br, Valdir [EMAIL PROTECTED] escreveu Só serve este? Eu uso um componente da JEDI Library que além de ser muito bom e fácil de usar tem também os exemplos. Abs Valdir
[delphi-br] Re: StringGrid
Deixa pra lá, já achei um jeito de resolver. Pra quem queira saber, foi isso aqui o que encontrei: Const NoSelection : TgridRect = (Left:-1; Top:-1; Right:-1; Bottom:-1 ); StringGrid1.Selection := NoSelection; (* No evento desejado. No meu case, oncreate do form*) --- Em delphi-br@yahoogrupos.com.br, blcksun954 [EMAIL PROTECTED] escreveu Tem como fazer com que nenhuma célula (nem linha) de uma StringGrid seja mostrada como selecionada enquanto o usuário não entrar na StringGrid(seja clicando com o mouse ou navegando com tab)?
[delphi-br] Problemas com midas.dll
Estou com um sistema que usa midas.dll, e fiz um instalador que instala o banco de dados e o executável em um diretório próprio, e uma cópia da midas.dll no c:\windows\system32, que é registrada com um programa chamado minireg. O problema é que não está funcionando em todos os computadores. Eu tentei instalar em um computador com windows 98 e funcionou perfeitamente. Depois tentei em um notebook usando XP e parece que a midas.dll não funcionou. Finalmente, instalei em um desktop rodando Windows XP e funcionou de novo. Alguma idéia de porque não está funcionando em qualquer computador que eu instale?
[delphi-br] Re: Problemas com midas.dll
Isso funciona no Delphi 5? (Esqueci de dizer a versão do Delphi que eu uso). --- Em delphi-br@yahoogrupos.com.br, Claudiney Cogo - Listas [EMAIL PROTECTED] escreveu Acrescente a biblioteca MidasLib na uses do seu form principal e não será mais necessário se preocupar em enviar a Midas.dll. Ela estará incluída no seu sistema. Abraços Claudiney Cogo N2 Sistemas e Soluções em Informática Ltda. Av. São Paulo, 172 - 15º Andar - Sala 1505 CEP 87013-908 - Maringá - Pr Tel. 44- 3222-6053 [EMAIL PROTECTED] - Original Message - From: blcksun954 To: delphi-br@yahoogrupos.com.br Sent: Friday, March 30, 2007 5:46 PM Subject: [delphi-br] Problemas com midas.dll Estou com um sistema que usa midas.dll, e fiz um instalador que instala o banco de dados e o executável em um diretório próprio, e uma cópia da midas.dll no c:\windows\system32, que é registrada com um programa chamado minireg. O problema é que não está funcionando em todos os computadores. Eu tentei instalar em um computador com windows 98 e funcionou perfeitamente. Depois tentei em um notebook usando XP e parece que a midas.dll não funcionou. Finalmente, instalei em um desktop rodando Windows XP e funcionou de novo. Alguma idéia de porque não está funcionando em qualquer computador que eu instale? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Sobre atalhos
Eu crio um arquivo de configuração no diretório onde meu programa está sendo executado. Até aqui tudo bem. O problema: se o programa for executado pela primeira vez a partir de um atalho, ele cria o arquivo de configuração na area de trabalho. Tem como descobrir se um executável está sendo executado diretamente ou através de um atalho?
[delphi-br] Re: Sobre atalhos
É isso mesmo que estou usando. Tem alguma forma melhor de descobrir o caminho para o executável? --- Em delphi-br@yahoogrupos.com.br, Edu Nicácio [EMAIL PROTECTED] escreveu Estranho isso... está usando ExtractFilePath(Application.ExeName) para pegar o diretório do executável? Pode estar aí o problema... Abraço. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: blcksun954 To: delphi-br@yahoogrupos.com.br Sent: Thursday, March 15, 2007 2:55 PM Subject: [delphi-br] Sobre atalhos Eu crio um arquivo de configuração no diretório onde meu programa está sendo executado. Até aqui tudo bem. O problema: se o programa for executado pela primeira vez a partir de um atalho, ele cria o arquivo de configuração na area de trabalho. Tem como descobrir se um executável está sendo executado diretamente ou através de um atalho? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: RES: Pintar StringGrid
Tive de fazer o mesmo meses atrás. Eu mandaria meu código, mas ele não ficou grande coisa. O que eu fiz foi derivar um componente a partir da TStringGrid, incluir um array bidimensional para as cores das células, e reescrever o método DrawCell pra pintar as células ANTES de colocar o texto. Meu método DrawCell ficou assim: var TheText : String; begin if (ACol 0) and (ARow 0) then begin DefaultDrawing := True; Canvas.brush.Color := arrayColors[ARow, ACol]; Canvas.FillRect(ARect); end; TheText := Cells[ACol, ARow]; with ARect, Canvas do TextRect(ARect, Left + (Right - Left - TextWidth(TheText)) div 2, Top + (Bottom - Top - TextHeight(TheText)) div 2, TheText); end; onde arrayColors é, obviamente, o array bidimensional de TColor. --- Em delphi-br@yahoogrupos.com.br, Bruno Stort [EMAIL PROTECTED] escreveu Galera estou tentando pintar células do StringGrid, mais depois que pinta eu perco oque estava escrito dentro da célula. Alguém sabe como fazer? Estou tentando fazer como abaixo: procedure TfrmAPMovHorarios.stgHorarioMontanteDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var ColorOld : TColor; ColorPen : TColor; begin if ((ACol = 1) and (ARow = 1)) or ((ACol = 1) and (ARow = 3)) or ((ACol = 1) and (ARow = 5)) then begin ColorOld := stgHorarioMontante.Canvas.Brush.Color; ColorPen := stgHorarioMontante.Canvas.Pen.Color; stgHorarioMontante.Canvas.Brush.Color := clRed; stgHorarioMontante.Canvas.Pen.Color := clBlack; stgHorarioMontante.Canvas.TextRect(Rect,0,10,stgHorarioMontante.Cells[ACol, ARow]); stgHorarioMontante.Canvas.Brush.Color := ColorOld; stgHorarioMontante.Canvas.Pen.Color := ColorPen; end; end; [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Enter funcionando como Tab
Funcionou perfeitamente e era exatamente o que eu queria. Obrigado pela ajuda e desculpe não ter respondido antes. --- Em delphi-br@yahoogrupos.com.br, Adriano Santos (Yahoo) [EMAIL PROTECTED] escreveu Bom, o modo mais simples que consegui foi desviar o evento onMessage do objeto TApplication para uma função e nela codificar o que preciso vejam: procedure TrocaTabPorEnter(var Msg: TMsg; var Handled: Boolean); begin if not ((Screen.ActiveControl is TCustomMemo) or (Screen.ActiveControl is TCustomGrid) or (Screen.ActiveControl is TButton) or (Screen.ActiveControl is TBitBtn) or (Screen.ActiveForm.ClassName = 'TMessageForm')) then if (Msg.message = WM_KEYDOWN) then case Msg.wParam of VK_RETURN, VK_DOWN: Screen.ActiveForm.Perform(WM_NextDlgCtl, 0, 0); VK_UP: Screen.ActiveForm.Perform(WM_NextDlgCtl, 1, 0); end; end; Não engloba todos os componentes, mas basta adicionar isso uma vez no form principal ou no primeiro form que é criado pelo sistema e pronto. O sistema inteiro já sabe que o enter funciona como tab. Vai precisar estudar as classes e incluir conforme sua necessidade. Uma dica: TCustomCLASSE_DO_COMPONENTE Muitos componentes tem uma classe superior com o Custom na frente, ou seja, todo componente herdado do TMemo é herdado do TCustomMemo, isso significa que já englobam todos os tipos de memo da sua aplicação. E assim ocorrem com outros componentes. É só dar um F1 em algum componente e ver sua hierarquia de classes e pegar a mais alta possível. Pra desviar o evento basta fazer assim: Application.onMessage := TrocaTabPorEnter; Note que a assinatura da procure deve ser igual a do evento onMessage do TApplication; {Minha function} procedure TrocaTabPorEnter(var Msg: TMsg; var Handled: Boolean); {Função do delphi em FORMS} TMessageEvent = procedure (var Msg: TMsg; var Handled: Boolean) of object; *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. albertoferreirafilho respondeu: Creio que não precise componentes para isso. No seu form você altera a propriedade KeyPreview para true, no evento OnKeyPress coloque o seguinte: if key = Char( VK_RETURN ) then begin PostMessage( Form.Handle, WM_NEXTDLGCTL, 0, 0 ); Key:= Chr( 0 ); end; Pronto, todos os seus campos vão pular para o próximo. Se quiser ser mais purista, faça que todos os teus forms descendam deste único em que vc vai colocar a função, daí não precisa colocar isso em cada formulário criado. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Jefferson - Fórum t_object@ escreveu Instala com componentes da suíte Jedi, que lá você terá o componente: TJvEnterAsTab, ele ajuda demais nesses casos. Boa sorte! Jefferson - Original Message - From: barblo25 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Friday, February 09, 2007 2:00 PM Subject: [delphi-br] Re: Enter funcionando como Tab Meu Brother ver se esse funciona pra vc. Pois eu utilizo essa rotina no evento onKeyDown do form. E depois vc utiliza herança, estais entendo?. Qualquer coisa eh so dizer. Ele so não ativa quando eh em DBGRID. var bDirecao: Integer; begin bDirecao := -1; if not (ActiveControl is TDBGrid) then begin case Key of VK_UP: bDirecao := 1; VK_DOWN,VK_RETURN: bDirecao := 0; end; if (bDirecao -1) then perform(WM_NEXTDLGCTL, bDirecao, 0) ; end; end; --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, blcksun954 carlosrpnegrao@ escreveu Tem algum modo simples de fazer com que todos os componnetes de edição (TEdit, TComboBox, etc...) de um projeto passem a tratar a tecla Enter como tratam a Tab sem ter de escrever uma função pra cada componente? Estou usando Delphi 5. [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.441 / Virus Database: 268.17.36/681 - Release Date: 11/2/2007 18:50 --
[delphi-br] Enter funcionando como Tab
Tem algum modo simples de fazer com que todos os componnetes de edição (TEdit, TComboBox, etc...) de um projeto passem a tratar a tecla Enter como tratam a Tab sem ter de escrever uma função pra cada componente? Estou usando Delphi 5.
[delphi-br] Ajuda com SQL
Tenho uma tabela listando contas, e uma outra com os valores lançados em cada conta e as datas de lançamento e pagamento. Quero listar todas as contas e os valores totais lançados em cada uma, mesmo quando não haja nenhum valor (quando o valor seria 0). Até aqui, um LEFT JOIN resolve, o problema é que também preciso filtrar por data, para ter a movimentação num certo período. Quando faço isso, todas as contas que não tenham tido lançamentos desaparecem do resultado. Estou usando o banco de dados Firebird. Agradeço se alguém puder ajudar
[delphi-br] Delphi 5 +windows 2000
Instalei o Windows 2000 e agora toda vez que tento executar um programa dentro do delphi para usar o debugger aparece uma janela de depuração da CPU que não só me é inútil, como ainda me atrapalha. Alguém sabe como resolver? E não digam pra instalar XP. Estava tendo problemas com ele não só pra ficar conectado na internet como também deixou meu computador tão lento quanto um celeron 300, isso quando não estava executando nada.
[delphi-br] Etiquetas no Quick Report
Estou imprimindo etiquetas no Quick Report, e está quase tudo certo, mas algumas vezes a página é impressa muito pra cima, da 3ª ou 4ª página em diante. Pensei em fazera impressão das páginas uma a uma, de dentro de um loop for, mas não consigo que imprima nada além da primeira página. Alguém tem alguma idéia?
[delphi-br] Re: Salários
Eu segui o link e agora fiquei curioso: qual a diferença entre programador e analista-programador, ofra o salário(que não aparecia pra programador)? E qual a diferença entre analista-programador júnior, senior e pleno? --- Em delphi-br@yahoogrupos.com.br, Gabriel Filho [EMAIL PROTECTED] escreveu pra vc ter uma base http://www.rhinfo.com.br/sal-ti.htm 2006/10/28, Leodinei Bielak [EMAIL PROTECTED]: Olá pessoal. Eu gostaria de saber como anda a faixa salarial dos programadores delphi. Creio que este seja um assunto que interresa a bastante gente. :) Se alguém puder me passar esta informação. Eu sei que varia por região, esperiência, empresa, etc. Mas gostaria de ter uma idéia pra cada tipo: Junior, Pleno e Sênior. Valeu. [As partes desta mensagem que não continham texto foram removidas] [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] 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: Salários
Essa foi metade da resposta. Não vi essa parte no fim da página. Foi mal. Agora e quanto ao que é um analista-programador? Alguém com diploma de análise de sistemas que trabalha como programador? --- Em delphi-br@yahoogrupos.com.br, Leodinei Bielak [EMAIL PROTECTED] escreveu Tu se referece ao significado? Se for é que são diferentes níveis de experiência na área. Segundo esse link: http://www.rhinfo.com.br/sal-ti.htm#s-um é o seguinte: . junior - de 6 meses a 2 anos de experiência na função ou na tecnologia . pleno - 2 a 4 anos de experiência na função ou na tecnologia . senior - acima de 4 anos de experiência na função ou na tecnologia On 10/29/06, blcksun954 [EMAIL PROTECTED] wrote: Eu segui o link e agora fiquei curioso: qual a diferença entre programador e analista-programador, ofra o salário(que não aparecia pra programador)? E qual a diferença entre analista-programador júnior, senior e pleno? --- Em delphi-br@yahoogrupos.com.br, Gabriel Filho [EMAIL PROTECTED] escreveu pra vc ter uma base http://www.rhinfo.com.br/sal-ti.htm 2006/10/28, Leodinei Bielak [EMAIL PROTECTED]: Olá pessoal. Eu gostaria de saber como anda a faixa salarial dos programadores delphi. Creio que este seja um assunto que interresa a bastante gente. :) Se alguém puder me passar esta informação. Eu sei que varia por região, esperiência, empresa, etc. Mas gostaria de ter uma idéia pra cada tipo: Junior, Pleno e Sênior. Valeu. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Leodinei Bielak Civilization had too many rules for me, so I did my best to rewrite them. _Bill Cosby_ [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] 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: PESQUISA POR NOME
Numa query que já esteja aberta? Use o método Locate da query. --- Em delphi-br@yahoogrupos.com.br, maycondanny [EMAIL PROTECTED] escreveu Olá amigos gostaria de saber como procurar por nome em uma query, ou seja, o resultado é mostrado em um DBGRID. Muito Obrigado [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] 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