Re: [delphi-br] Mover janelas
// * * * Dica extrada do Deephi 1.4 * * * // // * * * * [Evoluindo sem Limites] * * * * // // * * * * Nmero: 0984 Testada: S * * * * // Declarar: procedure WMNCHitTest(var Msg:TWMNCHitTest); message WM_NCHITTEST; No programa: procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest); begin DefaultHandler(Msg); if Msg.Result=HTCAPTION then Msg.Result:=HTCLIENT; end; Para no fechar coloca CanClose:=False no OnCloseQuery Svio Cler ICQ 142428832 WWW www.stc.eti.br MSN [EMAIL PROTECTED] Sto A. de Pdua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.rg3.net --- Mais de 3 downloads -ooO---Ooo- - Original Message - From: ramilton costa gomes junior [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, December 10, 2004 8:18 PM Subject: [delphi-br] Mover janelas Ola pessoal... sera que alguem sabe uma forma de fazer com que o usuario nao consiga mover a janela utilizando o mouse... essa janela nao pode ser movida e nem fechada... Ateciosamente, Ramilton _ MSN Messenger: instale grtis e converse com seus amigos. http://messenger.msn.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 -- 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] UNION...
Tem como fazer um SQL com UNION e retorna uma valor só. Ex: Select MAX(Valor) as X from A - Suponhamos x = 5 union Select MAX(Valor) as X from B - Siponhamos x = 2 Retorna no DBGrid... 5 2 Gostaria de... 7 Agradeço. 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 3 downloads -ooO---Ooo- [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
Re: [delphi-br] AVISO DO MODERADOR: Ancestrais
Proponho uma lista para interegir mais as pessoas. No que devemos sair destas, que so 100% mesmo. Mas s Delphi, Delphi, Delphi cansa, um pouco de distro no trabaho faz bem. Lista liberdade_em_delphi, hehe, rola tudo. Abrao. Svio Cler ICQ 142428832 WWW www.stc.eti.br MSN [EMAIL PROTECTED] Sto A. de Pdua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.rg3.net --- Mais de 3 downloads -ooO---Ooo- - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, December 07, 2004 2:47 PM Subject: RES: [delphi-br] AVISO DO MODERADOR: Ancestrais Amigo, No que ignorncia. as regras da lista preveem o Off-Topic. O problema que todos ns acabamos entusiasmando com o assunto e ficamos rendendo ele hoje, quase que o dia todo. Se foi um assunto que agradou a alguns, no agrada a todos. Muita gente no t afim de discutir passado dos computadores ou da informtica, porque o foco da lista solues para problemas de programao em Delphi. No vou dizer se estes associados esto errados ou no, mas eles esto no direito deles de no aceitaram entupir suas caixas postais com mensagens que no os interessam. Se ns estamos no nosso direito de discutir isto, eles tambm esto no direito deles tambm. Quanto aos moderadores, eles esto certos e cumprindo com o dever deles, em pedir pra parar com este assunto visto que o mesmo no tem nada haver com Delphi. Isto no ignorncia, isto lista bem organizada :) []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicaes [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: Alosi yarru [mailto:[EMAIL PROTECTED] Enviada em: tera-feira, 7 de dezembro de 2004 14:35 Para: [EMAIL PROTECTED] Assunto: Re: [delphi-br] AVISO DO MODERADOR: Ancestrais Quanta ignorncia, as pessoas que esto no frum, gostam de trocar informaes, seja ela qual for. Se for s sobre progrmao essa lista fica muito chata, mas sempre ser til em tirar informaes com colegas que saibam mais. t+ - Original Message - From: Moderador Delphi-br [EMAIL PROTECTED] To: Delphi BR [EMAIL PROTECTED] Sent: Tuesday, December 07, 2004 11:25 AM Subject: [delphi-br] AVISO DO MODERADOR: Ancestrais Srs associados da delphi-br, O assunto Ancestrais completamente off-topic e, segundo as regras vigente, no deve ser discutido na lista. Vamos encerrar este assunto para que no seja necessrio que os moderadores tomem alguma medida mais energica. Caso queiram continuar com o assunto, migrem o assunto para uma lista onde ele no seja considerado off-topic. PS: no adianta colocar off-topic no assunto, ele continuar sendo off-topic e consequentemente deve ser evitado na lista. -- Moderador Delphi-br [EMAIL PROTECTED] [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 -- 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 [As partes desta mensagem que no 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 -- 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] Bematech no fiscal...
Pessoal, quando uso Bematech não fiscal com Windows 98, instalo o driver genérico somente texto, com papel US Carta (acho que é esse o nome), sem quebra de página, que funiona 100%. Mas no Xp tô com umas dificuldades de configurar desta forma. Alguém tem uma solução de driver? Agradeço. Sávio Cler ICQ 142428832 www.stc.eti.br [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.hpg.com.br --- Mais de 3 downloads -ooO---Ooo- [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] Atalho...
Sabem qual é o atalho para declarar units automaticamente no USES, tipo quando uso a função POWER, devo declarar MATh no USES, só que existe um tecla de atalho para isso (não é ALT+F11). Sabem qual é? PS: Outro dia um aluno conseguiu, mas logo que fez esqueceu qual tecla usou, hehe. Agradeço. Sávio Cler ICQ 142428832 www.stc.eti.br [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.hpg.com.br --- Mais de 3 downloads -ooO---Ooo- [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] Net Time...
Boa tarde, meu PDV chama o net time do DOS quando abre, pelo WinExec. Antigamente usava com SW_Hide, mas percebi que dá umas travadas na máquina, então coloquei SW_Normal, mas fica a janela do DOS aberta. Sabem como posso fechá-la ao concluir? Criando um atalho pelo DOS faz, mas queria pelo WinExec mesmo. Agradeço . Sávio Cler ICQ 142428832 www.sgm.rg3.net [EMAIL PROTECTED] Sto A. de Pádua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.hpg.com.br --- Mais de 3 downloads -ooO---Ooo- [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] Validar EAN...
Outro dia estavam querendo:
function Valida_EAN(VEAN: String): Boolean; //Dica número 1595 de www.deephi.rg3.net.
Funciona com EAN8 e EAN13
var
Temp1, Temp2: Integer;
Temp3: String;
begin
Temp2:=0;
Temp3:='';
for Temp1:=Length(VEAN)-1 downto 1 do //Inverte, retirando o dígito
Temp3:=Temp3+VEAN[Temp1];
for Temp1:=1 to Length(Temp3) do //Multiplica as posições impares por 3,
fazendo o somatório
if Temp1 mod 2 = 0 then
Temp2:=Temp2+StrToInt(Temp3[Temp1])
else
Temp2:=Temp2+StrToInt(Temp3[Temp1])*3;
Temp2:=10-Round(Frac(Temp2/10)*10);//10 menos o resto da divisão
Result:=Temp2=StrToInt(Copy(VEAN,Length(VEAN),1));
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if not Valida_EAN(Edit1.Text) then Application.MessageBox(PChar('EAN
inválido!'),'Sigma...',64);
end;
Sávio Cler
ICQ 142428832
www.sgm.rg3.net
[EMAIL PROTECTED]
Sto A. de Pádua - Rio de Janeiro
Contato Pessoal: (22)9812-0656
~ ~
( @ @ )
---o0Oo-(_)-oO0o---
Precisando de dicas?
www.deephi.hpg.com.br
---
Mais de 3 downloads
-ooO---Ooo-
[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
Re: [delphi-br] Balanas Toledo
Eu usei o cport-3.0.zip e deu certo. Qq coite te mando. Svio Cler ICQ 142428832 www.sgm.rg3.net [EMAIL PROTECTED] Sto A. de Pdua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.hpg.com.br --- Mais de 3 downloads -ooO---Ooo- - Original Message - From: Malomar Alex Seminotti [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, September 24, 2004 6:28 PM Subject: Re: [delphi-br] Balanas Toledo Walter, Obrigado pela ajuda. Eu tenho um componente para ler porta serial. Estou usando o programa TTY, que um exemplo que vem junto com o componente ComDrv32. Esta balana usada para caminhes e foram feitos testes com alguns pesos sobre ela. Este retorno foi obtido com 9600 bauds e o que mais se aproxima do valor correto. D uma olhada no resultado: 920 kg = , 90 ? 90 ? 90 ? 2280 kg = , 0 ? 0 ? 0 ? 1360 kg = , 360 ? 360 ? 360 ? 10200 kg = 000 ? 000 ? 000 ? 6140 kg = 60 ? 60 ? 60 ? 5150 kg = 550 ? 550 ? 550 ? 5170 kg = 50 ? 50 ? 50 ? Eu no sei se a configurao da porta serial que est errada ou se ele me retorna apenas isso mesmo. Vou baixar o Async32 e fazer alguns testes com ele tambm. -- []'s Malomar Alex Seminotti Erechim - RS Walter Chagas (Desenvolvimento) escreveu: Eu j. Voce ter que colocar um componente de porta serial no seu programa que dever ficar ativo esperando a chegada de dados da porta. quando a balana fizer a leitura, ela envia estes dados para a porta e eles devem chegar na seguinte forma: #2'4p(00153000'#$D'\' Ai voc ter que separar o lixo do valor exato que vem sem caracteres de formatao. Esta string acima corresponde ao valor 15,30 em uma balana de 100K Em uma balana de 20K ela viria desta forma: #2'5ph0011'#$D'' = 01,100 #2'5ph00025000'#$D#$1D = 00,250 #2'5ph01529200'#$D#$11 = 15,292 #2'5ph5200'#$D#$1D = 00,052 #2'5ph0200'#$D'' = 00,002 Bom, no componente, voc ir usar o evento de leitura da porta serial. Eu usei o Async32 da TMS Software, ele tem o evento onRxChar, que o evendo que ler caracteres vindos da porta. A leitura feita char por char, neste caso eu usei uma varivel que leu todos os caracteres vindos da porta: VStream := VStream + VaComm1.ReadText; Em seguida, fiz uma funo que remove o lixo dos valores numricos da string: VStream1 := RetornaNumero(VStream1); // So ficam os numeros #2'5ph0011'#$D'' = 250011 Feito isto basta pegar a parte da string que te interessa: VAuxStream1 := copy(VStream1,4,6); Finalmente voce faz uma funo para colocar a virgula no lugar certo e o valor ficaria assim: 01,100 lidos em uma balana de 20K []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas CABTEC - Solues em Cdigo de Barras Belo Horizonte - MG Fone: (31) 2125-9019 - Fax: (31) 2125-9030 http://www.cabtec.com.br [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 -- 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] POr que isso?
Qual pergunta? Svio Cler ICQ 142428832 www.sgm.rg3.net [EMAIL PROTECTED] Sto A. de Pdua - Rio de Janeiro Contato Pessoal: (22)9812-0656 ~ ~ ( @ @ ) ---o0Oo-(_)-oO0o--- Precisando de dicas? www.deephi.hpg.com.br --- Mais de 3 downloads -ooO---Ooo- - Original Message - From: Ivan Boldt [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, September 22, 2004 9:21 PM Subject: [delphi-br] POr que isso? Todo mundo gosta de explicar e dizer as coisas faceis, quando vem uma pergunta dificil ningum responde? podem me xingar, se quiserem, mais verdade Ivan Boldt :. [As partes desta mensagem que no 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 -- 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
