Re: [delphi-br] Simular digitação em sist emas de terceiros
Na edição 75 da revista Clube Delphi tem uma matéria do Everson Borges Volaco sobre a API do windows, que faz exatamente o que tu queres. De uma olhada. Murillo Proença escreveu: Bom dia galera, temos aqui na empresa um sistema de terceiros que é fechado, ou seja, não possuímos os fontes, só que tem uma certa rotina de lançamentos que é muito lenta para o usuário e o volume de dados é monstruoso. Estou pesquisando a seguinte solução: eu tenho os dados que devem ser imputados, estou pensando em criar uma aplicação que quando o usuário estiver na tela do sistema terceirizado, ele clique no meu sistema que vai colocar todos os dados nos seus devidos campos, sem que o usuário precise digitar. Será que expliquei bem? Em poucas palavras, imaginem que vc está no sistema da XYZ na tela de cadastro de clientes, aí vc vai no meu sistema e aperta uma tecla, e aí o meu sistema simula a digitação colocando em cada campo do sistema XYZ o nome do cliente, endereço, bairro, etc. Qualquer dica tá valendo. Abraço Murillo Proença ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] ActiveX x IE
Para incorporar um controle AcitveX dentro de uma página Web , você precisa usar o conjunto de tags HTML OBJECT.../OBJECT . O objeto ActiveX é então identificado pelo seu CLASSID alfanumérica - o seu número de registro no Windows. segue um exemplo: object id=DefaultOcxName classid=CLSID:0001C8DE-3AF4-4B2C-93F9-F72617E0B838 codebase=C:/ActiveX/NomeActiveX.ocx width=558 height=428 hspace=0 vspace=0 param name=Visible value=0 param name=AutoScroll value=0 param name=AutoSize value=0 param name=AxBorderStyle value=1 param name=Caption value=ActiveFormX param name=Color value=4278190095 param name=Font value=Tahoma;82500;400;0;0;0;0 param name=KeyPreview value=0 param name=PixelsPerInch value=96 param name=PrintScale value=1 param name=Scaled value=-1 param name=DropTarget value=0 param name=HelpFile value= param name=PopupMode value=0 param name=ScreenSnap value=0 param name=SnapBuffer value=10 param name=DockSite value=0 param name=DoubleBuffered value=0 param name=UseDockManager value=0 param name=Enabled value=-1 param name=AlignWithMargins value=0 /object/p Gerhard Roger Nack escreveu: Alguém já desenvolveu alguém ActiveX para rodar no IE? Não achei exemplos de como criar um. Gerhard Roger Nack [EMAIL PROTECTED] mailto:ginho%40mult.com.br [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Programa de Atualização
Da uma pesquisada na lista q esse assunto já foi abordado. Marcelo Carvalho escreveu: Alguém já fez algum programa em delphi para atualização, via internet de seus aplicativos ?? -- Marcelo Carvalho MSN [EMAIL PROTECTED] mailto:carvalho826%40hotmail.com ICQ 239-997-482 [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] 2 Oportunidades Para Desenvolvedor Delphi e DataSnap
Grande Bruno, Estou a procura de oportunidades em um grande centro... atualmente resido em um interior de Alagoas.. trabalho em uma boa empresa... mas a vida por aqui não trás muitos desafios Programo em Delphi há um bom tempo , e tenho um excelente conhecimento em processos diversos. Bom, se ao menos eu tiver a chance de ser entrevistado ... Agradeçendo a oportunidade Abraços.. Segue em Anexo currículum ... Guarantã Almeida. - Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Mudar Cor de Letra do grid
Galera, Não tenho acesso à internet para ver se já teve esta pergunta. Quer, mudar cor das letras no grid, dependendo de um valor no banco, exemplo Crédito quero colocar azul Débido quero colocar vermelho Alguém pode me dar uma dica?? [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Calculo de Horas
Se voce usar o banco de dados sql server existe uma funcao
DATEDIFF(DATAINICIAL,DATAFINA)
eLE TE RETORNA o valor em minuto ai é so voce fazer a div e o mod que sabe
qtas horas e minutos deu.
fabio giro [EMAIL PROTECTED] escreveu:
Acho que pode ajudar. Adpate as suas necessidades.
colocar 5 edits e 1 botao:
no edit1 colocar data/hora inicial - 01/01/2004 07:00
no edit2 colocar data/hora final - 02/01/2004 10:00
no edit3 virá a diferenca da data/hora
no edit4 virá a diferenca de dias e horas
no edit5 virá a diferenca de horas
procedure TForm1.Button1Click(Sender: TObject);
var
dt1 : tdate;
dt2 : tdate;
hr1 : ttime;
hr2 : ttime;
dti : double;
hri : shortint;
begin
edit3.clear;
edit4.clear;
edit5.clear;
dt1 := strtodate(copy(edit1.text,1,10));
dt2 := strtodate(copy(edit2.text,1,10));
hr1 := strtotime(copy(edit1.text,12,5));
hr2 := strtotime(copy(edit2.text,12,5));
edit3.text := datetimetostr(strtodatetime(edit2.text) -
strtodatetime(edit1.text));
if dt2 = dt1 then // mesmo dia
begin
if hr2 = hr1 then // mesma hora
edit5.text := '00:00'
else
begin // horas diferentes
edit5.text := timetostr(hr2 - hr1);
edit5.text := FormatDateTime('hh:mm',strtotime(edit5.text));
end;
end
else
begin // dia seguinte
dti := dt2 - dt1;
if dti = 1 then
begin
if hr2 hr1 then // menos de 24 horas
begin
hri := strtoint(copy(edit3.text,12,2));
edit5.text := inttostr(hri) + copy(edit3.text,14,3);
edit5.text := FormatDateTime('hh:mm',strtotime(edit5.text));
// 24 horas edit5.text:=timetostr(StrToTime('23:59:59')+ StrToTime('00:00:01')
- Hr1 + Hr2);
end
else
if hr2 = hr1 then // 24 horas
begin
edit4.text := floattostr(dti) + ' dia';
hri := trunc(dti * 24);
edit5.text := inttostr(hri) + ':00';
end
else
begin // entre 24 e 48 horas
edit4.text := floattostr(dti) + ' dia e ' + copy(edit3.text,12,5) + ' hora(s)';
hri := strtoint(copy(edit3.text,12,2));
hri := hri + (trunc(dti * 24));
edit5.text := inttostr(hri) + copy(edit3.text,14,3);
end
end
else
if hr2 hr1 then // mais de 1 dia, porem menos de 48,72,... horas
begin
edit4.text := floattostr(dti - 1) + ' dia(s) e ' + copy(edit3.text,12,5) + '
hora(s)';
hri := strtoint(copy(edit3.text,12,2));
hri := hri + (trunc((dti - 1) * 24));
edit5.text := inttostr(hri) + copy(edit3.text,14,3);
end
else
if hr2 = hr1 then // 48,72,... horas
begin
edit4.text := floattostr(dti) + ' dias';
hri := trunc(dti * 24);
edit5.text := inttostr(hri) + ':00';
end
else
begin // mais de 1 dia, mais de 48,72,... horas
edit4.text := floattostr(dti) + ' dia(s) e ' + copy(edit3.text,12,5) + '
hora(s)';
hri := strtoint(copy(edit3.text,12,2));
hri := hri + (trunc((dti) * 24));
edit5.text := inttostr(hri) + copy(edit3.text,14,3);
end
end;
end;
Daniel [EMAIL PROTECTED] escreveu:
Aê Pessoal...Help por favor...
Preciso saber como faço pra calcular o intervalo entre duas horas que estão
em datas diferentes...
Exemplo...
Qtas horas há entre 16:00:00 do dia 24/05/2007 e o 21:10:00 do dia
28/05/2007
Ajuda por favor
O resultado deve ser em HH:mm:ss, tem uma função no Delphi, mas não retorna
dessa forma...so retorna se foi 24, 48, 72 horas...
Se eu pedir e a diferença for maior que 24 e menor que 48 ele retorna 24
Por favor ajudem-me
[As partes desta mensagem que não continham texto foram removidas]
-
Novo Yahoo! Cadê? - Experimente uma nova busca.
[As partes desta mensagem que não continham texto foram removidas]
-
Novo Yahoo! Cadê? - Experimente uma nova busca.
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Colocar correio interno em sistema
Elizeu, Já baixei o ICQF e estou analisando para ver o que posso tirar de idéia para os meus fontes. E sempre bom consultar outras idéias. Podemos criar algo melhor do que pensamos. Principalmente por tenho que rodar esta aplicação em Windows e Linux Obrigado -- Alexandre Pereira Bühler Linux User 397546 http://www.infobrindes.com.br [EMAIL PROTECTED] [EMAIL PROTECTED]
Re: [delphi-br] Mudar Cor de Letra do grid
Ta na mão !!!
procedure TFrmCadTipoTransacoes.grdPadraoDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State:
TGridDrawState);
begin
if TDBGrid(Sender).DataSource.DataSet.RecordCount 0 then
begin
if TDBGrid(Sender).DataSource.DataSet.FieldByName('Valor').AsFloat
= 0 then // coloque aqui sua condição
begin
//TDBGrid(Sender).Canvas.Brush.Color := clWindows; Se você
quiser alterar a cor da linha
TDBGrid(Sender).Canvas.Font.Color := clBlue; // Altera a cor da
FONTE.
TDBGrid(Sender).Canvas.FillRect(Rect);
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end
else
begin
TDBGrid(Sender).Canvas.Font.Color := clRed;
TDBGrid(Sender).Canvas.FillRect(Rect);
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
end;
Eduardo
Alessandro Magno de Paula escreveu:
Galera,
Não tenho acesso à internet para ver se já teve esta pergunta.
Quer, mudar cor das letras no grid, dependendo de um valor no banco,
exemplo
Crédito quero colocar azul
Débido quero colocar vermelho
Alguém pode me dar uma dica??
[As partes desta mensagem que não continham texto foram removidas]
