Re: [delphi-br] [OFF] Referente a nova lei...

2009-08-22 Por tôpico EmbarcaDelphi
É verdade, partindo da sua lógica. Duvido que uma grande empresa vai 
contratar uma pessoa que não seja graduado. Não se esqueça que um 
programador também lida com pessoas, não fica apenas na frente do 
computador. Digamos que uma equipe de funcionário numa empresa estão 
desenvolvendo um sistema e um deles não tem um nível superior (até o 
nome já diz superior), como vai ser esse entrosamento funcionário x 
clientes de uma empresa. Já sei, todos pedem para o analfa não abrir a 
boca (kk).
Para trabalhar por conta própria no desenvolvimento dos seus sistemas, 
tudo bem, concordo em parte, tem gente que precisa ganhar seu pão.
Mas, por que não faz um curso universitário via internet? Nenhuma 
explicação é justificável..principalmente nesta nossa época.

Nivaldo Stainle escreveu:
  

 Pegando o Bonde, sou agrimensor e matemático, programo desde 1974, faz 
 tempo né,
 estou no mercado até hoje, acho que tenho alguma qualidade, certo ?, 
 com esta nova lei
 será que a qualidade dos sistemas e afins ficarão melhor do que 
 existem escrito por profissionais assim como eu ?, não sou contra 
 regulamentação, sou sócio do CREA, por ser agrimensor e quando faço 
 algum projeto sou obrigado recolher a ART e citar tais números nas 
 plantas; eu acho que para a área de informática tem mais cunho 
 político do que técnico, posso estar errado; mas vamos pensar que 
 fossem exigir do Roberto Carlos(cantor) por exemplo, que fosse formado 
 em música para poder compor e cantar.
 Vejam que para jornalistas foi extinta a lei que exige diploma para os 
 mesmos exercer a profissão, isto porque não se deve exigir dos 
 clientes que optem em comprar sistemas de quem é formado ou não, isto 
 eles devem enxergar por referência se devem adquirir tal sistema ou 
 não(de quem é formado ou não); não sei se fui claro, só quiz dizer que 
 em algumas profissões isto se faz necessário e em outras não.
 abraços.
 Stainle

 --- Em sáb, 22/8/09, Alexandre alexandresoare...@yahoo.com.br 
 mailto:alexandresoaressp%40yahoo.com.br escreveu:

 De: Alexandre alexandresoare...@yahoo.com.br 
 mailto:alexandresoaressp%40yahoo.com.br
 Assunto: Re: [delphi-br] [OFF] Referente a nova lei...
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Data: Sábado, 22 de Agosto de 2009, 15:21

  

 Discordo do amigo, é uma questão complexa, eu tenho 10 anos de 
 experiência em programador e já coloquei muito universitário no 
 chinelo, experiência é uma questão RELATIVA, tem muitas pessoas com 
 o caneco de fachada, o correto ao meu ver é analisar a experiência 
 da pessoa, EXPERIÊNCIA, caneco nem sempre quer dizer algo, vejo muitas 
 pessoas ai passando em faculdades na raça e despreparados, é uma 
 questão relativa, e que vai dar muita confusão, porque tem muito 
 profissional nessa área auto-didata como eu, que não precisaram de 
 faculdade para exercer a profissão, medicina, ou outras profissiões 
 sim, concordo em ter profissionalizaçã o, agora informática?é meio 
 complicado OBRIGAR isso, na minha opnião.

 Alex

 - Original Message -
 From: EmbarcaDelphi
 To: delphi...@yahoogrup os.com.br
 Sent: Friday, August 21, 2009 6:43 PM
 Subject: [delphi-br] [OFF] Referente a nova lei...

 Minha opinião apenas.

 Achei correto a nova lei sobre quem deve exercer ou não as funções,
 agora, nós que investimos tempo e dinheiro numa universidade fica
 valorizado. Tem muita gente que não estuda, é um semi-analfabeto, faz um
 curso de programação e toma o lugar de um profissional que estudou muito
 tempo. Tem hora que os políticos atrapalham, mas tem hora que se
 interessam em modernizar o País. Já estou formulando uma mensagem de
 agradecimento ao Senador que teve esta grande idéia, este é um dos
 poucos políticos que trabalha sério para o povo. Podemos ver que muitos
 países ricos não contratam pessoas que são técnicos para cargos que
 exigem um profissional de verdade, uma pessoa que tem universidade, teve
 vontade de estudar e fazer crescer o país. Só o Brasil pensa diferente,
 isso está mudando e vai incentivar as pessoas a estudarem. Pra mim, quem
 não tem universidade tem mais que começar a estudar ou então mudar de
 área...

 .

 



Re: [delphi-br] [OFF] Referente a nova lei...

2009-08-22 Por tôpico EmbarcaDelphi
hehehehehe, é só zueira. mas convenhamos, antigamente quem não tinha o 
segundo grau era semio-analfa mesmo, e hoje, não sou eu quem digo, é 
semi-analfa mesmo, pode crer, é o que todo munndo diz vou ficar 
alisando é? tenho de dar bronca para mostrar que o cara está errado, 
isso vai fazer ele se tocar e iniciar ou quem sabe, reiniciar os 
estudos. O mercado hoje em dia é exigente.


Ricardo César Cardoso escreveu:
  

 Discordo EmbarcaDelphi da sua mensagem não por inteiro, mas até 
 entendo o que você quer dizer, só acho que a sua escolha de palavras 
 não foi das melhores.

 * O melhor DBA Oracle que conheci na vida e tive a honra de trabalhar 
 é formado em Matemática (não... não é ninguém famoso, mas é um cara 
 sensacional.) Relaciono outros profissionais que trabalhei e que me 
 ensinaram o que livros não ensinam e não são formados na área de 
 informática. Aprenderam tudo na prática. Ter um diploma de TI, assim 
 como o de médico ou de qualquer outra profissão não significa 
 competencia. Assim como existem médicos incompetentes, existem 
 analistas, engenheiros, dbas formados, com certificação e tudo e mesmo 
 assim incompetentes.

 * Hoje em dia, concordo que não há muita desculpa para não completar 
 ou até mesmo iniciar os estudos, mas chamar alguém de semi analfabeto 
 é exagero. E irreal, como se houvessem muitas universidades de 
 verdade por aí e ninguém precisasse trabalhar pra custear estudos.

 Não dá pra comparar nossa realidade com a de outros países. Em nenhum 
 sentido.

 []'s
 Ricardo

 .

 



Re: [delphi-br] [OFF] Referente a nova lei...

2009-08-22 Por tôpico EmbarcaDelphi
Tá fora do país? mas não foi porque foi contratado por uma grande 
empresa, duvido se foi, é só sua palavra. Uma grande empresa não 
contrata sem nível superior. vc pode ter ido ao país porque tem 
descendente na família. Se eu fosse vc não contaria com a sorte e 
partiria para estudar, se está numa empresa, nada mais justo do que 
estudar e ter capacidade para ter um cargo melhor, ou quem sabe segurar 
o emprego, senão vem outro melhor e toma tua vaga, vai por mim, na crise 
global isso não é novidade!

Sucesso

Sim, vc não pode tomar uma sorte como a sua como exemplo para com todos. 
Lembre-se disso!




Julio Cesar escreveu:
  

 pq nao fazer um curso de nivel superior pela intenet? pra mim eh 
 simples, um diploma que a pessoa estuda pela internet tem o msm valor 
 da sua experiencia de vida... nao eh pq vc tem nivel superior q vc 
 eh superior a ninguem, eu tenho o segundo grau, e te garanto q msm nos 
 ultimos 6 anos q nao programo em delphi ainda tenho conhecimento de 
 sobra pra mtos q estao ai terminando a faculdade, continuo lendo e 
 estudando, fico a par das tecnologias e td q acontece.. ah, to 
 fora do pais, e aki exerco funcoes q seriam para um engenheiro, isso 
 conta como competencia ou analfabetismo?

 julio cesar

 .

 



Re: [delphi-br] Re: [OFF] Referente a nova lei...

2009-08-22 Por tôpico EmbarcaDelphi
É verdade, mas também isso é uma minoria que não se deve tomar como 
exemplo, estude e faça por merecer, analfa/curso técnico não justifica 
não precisar de estudar. Dê exemplos para a sua e a nossa próxima 
geração. Ter uma vida aqui na terra e não deixar o exemplo é melhor nem 
ter nascido. Conheço senhoras de 65 anos que estão terminando a 
universidade agora. Que exemplo ela dá para os filhos, netos e para a 
sociedade Pense nisso!

Parei o OFF por aqui, não quero criar flames, o que falei é a realidade 
e podemos ver isso em todos os lugares do globo terrestre...


lidio.zucchi escreveu:
  

 Conheço muitos que tem curso superior, mas que são analfabetos e 
 semi-analfabetos do saber.

 Zucchi

 .

 



[delphi-br] [OFF] Referente a nova lei...

2009-08-21 Por tôpico EmbarcaDelphi
Minha opinião apenas.

Achei correto a nova lei sobre quem deve exercer ou não as funções, 
agora, nós que investimos tempo e dinheiro numa universidade fica 
valorizado. Tem muita gente que não estuda, é um semi-analfabeto, faz um 
curso de programação e toma o lugar de um profissional que estudou muito 
tempo. Tem hora que os políticos atrapalham, mas tem hora que se 
interessam em modernizar o País. Já estou formulando uma mensagem de 
agradecimento ao Senador que teve esta grande idéia, este é um dos 
poucos políticos que trabalha sério para o povo. Podemos ver que muitos 
países ricos não contratam pessoas que são técnicos para cargos que 
exigem um profissional de verdade, uma pessoa que tem universidade, teve 
vontade de estudar e fazer crescer o país. Só o Brasil pensa diferente, 
isso está mudando e vai incentivar as pessoas a estudarem. Pra mim, quem 
não tem universidade tem mais que começar a estudar ou então mudar de 
área...




Re: [delphi-br] [OFF] Referente a nova lei...

2009-08-21 Por tôpico EmbarcaDelphi
Exatamente, além de ter concluído a universidade, provar que está apto 
para exercer a profissão.

Leandro escreveu:
  

 Eu comparo qualquer carreira como a carreia de um Medico.. para mim tem a
 mesma importancia,
 e acho q todas deveriam existir exames igual a OAB.. onde mesmo a
 universidade sendo boa ou uma merda soh seriam liberados a exercer a
 profissao quem passasse pelos teste do conselho..

 minha opniao!

 2009/8/21 EmbarcaDelphi embarcadel...@yahoo.com.br 
 mailto:embarcadelphi%40yahoo.com.br

 
 
  Minha opinião apenas.
 
  Achei correto a nova lei sobre quem deve exercer ou não as funções,
  agora, nós que investimos tempo e dinheiro numa universidade fica
  valorizado. Tem muita gente que não estuda, é um semi-analfabeto, faz um
  curso de programação e toma o lugar de um profissional que estudou muito
  tempo. Tem hora que os políticos atrapalham, mas tem hora que se
  interessam em modernizar o País. Já estou formulando uma mensagem de
  agradecimento ao Senador que teve esta grande idéia, este é um dos
  poucos políticos que trabalha sério para o povo. Podemos ver que muitos
  países ricos não contratam pessoas que são técnicos para cargos que
  exigem um profissional de verdade, uma pessoa que tem universidade, teve
  vontade de estudar e fazer crescer o país. Só o Brasil pensa diferente,
  isso está mudando e vai incentivar as pessoas a estudarem. Pra mim, quem
  não tem universidade tem mais que começar a estudar ou então mudar de
  área...
 
 
 

 -- 
 Leandro, MuTukA

 .

 



Re: [delphi-br] [OFF] Referente a nova lei...

2009-08-21 Por tôpico EmbarcaDelphi
Mas essa não é minha necessidade. Não preciso de papéis que comprovem
minha competência. Isso eu faço no meu dia a dia, com o atendimento que
dou a meus clientes.

Você não precisa dos papeis, quem precisa são os clientes!
A pessoa que investiu nos estudos devem ter mais credibilidade do que um 
semi-analfabeto da vida. Não estudar é um incentivo para que outros siga 
seu exemplo e não estudem, basta fazer um curso técnico e dizer que são 
programadores. Isso é um absurdo, é porisso que o Brasil está nessa M
No Japão, temos o exemplo que todos os alunos estudam o seu idioma e 
mais outros dois, um deles a língua comercial.



Re: [Delphi-Br] Erro estranho ao mandar e-mail!! (ou nao)

2009-08-19 Por tôpico EmbarcaDelphi
Vê este link com fontes de como enviar email com anexo:

// ---

http://www.devmedia.com.br/articles/viewcomp.asp?comp=13966hl=*email*%20and%20*com*%20and%20*anexo*

// -

Fernando Pires de Souza Filho escreveu:
  


 opa gente

 depois de pesquisar e nao achar muita coisa, e alem de estar comecando 
 a programar em delphi,
 to com um problema em enviar email com anexo, sem o anexo ta enviando 
 normal.

 ai as linhas que anexa:

 IdMessage.MessageParts.Clear;
 IdAttach := TIdAttachment.Create(IdMessage.MessageParts);
 IdAttach.FileName := ListBoxAnexos.Items.Text;

 dai passa, mais no Idsmtp.send(idmessage) da esse erro:

 Raised exception EAbstractError: Abstract Error

 quando compila, da os seguintes warnings:

 [DCC Warning] email.pas(113): W1020 Constructing instance of 
 'TIdAttachment' containing abstract method 'TIdAttachment.OpenLoadStream'
 [DCC Warning] email.pas(113): W1020 Constructing instance of 
 'TIdAttachment' containing abstract method 'TIdAttachment.CloseLoadStream'
 [DCC Warning] email.pas(113): W1020 Constructing instance of 
 'TIdAttachment' containing abstract method 
 'TIdAttachment.PrepareTempStream'

 acho que tem algo a ver :p

 eu nao sei que erro é esse.

 Se alguem poder da uma luz, agradeceria muito, e resolveria meu 
 problema!!!

 Atenciosamente
 Fernando Pires

 .

 



[delphi-br] Novo vírus infecta a Lib do Delphi

2009-08-19 Por tôpico EmbarcaDelphi
Pessoal, no site da ClubeDelphi, o Guinther fala a respeito desse assunto:

http://www.devmedia.com.br/articles/viewcomp.asp?comp=14020




Re: [delphi-br] Novo vírus infecta a Lib do Delphi

2009-08-19 Por tôpico EmbarcaDelphi
Esse vírus é meio estranho, quem teria interesse em infectar apenas as 
versões antigas do Delphi (...)?


Re: RES: [delphi-br] Novo vírus infecta a Lib do Delphi

2009-08-19 Por tôpico EmbarcaDelphi
Eu não estou infectado, mas já fiz uma cópia de todos os SysConst.dcu e 
SysConst.pas da pasta Lib e da pasta Lib\Debug, também da pasta 
Source\Rtl\Sys para .Bak para prevenir isso aqui ...


Marcelo - CH Sistemas escreveu:
  

 Consegui resolver isto renomeando o arquivo mas deixando um .bak
 pois se não tem esse arquivo o vírus ataca novamente e se tiver o .bak 
 mesmo
 que seja falso ele não ataca

 -Mensagem original-
 De: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 [mailto:delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br] Em
 nome de Paulo Botelho
 Enviada em: quarta-feira, 19 de agosto de 2009 11:32
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Assunto: Re: [delphi-br] Novo vírus infecta a Lib do Delphi

 Pessoal,

 Ontem tive o problema, consegui renomear o arquivo SysConst.bak para
 SysConst.dcu .bak e gerar novo executável limpo, sendo que hoje o 
 problema
 voltou.

 Portanto, a dúvida agora é : Alguém conseguiu desinfectar o delphi 
 ?? Qual
 anti-vírus utilizou.

 Grande abraço

 Paulo Botelho

 2009/8/19 EmbarcaDelphi embarcadelphi@
 mailto:embarcadelphi%40yahoo.com.br yahoo.com.br

 
 
  Pessoal, no site da ClubeDelphi, o Guinther fala a respeito desse 
 assunto:
 
  http://www.devmedia
 http://www.devmedia.com.br/articles/viewcomp.asp?comp=14020 
 http://www.devmedia.com.br/articles/viewcomp.asp?comp=14020
 .com.br/articles/viewcomp.asp?comp=14020
 
 
 

 .

 



Re: [delphi-br] Suporte a Firebird no Delphi 2010

2009-08-18 Por tôpico EmbarcaDelphi
Só tem uma observação que acho chato, você configurou para que não se 
possa deixar a tela full do vídeo, por que? Nenhum dos vídeos se 
consegue ver a tela do vídeo em modo Tela Cheia.

Andreano Lanusse escreveu:
  

 Pessoal,

 Aqui está o tão esperado suporte ao Firebird no dbExpress.

 http://blogs.embarcadero.com/andreanolanusse/novo-driver-dbexpress-para-firebird-no-delphi-2010-e-cbuilder-2010/
  
 http://blogs.embarcadero.com/andreanolanusse/novo-driver-dbexpress-para-firebird-no-delphi-2010-e-cbuilder-2010/

 []'s

 Andreano Lanusse
 Embarcadero Technologies

 CONFIDENTIALITY NOTICE: This email message is for the sole use of the 
 intended recipient(s) and may contain confidential and privileged 
 information. Any unauthorized review, use, disclosure or distribution 
 is prohibited. If you are not the intended recipient, please contact 
 the sender by reply email and destroy all copies of the original message.

 .

 



Re: [delphi-br] Suporte a Firebird no Delphi 2010

2009-08-18 Por tôpico EmbarcaDelphi
Ok Andreano, descobri o problema. Ontem eu atualizei o Plugin do Flash 
para a mais nova versão (10 e lá vai cacetada), agora, qdo fui ver na 
seção de ajuda do YouTube vi o que causou o problema. Fica registrado 
aqui se alguém não conseguir ver em tela cheia:

---
Observe que o dimensionamento de hardware para tela inteira pode não 
funcionar com o Adobe Flash Player 9.0.115.0 e versões posteriores.
Para descobrir qual versão do Adobe Flash Player você tem instalada, 
visite este link (OBSERVAÇÃO: o vídeo não será reproduzido).
Se você está tendo problemas para reproduzir no modo de tela inteira e 
possui o Adobe Flash Player 9.0.115.0 ou posterior instalado, visite 
este link para obter ajuda



Andreano Lanusse escreveu:
  

 Não configurei isso não, por default essa opção aparece, talvez seja o 
 browser que você está utilizando

 From: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 [mailto:delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br] On Behalf Of EmbarcaDelphi
 Sent: Tuesday, August 18, 2009 12:12 PM
 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Subject: Re: [delphi-br] Suporte a Firebird no Delphi 2010

 Só tem uma observação que acho chato, você configurou para que não se
 possa deixar a tela full do vídeo, por que? Nenhum dos vídeos se
 consegue ver a tela do vídeo em modo Tela Cheia.

 .

 



[delphi-br] Está faltando algo nesta rotina?

2009-08-17 Por tôpico EmbarcaDelphi
Olá pessoal,

sei que Warning são só avisos, mas deve estar faltando alguma coisa 
nesta thread:

http://www.devmedia.com.br/articles/viewcomp.asp?comp=9635hl=*thread*

O compilador avisa que a variável ainda não foi iniciada.

Se eu setar a variável para False (veja o código), a thread é finalizada 
por completo (free), ou não?


[delphi-br] [OFF] Em que deu o projeto ArdOS?

2009-08-16 Por tôpico EmbarcaDelphi
Alguém lembra do projeto ArdOS?
http://ardos.sourceforge.net/

Não se viu mais o rapaz que criou o projeto, ele está ainda na lista 
Delphi-BR ?
Se você estiver, pode passar algo sobre o projeto?


Re: [delphi-br] Web Browser

2009-08-14 Por tôpico EmbarcaDelphi
Amigo, segundo informações que tenho, seria:

*uses
  *ActiveX, MSHTML_TLB, SHDocVw_TLB,
  ComCtrls, OleCtrls;

*procedure *TForm1.Button1Click(Sender: TObject);
*var
  *HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
*begin
  *HTMLDocument := WebBrowser1.Document *as *IHTMLDocument2;
  PersistFile  := HTMLDocument *as *IPersistFile;
  PersistFile.Save(StringToOleStr('c:\SavedFile.html'), System.True);
*end*;


Baixe o componente free EmbeddedWB Component Pack




marcelo escreveu:
  

 Boa noite senhores, já procurei de todo lado sem sucesso, alguém sabe 
 se tem
 como salvar o HTML COMPLETO de um web browser sem a intervenção do 
 usuários.
 Desde já agradeço a atenção de todos.

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

 .

 



Re: [Bulk] Re: [delphi-br] [ OFF - Video-aula Free] Orientação a Obj etos...

2009-08-14 Por tôpico EmbarcaDelphi
O único problema desse site passado por Andrei é que os vídeos são todos 
dentro de um programa, o mesmo contém uma senha para ser acessado por um 
período de tempo. Não gosto de viver aprisionado por alguma coisa, a 
ClubeDelphi, em alguns vídeos também tem essa fres Isso foi causa de 
muita discussão, até mesmo de assinantes da revista, eu mesmo não 
renovei minha assinatura na ClubeDelphi por causa dessas e de outras 
coisas que a ClubeDelphi inovou para prender as pessoas a ela.

Ricardo César Cardoso escreveu:
  

 Valeu Andrei! 
 []'sRicardo.

 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
 compreendida.

 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

 --- Em qui, 13/8/09, Andrei Luís compuvale.softw...@gmail.com 
 mailto:compuvale.software%40gmail.com escreveu:

 www.istudar. com.br

 []
 Andrei

 .

 



Re: [Bulk] Re: [delphi-br] [ OFF - Video-aula Free] Orientação a Obj etos...

2009-08-14 Por tôpico EmbarcaDelphi
Assinatura Gold, pelo que entendi, você só pode ver se for assinante, 
depois (caso deixe de ser), não pode mais ver, até porque não tem 
lógica. Você está pagando para ver e não para tê-las. Foi o que eu 
sempre entendi, nunca perguntei porque não ia fazer mesmo! ClubeDelphi, 
para mim, morreu. Um dia que o sistema mudar possa ser que eu volte. Nem 
as revistas estou comprando porque tudo que preciso encontro na internet 
ou nas listas. A clubeDelphi só faz repetições do que se encontra na 
internet com algumas modificações. O Guinther me disse que ia falar nas 
próximas edições sobre API do Windows de uma maneira mais aprofundada, 
se isso ocorrer posso até comprar a revista, senão...


Ricardo César Cardoso escreveu:
  

 Logo que as video aulas foram lançadas no iStudar, era possível fazer 
 o download de algumas delas, acho que as dez primeiras, se não me 
 engano. Como para assistir no trabalho não era possível, e baixar em 
 casa era ridículo (conexão discada) baixei os arquivos no trabalho 
 para assistir em casa. 
 Pelo seu relato fiquei até contente, pois então mudaram o modelo de 
 acesso então. Porque mesmo pagando a mensalidade (que tinha até um 
 valor bem acessível) era possível ou assistir on-line ou efetuar o 
 download.
 Muito pertinente teu comentário sobre a DevMedia... o que eles estão 
 fazendo é uma piada de mau gosto. Paguei pela assinatura Gold (fiz 
 duas renovações, diga-se de passagem) para poder baixar edições 
 anteriores e agora simplesmente não é possível mais fazer esse 
 download. Até ai não é um problema dos maiores... O que mais me 
 incomoda é que ninguém (do atendimento da DevMedia) me respondeu se 
 amanhã ou depois deixar a assinatura de lado, se vou continuar tendo 
 acesso às edições que paguei por isso.
 Atte,Ricardo.

 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
 compreendida.

 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

 --- Em sex, 14/8/09, EmbarcaDelphi embarcadel...@yahoo.com.br 
 mailto:embarcadelphi%40yahoo.com.br escreveu:

 De: EmbarcaDelphi embarcadel...@yahoo.com.br 
 mailto:embarcadelphi%40yahoo.com.br
 Assunto: Re: [Bulk] Re: [delphi-br] [OFF - Video-aula Free] Orientação 
 a Objetos...
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Data: Sexta-feira, 14 de Agosto de 2009, 11:09

  

 O único problema desse site passado por Andrei é que os vídeos são todos

 dentro de um programa, o mesmo contém uma senha para ser acessado por um

 período de tempo. Não gosto de viver aprisionado por alguma coisa, a

 ClubeDelphi, em alguns vídeos também tem essa fres Isso foi causa de

 muita discussão, até mesmo de assinantes da revista, eu mesmo não

 renovei minha assinatura na ClubeDelphi por causa dessas e de outras

 coisas que a ClubeDelphi inovou para prender as pessoas a ela.

 .

 



Re: [delphi-br] Re: TMainMenu X Form.BorderStyle:= bsNone

2009-08-14 Por tôpico EmbarcaDelphi
Ok, eu não tenho certeza se há alguma maneira de deixar o Menu dentro do 
form. Sei que, para isso, você poderia criar um Menu diferente, como por 
exemplo:

Instale os componentes JEDI (OpenSource), são um pouco mais de 300 
componentes;

Um PopUpMenu para os menus, um para cada item de Menu;
Um TPanel (que fique no Topo);
Dentro do TPanel coloque botões JvArrowButton1 (da aba JvButtons - 
componentes JEDI), associar cada botão a cada TPopUpMenu.

Pronto, tá feito o Menu.


Se alguém tiver mais opiniões, ou sabe como deixar o TMenu dentro do 
Form, fique a vontade para nos deixar a dica.
Os componentes da JEDI podem ser baixados aqui (nova versão: Junho/2009):
http://sourceforge.net/projects/jvcl/files/JVCL%203/JVCL%203.37/JVCL337CompleteJCL1105-Build3400.zip/download

ajama_1 escreveu:
  

 Bem, é um componente Skin que estou desenvolvendo, e preciso mudar a 
 aparência dos objetos em tempo de execução, mas no caso o TMainMenu, 
 não estou conseguindo colocar-lo dentro do form o qual apliquei 
 BorderStyle:= bsNone, simplesmente ele insiste em ficar sobre o form 
 que pintei com canvas já desenhando as bordas do form.

 Entendeu ?

 .

 



Re: [delphi-br] Re: Web Browser

2009-08-14 Por tôpico EmbarcaDelphi
Pode dar mais detalhes?

O que é completo para você? Por exemplo: Se você deseja que arquivo .SWF 
sejam salvos junto com a página, nem mesmo nos navegadores isso é 
possível, para baixar um SWF tem que ser buscando o endereço dele, e na 
maioria das vezes o webmaster esconde dentro de scripts, deixando apenas 
parte do endereço na página .htm.
Se funciona funciona, eu testei aqui e funcionou, tem que ver como é o 
processo que vc faz aí além do código que passei, e , como eu perguntei, 
o que é completo para você? É claro que completo é tudo, mas nem tudo 
pode ser salvo...

leite_romano escreveu:
  

 Obrigado Embarca,mas não funcionou nao salvou o HTML completo.
 -

 .

 



Re: [delphi-br] Re: Web Browser

2009-08-14 Por tôpico EmbarcaDelphi
Não vem com o Delphi a partir da versão 7

Leandro escreveu:
  

 eu uso o NMHTTP da paleta FastNet, no delphi 6 tem.. nos outros nao sei..
 gosto muito dos componentes da FastNet e da Indy..

 NMHTTP1.Get('http://checkip.dyndns.org/ http://checkip.dyndns.org/');
 varString := NMHTTP1.Body;

 .

 



Re: [delphi-br] TMainMenu X Form.BorderStyle:= bsNone

2009-08-13 Por tôpico EmbarcaDelphi
Tem que ser um Menu? Pode ser uma Barra de Ferramentas não?
Se sim, usa o componente ToolBar da aba Win32
É fácil de manusear ele.

ajama_1 escreveu:
  

 Estou fazendo um componente skin e não consigo manter o TMainMenu 
 dentro dos limites do form, uma vez que o form não tem bordas, o 
 MainMenu persiste em ficar acima do form. Alguém já passou por isso ? 
 teria um talves um componete para substituir o TMainMenu ?

 _
 .

 



Re: [delphi-br] Ajuda com webbrowser

2009-08-13 Por tôpico EmbarcaDelphi
Que tem, tem! Já vi na internet como remover um componente ou mudar a 
propriedade dele usando o TWebBrowser, só não me lembro onde foi (só sei 
que não era em sites do idioma português). Uma vez precisei fazer um 
controle para o Jogo Travian e para isso tinha de acessar o Login da 
conta, eu removia tudo na tela e deixava apenas os campos do login, e 
ainda por cima, colocava meu login dentro dos campos e simulava a tecla 
ENTER para entrar. Pode-se fazer diversas coisas com este componente, 
mas eu indico usar o componente free EmbeddedWB Component Pack, com 
ele se faz mais coisas ainda.


rodrigoojapa escreveu:
  

 Boa tarde Pessoal,

 Tenho uma aplicação que localiza coordenadas de latitude e longitude 
 no google maps, mas eu estou querendo que a pagina apareça apenas o 
 campo de localização e o mapa e mais nada do site, principalmente 
 aqueles link acima da página do gooogle.
 Tem como eu fazer isso??

 _
 .

 



Re: [delphi-br] Re: TMainMenu X Form.BorderStyle:= bsNone

2009-08-13 Por tôpico EmbarcaDelphi
Desculpe, mas não entendi.

1.) Você poderia dizer o que está querendo fazer e qual o objetivo final?

2.) Substituir em tempo de execução (o que quer substituir?)

3.) Criando um ToolBar a partir de um TMainMenu? este TMainMenu vai 
estar em outro form?


ajama_1 escreveu:
  

 Bem, minha idéia é substituir en tempo de execução, desde que eu possa 
 usar o ToolBar criando apartir do TMainmenu então pode sê.

 --- Em delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br, EmbarcaDelphi 
 embarcadel...@... escreveu
 
  Tem que ser um Menu? Pode ser uma Barra de Ferramentas não?
  Se sim, usa o componente ToolBar da aba Win32
  É fácil de manusear ele.
 
  ajama_1 escreveu:
  
  
   Estou fazendo um componente skin e não consigo manter o TMainMenu
   dentro dos limites do form, uma vez que o form não tem bordas, o
   MainMenu persiste em ficar acima do form. Alguém já passou por isso ?
   teria um talves um componete para substituir o TMainMenu ?
  
   _
   .
  
  

 .

 



[delphi-br] [OFF - Video-aula Free] Orientação a Obje tos...

2009-08-13 Por tôpico EmbarcaDelphi
Olá companheiros...

Para quem ainda não viu, a ClubeDelphi está oferecendo uma nova 
vídeo-aula sobre Orientação a Objetos. Quem está ministrando é Renato 
Correia de Matos

Sinceramente, tem muita gente que é fera em programação, mas quando 
inventa em criar uma vídeo-aula, parece que não sabe de nada. Nunca vi 
uma vídeo-aula tão bem explicada, parece uma orquestra, até um burro: 
cego, surdo e mudo vai aprender se assistir essa vídeo-aula do Renato.
A vídeo-aula é free, pode ser baixado por qualquer pessoa, o link:
http://www.devmedia.com.br/articles/viewcomp.asp?comp=9834

Vale a pena até mesmo os doutores em programação assistirem, nem que 
seja para assistir o concerto da orquestra.


Re: [delphi-br] [OFF] Quem fez o download do OCR Delphi?

2009-08-11 Por tôpico EmbarcaDelphi
Eu sempre usei o Avast e nunca tive problemas, mas o Nod32 é muito bom 
também. Mas, na minha opinião, o Kaspersky é o melhor de todos, pena que 
não tem uma versão Free.

Leandro escreveu:
  

 eu recomendo muito o nod32 por ser bom (nao o melhor) e mais leve (rapido,
 recursos e impacto no sistemas)

 reparem q a versao analizada foi a 3.0 o av comparatives faz teste em 
 prazos
 longos nod hj esta na 4.0

 Se tiver duvida em alguns dos graficos soh perguntar..

 Av Comparatives bem completo:
 http://www.av-comparatives.org/comparativesreviews/main-tests 
 http://www.av-comparatives.org/comparativesreviews/main-tests
 http://www.av-comparatives.org/comparativesreviews/performance-tests 
 http://www.av-comparatives.org/comparativesreviews/performance-tests

 Atenção nem sempre o antivirus q esta nas melhores classificação sao os
 melhores (ex, avira o primeirao, soh q o q ele pega de falso positivo 
 n cabe
 na MBR da particao kk brinquei)

 Virus Bulletin:
 http://www.virusbtn.com/index http://www.virusbtn.com/index

 .

 



Re: [delphi-br] [OFF] Quem fez o download do OCR Delphi?

2009-08-11 Por tôpico EmbarcaDelphi
Esqueci de dizer, uma vez instalei a PORCARIA do Avira, alguns dos meus 
programas passou a ser detectado como vírus. Um de meus cliente (que 
também usava) me perguntou se eu estava passando vírus! Por isso sempre 
digo aos meus clientes sobre o porque não usar o Avira. É muito 
importante você ter o Avira dentro de uma máquina virtual só para testar 
seus programas e, antes de distribuir a algum cliente informar que o 
Avira detecta seu programa como vírus, senão, você pode ter uma má fama 
de estar distribuindo vírus para os outros, creio que vocês 
(programadores) nunca pensaram nisso. Preserve sua reputação, teste seus 
programas nestes antivírus antes de enviar para seus cliente, se ele tem 
um antivírus como a porcaria do Avira, pode ser que ele nem chegue a te 
avisar, mas com certeza não vão querer mais saber dos seus programas. É 
só uma dica!

blz

EmbarcaDelphi escreveu:
  

 Eu sempre usei o Avast e nunca tive problemas, mas o Nod32 é muito bom
 também. Mas, na minha opinião, o Kaspersky é o melhor de todos, pena que
 não tem uma versão Free.

 .

 



Re: [delphi-br] BlogSite Programação em geral.

2009-08-11 Por tôpico EmbarcaDelphi
Silvio, alguns arquivos não é possível baixar, é o caso dos programas 
CEP, Contatos, etc..


blz


Silvio Clecio escreveu:
  

 Olá pessoal,

 Após ~4:30 editando, testando, *errando*, consegui melhorar o modesto
 portal sobre programação.

 A raiz do portal é ObjectPascal, no entanto, o mesmo aborda outros
 assuntos sobre programação, bancos de dados, compiladores, projetos open
 source, frameworks, cursos, oportunidades, dicas apostilas e livros,
 notícias e etc... etc... etc...

 Vale a pena conferir: [http://silvioprog.blogspot.com/ 
 http://silvioprog.blogspot.com/].

 Obrigada a todos pela atenção,
 -- 
 Silvio Clecio

 __.
 .

 



Re: [delphi-br] [OFF] Quem fez o download do OCR Delphi?

2009-08-11 Por tôpico EmbarcaDelphi
Na realidade tem uma versão free, mas não faz detecção automática, e é 
igual a versão comercial:

http://superdownloads.uol.com.br/download/7/kaspersky-virus-removal-tool/detecte-remova-virus-do-computador-antivirus-kaspersky.html

Parei com o OFF aqui.

blz

Andrei Luís escreveu:
  

 Não tem versão free, mas também não é tão caro assim. Comprei o Kaspersky
 Internet Security 2009 licença para 3 micros por R$ 160,00, e é muito bom
 mesmo. São R$ 53,00 / micro, uma bagatela pelo produto que é.

 Não adianta a gente ficar na ilusão de tudo que é free atende a 
 necessidade.
 E, em se falando de segurança, arrisco a dizer que é quase melhor não 
 ter um
 antivirus do que ter um mais ou menos, te dá a falsa impressão de 
 segurança.

 []
 Andrei

 .

 



Re: [delphi-br] SMS em Delphi... Alguma dica!

2009-08-11 Por tôpico EmbarcaDelphi
Ricardo, a única saída que encontrei foi colocar o componente EmbeddedWB 
e deixar que o próprio usuário coloque o código.

blz

Ricardo Diniz escreveu:
  

 Bom dia amigos...

 Depois de inumeras buscas e pesquisas na internet não obtive suscesso 
 e tive q procurar ajuda ao grupo...
 Preciso de alguma dica válida e aplicável ao envio de SMS em delphi... 
 Chego ao ponto onde as operadoras restrigem o envio com o código de 
 confirmação q é solicitado se alguem tiver alguma dica... Ficarei grato.

 Att.

 Ricardo.

 .

 



Re: [delphi-br] Problemas nas Cores das Telas

2009-08-11 Por tôpico EmbarcaDelphi
Deve ser algo com a resolução de cores do Windows. A cor sem ser a 
padrão pode conter uma quantidade de cor que no Windows onde vc coloca 
não tem, digamos 16milhões de cores, esteja com somente 256 cores e 
resolução de 899x600, algo assim...

blz

Rafael Marques escreveu:
  

 Boa Tarde pessoal

 estou tendo um problema de umas semanas pra cá e n consegui achar a 
 resposta no google!!

 eu tenho um programa onde n utilizo as cores padroes do windows nas 
 telas (eu uso tons de verde nos Panels, groupbox e dbgrids). De umas 
 semanas pra cá, n sei como, as maquinas onde uso o sistema com o 
 windows (Vista ou XP) e com a aparencia propria desses windows, estes 
 componentes ficam todos com cor branca. Se eu volto a aparencia pra 
 classica do windows (aquela do win98 com tudo cinza).

 alguem saber o q pode ser??

 mto obrigado!!

 Rafael

 .

 



Re: [delphi-br] Problemas nas Cores das Telas

2009-08-11 Por tôpico EmbarcaDelphi
Deve ser algo com a resolução de cores do Windows. A cor sem ser a 
padrão pode conter uma quantidade de cor que no Windows onde vc coloca 
não tem, digamos 16milhões de cores, esteja com somente 256 cores e 
resolução de 800x600, algo assim...

blz

Rafael Marques escreveu:
  

 Boa Tarde pessoal

 estou tendo um problema de umas semanas pra cá e n consegui achar a 
 resposta no google!!

 eu tenho um programa onde n utilizo as cores padroes do windows nas 
 telas (eu uso tons de verde nos Panels, groupbox e dbgrids). De umas 
 semanas pra cá, n sei como, as maquinas onde uso o sistema com o 
 windows (Vista ou XP) e com a aparencia propria desses windows, estes 
 componentes ficam todos com cor branca. Se eu volto a aparencia pra 
 classica do windows (aquela do win98 com tudo cinza).

 alguem saber o q pode ser??

 mto obrigado!!

 Rafael

 .

 



Re: [delphi-br] showMessage

2009-08-11 Por tôpico EmbarcaDelphi
Se não me engano, essa function foi desenvolvida pelo Rubem, copie e cole:


function MessageBoxTimer(const AMsg, ATitle: String;
 DlgType: TMsgDlgType;
 Buttons: TMsgDlgButtons;
 MSecs: Cardinal = 0;
 ShowProgressBar: Boolean = True) : integer;
var
  lMsgDialog: TForm;
  lTimerMethod: TNotifyEvent;

procedure UpdateProgressBar(Data: Pointer; Sender: TObject);
var
  lForm: TForm;
  lProgressBar: TProgressBar;
begin
  if Sender is TTimer then
if TTimer(Sender).Owner is TForm then
begin
  lForm := TForm(TTimer(Sender).Owner);
  lProgressBar := TProgressBar(lForm.FindComponent('ProgressBar'));
  if Assigned(lProgressBar) then
if lProgressBar.Position + 1  lProgressBar.Max then
  lProgressBar.StepIt
else
  lForm.ModalResult := mrCancel;
end;
end;

procedure TranslateCaptionButtons;
const
  AButtonNames: array[TMsgDlgBtn] of String = ('YES',
   'NO',
   'OK',
   'CANCEL',
   'ABORT',
   'RETRY',
   'IGNORE',
   'ALL',
   'NOTOALL',
   'YESTOALL',
   'HELP');
AButtonCaptions: array[TMsgDlgBtn] of String = ('Sim',
'Não',
'Ok',
'Cancelar',
'Abortar',
'Retentar',
'Ignorar',
'Tudo',
'Não a Tudo',
'Sim a Tudo',
'Ajuda');
var
  lBtnType: TMsgDlgBtn;
  lButton: TButton;
begin
  for lBtnType := Low(TMsgDlgBtn) to High(TMsgDlgBtn) do
  begin
lButton := TButton(lMsgDialog.FindComponent(AButtonNames[lBtnType]));
if Assigned(lButton) then
  lButton.Caption := AButtonCaptions[lBtnType];
  end;
end;

begin
  // Cria a caixa de diálogo
  lMsgDialog := CreateMessageDialog(AMsg, DlgType, Buttons);
  lMsgDialog.Caption := ATitle;

  // Traduz botões existentes no diálogo
  TranslateCaptionButtons;

  // Checa se será necessário uma barra de progresso
  if MSecs  0 then
  begin
with TProgressBar.Create(lMsgDialog) do
begin
  Name := 'ProgressBar';
  Parent := lMsgDialog;
  Align := alBottom;
  Max := MSecs div 1000;
  Min := 0;
  Step := 1;
  Position := 0;
  Visible := ShowProgressBar;
end;

lMsgDialog.Height := lMsgDialog.Height + (Ord(ShowProgressBar) * 10);
with TTimer.Create(lMsgDialog) do
begin
  Name := 'MsgTimer';
  Interval := 1000;
end;

// Cria o timer, usando uma rotina 'solta' (stand-alone, desvinculada de
// uma instância de objeto) para fazer o trabalho de atualização da 
barra
// de progressão (caso exista) e também o tempo que será contado para
// fechar a janela
TMethod(lTimerMethod).Code := Addr(UpdateProgressBar);
TMethod(lTimerMethod).Data := lMsgDialog.FindComponent('MsgTimer');
TTimer(lMsgDialog.FindComponent('MsgTimer')).OnTimer := lTimerMethod;

try
  // Chama a caixa de diálogo e verifica o seu retorno
  Result := lMsgDialog.ShowModal;

finally
  lMsgDialog.Free;
end;
  end;
end;


blz


brunolbra...@yahoo.com.br escreveu:
  

 Boa tarde!

 Seguinte... se eu dou o comando:

 showMessage('Teste');

 o delphi exibe uma caixa com a msg: Teste na tela e essa msg só sai depois
 que alguém pressionar em OK.

 Tem como eu fazer algum comando para essa msg sair automaticamente?

 Obrigado!

 .

 



Re: [delphi-br] showMessage

2009-08-11 Por tôpico EmbarcaDelphi
Não entendo o que significa SIMPLES para você. A function que passei 
(que o Rubem criou) não tem nada de complicado.
Mas, como tem muito programador que quer tudo fácil e que tem preguiça 
de aprender a programar e quer tudo pronto na mão e não faz pesquisa na 
internet, até aí eu concordo que essa rotina seja difícil.
Tem tanta gente que busca um componente que FAÇA TUDO (se possível o 
programa inteiro). rsrs


Elazar Dornelles Ceza escreveu:
  

 Você é um programador ou um rato?
 ...rsssjust a joke.

 Olhe ali, não falei que poderia usar CreateMessageDialog

 No caso esta 'ShowMessage' do Rubens é o cão chupando manga; Como 
 disse, se quiser algo mais simples veja como funciona a 
 CreateMessageDialog e crie a sua.

 Atenc;
 Elazar

 ___

 .

 



Re: [delphi-br] SMS em Delphi... Alguma dica!

2009-08-11 Por tôpico EmbarcaDelphi
Não é um componente específico para SMS, ele é o componente para 
navegação na internet (free) se não me engano tem o link no blog do 
Silvio. É semelhante ao componente do Delphi (WebBrowser) com muitos e 
muitos mais recursos. Eu citei ele porque a msg dizia que ia parar no 
código que tinha que digitar. Se colocar o WebBrowser no form, é só 
esperar o usuário digitar como se estivesse no próprio programa. Nunca 
vi uma outra alternativa, a não ser que você tenha acordos com as 
operadoras e receba uma autorização, mas creio que não seja um serviço 
gratuito.

Ricardo Diniz escreveu:
  

 Boa tarde...
  
 Mas esse componente envia pra qualquer operadora como se dá???
  
 Grato.
  
 Se algue msouber de algo mais pode enviar.
 Att.
 Ricardo.

 .

 



Re: [delphi-br] Mainmenu

2009-08-11 Por tôpico EmbarcaDelphi
Porque não foi programado para aparecer em tempo de design. Mas se você 
executar o programa ele vai aparecer. Na janela que cadastrar  os itens 
de Menus (em tempo de design ele aparece), mas no form não. Não tem 
problemas isso, não sei o porque você queria que aparecesse, rsrs

blz

Adenes Junior escreveu:
  

 Alguém sabe me dizer porque quando coloco no menu Cadastro para C 
 ficar marcado e quando fecho o MainMenu ele não aparece?

 Estou usando o Delphi 7.

 .

 



Re: [delphi-br] showMessage

2009-08-11 Por tôpico EmbarcaDelphi
Valeu Silvio, esqueci das mensagens do Windows, porém, ainda tem uma 
pequena falha ai. Não é especificamente a janela do ShowMessage da 
aplicação que o PostMessage vai fechar, é o que está ativo no momento. 
Por exemplo, se aparecer outra ShowMessage de outro aplicativo ou uma 
message do Windows o ShowMessage da aplicação dele vai continuar. Só 
funciona com quem esta ativo, com quem está o foco. Mas...funciona, é um 
detalhe pequeno Prefiro usar a function do Rubem pois vou ter o 
controle dele no meu programa.
Como citei, faça dois programas, num coloca-se um showmessage (sem 
timer) e executa primeiro, no outro faz este procedimento que vc passou, 
qdo executar ele
clique no showmessage do outro programa, vai ver que fecha apenas o do 
outro programa que não tem nada a ver com a história :D e o outro 
permanece lá boiando. Prefiro a function do Rubem pois podemos ter a 
autoridade dele e fechar quando quiser.
Isso não é critica hein! é só um comentário, vc é uma ótima pessoa e é 
um grande programador, alias, vc deu apenas uma sugestão.

blz

Silvio Clecio escreveu:
  


 Do DicasDelphi.chm.

 ---
 .
 .
 .
 var
 Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.FormCreate(Sender: TObject);
 begin
 Timer1.Enabled := False;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
 Timer1.Enabled := True;
 ShowMessage('Tchau!');
 end;

 procedure TForm1.Timer1Timer(Sender: TObject);
 begin
 PostMessage(FindWindow('TMessageForm', nil), WM_CLOSE, 0, 0);
 Timer1.Enabled := False;
 end;
 ---
 -- 
 Silvio Clecio

 __.
 .

 



Re: [delphi-br] msg erro janela

2009-08-10 Por tôpico EmbarcaDelphi
Uma dica, leia os dois links e veja se resolve:

http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg16249.html
http://www.mail-archive.com/delphi-br@yahoogrupos.com.br/msg69487.html

Só um detalhe, você usa Thread neste programa que deu esse erro?

blz

Dimas Bolognani escreveu:
  

 Bom dia a todos,

 Alguém já teve este tipo de problema ao fechar o programa.

 De vez enquanto da este erro:

 System error: Code 1400

 O identificador da janela é invalido.

 Se alguém puder me dar alguma dica do seja agradeço.

 Atte.

 Dimas

 .

 



Re: [delphi-br] [OFF-TOPIC] Cuidado, vírus pa ra os integrantes da lista

2009-08-09 Por tôpico EmbarcaDelphi
Paulo, você tem certeza disso?
Eu baixei e não detectei nenhum virus.
Meu antivirus é o Avast, também testei no computador do meu irmão que 
usa o AVG e também não detectou nada.
Se seu antivirus é o Avira, pode ter certeza que ele acusa qualquer 
coisa que encontre no programa que mostre um endereço de internet ou um 
email escrito num TLabel, o programa dele tem um link numa Mensagem que 
indica o download de um código fonte, deve ser isso. Foi porisso que 
deixei de usar o Avira Antivirus. No site 4Shared o Kaspersky também 
certifica que é livre de virus. Uma empresa não vai dizer que não há 
virus sendo que haja, concorda. O programa é muito bom, queria saber se 
tem os fontes para baixar.

blz


Paulo Coutinho escreveu:
  

 Olá,

 Recebei um email recentemente com um cara dizendo que pegou emails do
 pessoal desta lista, enviando um executável com vírus, de um projeto
 de OCR em Delphi.

 Mas meu antivirus pegou na hora. (antivir).

 Tomem cuidado.

 -- 
 Atenciosamente,
 Paulo Coutinho.
 Blog: www.prsolucoes.com/blog
 Site: www.prsolucoes.com
 Msn: pa...@prsolucoes.com mailto:paulo%40prsolucoes.com

 _
 .

 



Re: [Bulk] Re: [delphi-br] Descobrir a versão do MS Office que está instalada na máqu ina

2009-08-06 Por tôpico EmbarcaDelphi
WinExec não se usa mais, até a Microsoft relatou que nas futuras versões 
não vai dar suporte para o WinExec, o negócio é usar o ShellExecute como 
você mostrou...

Silvio Clecio escreveu:
  

 Em 5/8/2009 08:16, Carlos escreveu:
  Estou desenvolvendo uma aplicação, e coloquei uns atalhos para chamar
  aplicativos do office(Excel, Word, Access e etc..)e dependendo da versão
  o nome da pasta onde está o executável muda, então preciso saber qual
  versão, mas se alguém souber uma outra forma, não fique acanhado de me
  informar e me mostrar minha ingenuidade no assunto...ficarei imensamente
  grato.

 ---
 implementation

 {$R *.dfm}

 uses
 ShellAPI;
 .
 .
 .
 begin
 ShellExecute(Application.Handle, 'open', PChar('excel'), nil, nil,
 SW_NORMAL);
 ---

 Troque o excel por winword (sem aspas) para abrir o Word, e
 msaccess pro Access; note que eu poderia usar WinExec, o problema é
 que esse segundo não encontra o registro dos .exe's do Office (por
 favor, me corrijam se eu estiver errado, chutei).

 ps. Não testei, estou sem o Office em minha VM.
 -- 
 []'s, Silvio Clécio
 ---
 Linux User: #481900
 Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com
 E-mail, Y! Messenger: silviop...@yahoo.com.br 
 mailto:silvioprog%40yahoo.com.br
 BlogSite: http://silvioprog.blogspot.com/ 
 http://silvioprog.blogspot.com/
 BlogSpot: http://silvioclecio.blogspot.com/ 
 http://silvioclecio.blogspot.com/
 VirtualDriver: http://silvioprog.4shared.com/ 
 http://silvioprog.4shared.com/
 °oO| Seja livre, use Linux! |Oo°

 .

 



Re: [delphi-br] [MAF] Leitura arquivo texto

2009-08-06 Por tôpico EmbarcaDelphi
Não vi nenhum erro no código, a linha 471 diz o que? o que tem nessa linha?

Marcos Abreu Ferreira escreveu:
  

 Pessoal,

 fiz uma função básica para leitura de arquivo texto e de repente não 
 consigo mais compilar o programa. Alguem ja passou por isso? Segue o 
 código fonte

 if FileExists(fileName) then
 begin
 AssignFile(F, fileName);
 Reset(F);
 while not eof(F) do
 begin
 ReadLn(F, fileLine);
 ...
 end;
 CloseFile(F);
 end;

 recebo a seguinte mensagem

 Build
 [Error] F2Server.pas(471): Missing operator or semicolon
 [Fatal Error] F2ServerApp.dpr(9): Could not compile used unit 
 'F2Server.pas'

 []s

 Marcos

 .

 



Re: [delphi-br] Re: Descobrir a versão do M S Office que está instalada na máquina - Resolvido

2009-08-05 Por tôpico EmbarcaDelphi
Não uso o Office da M$, mas seria uma rotina melhor se você capturar via 
Registro do Windows, lá você encontra a versão do Office instalada, o 
local (path), o nome do executável, os plugins instalados, os recursos 
existentes e várias outras informações úteis. Não há uma rotina 
específica, basta conhecer como se usa o TRegistry e (para quem tem o 
Office instalado) buscar as chaves e valores a ser capturados. O bom 
seria pegar uma versão 6,7 etc.. pois a cada nova versão pode ser que 
mude algumas chaves do Registry.
Para pegar a versão, a melhor maneira foi a que o Rodinei passou.

blz

Carlos escreveu:
  

 Senhores, bom dia!
 Quero agradecer de coração as sugestões e informar que resolvi meu 
 problema com uma solução caseira...(POG), por favor compreendam.
 Como o recurso é mais um Suvenir, então fiz da seguinde forma:
 Criei uma função que verifica a existencia do diretório do office:

 function TdmCadastro.versaoOffice(mExec:string): PAnsiChar;
 var
 mTexto: AnsiString;
 mResult: PAnsiChar;
 begin
 if DirectoryExists('C:\Arquivos de programas\Microsoft 
 Office\OFFICE9') then
 begin
 mTexto := 'C:\Arquivos de programas\Microsoft Office\OFFICE9\' + mExec;
 Result := PAnsiChar(mTexto);
 Exit;
 end;
 if DirectoryExists('C:\Arquivos de programas\Microsoft 
 Office\OFFICE10') then
 begin
 mTexto := 'C:\Arquivos de programas\Microsoft Office\OFFICE10\' + mExec;
 Result := PAnsiChar(mTexto);
 Exit;
 end;
 if DirectoryExists('C:\Arquivos de programas\Microsoft 
 Office\OFFICE11') then
 begin
 mTexto := 'C:\Arquivos de programas\Microsoft Office\OFFICE11\' + mExec;
 Result := PAnsiChar(mTexto);
 Exit;
 end;
 if DirectoryExists('C:\Arquivos de programas\Microsoft 
 Office\OFFICE12') then
 begin
 mTexto := 'C:\Arquivos de programas\Microsoft Office\OFFICE12\' + mExec;
 Result := PAnsiChar(mTexto);
 Exit;
 end;
 if DirectoryExists('C:\Arquivos de programas\Microsoft 
 Office\OFFICE13') then
 begin
 mTexto := 'C:\Arquivos de programas\Microsoft Office\OFFICE13\' + mExec;
 Result := PAnsiChar(mTexto);
 Exit;
 end;
 end;

 e depois a chamo do meu form:
 winExec(dmCadastro.versaoOffice('Excel.exe'), SW_MAXIMIZE);

 No caso, se vc quiser a versão mais recente, é só colocar em ordem 
 decrescente, coisa que não preciso, pois na empresa, só tem um Office 
 por máquina, e todas só têm uma partição. (empresa pública).

 Fraterno abraço a todos e espero que seja útil, mas aceito 
 contribuição para melhorar o existente...

 Carlos

 .

 



Re: [delphi-br] Re: Contrato parceria ideia OFF

2009-08-05 Por tôpico EmbarcaDelphi
A lista não aceita anexo, entre no Yahoo Grupos com o seu login e senha, 
clique no link Arquivos (ao lado direito da tela) e faça o upload do 
arquivo desejado, marque a opção para enviar uma mensagem para todos os 
membros, quem quiser baixar clica no link.

blz.


eliezerpimen...@ymail.com escreveu:
  

 Alessandra,

 Com relação ao contrato, o ideal seria você elaborar um contrato 
 normal, como se estivesse realmente fazendo um contrato de prestação 
 de serviços para qualquer outro cliente, porém, aconselho você 
 acrescentar um Anexo ao contrato, onde poderá ser acrescentado o 
 modelo de doação ou cessão, cujos valores são isentos de taxas ou 
 cobranças.

 Tenho um modelo de contrato que usamos em nossa empresa, é bem grande 
 e completo, apesar de não ter um Anexo deste tipo, você poderia 
 adaptá-lo, ok?

 Sou novo no grupo e não sei como anexar arquivos aqui, mas se ajudar, 
 me envia um email que lhe respondo com o anexo, ok?

 Abs,

 Eliézer.

 .

 



Re: [delphi-br] Re: Contrato parceria ideia OFF

2009-08-05 Por tôpico EmbarcaDelphi
Opa!!! Desculpa, é o lado esquerdo da tela :D

EmbarcaDelphi escreveu:
  

 A lista não aceita anexo, entre no Yahoo Grupos com o seu login e senha,
 clique no link Arquivos (ao lado direito da tela) e faça o upload do
 arquivo desejado, marque a opção para enviar uma mensagem para todos os
 membros, quem quiser baixar clica no link.

 blz.

 .

 



Re: [delphi-br] [OFF] Inglês (alguém da lista já...)

2009-08-04 Por tôpico EmbarcaDelphi
Moacir,


agradeço, mas o curso da BBS é para quem sabe inglês e deseja se 
aperfeiçoar. O que procuro é um curso português-Inglês para quem nunca 
viu inglês

blz

Moacir - GMail escreveu:
  

 EmbarcaDelphi,

 Uma ótima opção é o curso da bbs, totalmente 0800

 http://www.bbc.co.uk/portuguese/learningenglish/ 
 http://www.bbc.co.uk/portuguese/learningenglish/

 Sucesso !!
 Moacir

 .

 



Re: [Bulk] Re: [delphi-br] [OFF] Inglês (al guém da lista já...)

2009-08-04 Por tôpico EmbarcaDelphi
JB,

FANTÁSTICO...
Simplesmente o melhor curso de inglês gratuito que já vi na internet. 
Tem a versão plus (pago), mas a versão gratuita é simplesmente fantástico!
Já me cadastrei e já estou estudando, tem as imagens ilustrativas, 
exercícios, tradução e áudio referente aos textos a estudar. Amigos 
(chat) para conversar. Nível básico, intermediário e avançado, mais de 2 
milhões de alunos onde pode-se entrar em contato para troca de mensagens 
e ajuda, tipo uma comunidade como o Linux, um ajudando o outro, muito 
legal, este eu indico a TODOS da lista Delphi-BR.

Grato


JB escreveu:
  

 www.livemocha.com

 muito bom, rede social e free

 .

 



Re: [Bulk] Re: [Bulk] [delphi-br] Re: agregar ayuda a mi aplicacion

2009-08-03 Por tôpico EmbarcaDelphi
Alisson, este se refere a colocação de mensagens em outro idioma 
diferente do português com referencia a perguntas sobre Delphi, e não a 
mencionar algo em outros idiomas. Não vi nenhuma mensagem de conteúdo 
diferente do português! vi uma tradução, além de péssima, mas estava em 
português, e vi (em off, como a minha) sobre assuntos de idiomas que não 
era sobre Delphi, e a mesma estava num OFF (que é permitido). Não 
misture as coisas :)

Alisson Yahoo escreveu:
  

 Pessoal, vejam esse tópico das regras da lista.

 III. REGULAMENTO
 a) GERAL:
 1. O idioma oficial da lista é o português. Mensagens em outros idiomas
 não serão permitidas.

 .

 



Re: [delphi-br] Delphi X OpenOffice

2009-08-03 Por tôpico EmbarcaDelphi
Dê uma olhada nestes links, o primeiro é um fórum que dispõe de várias 
perguntas de delphi x openoffice (faça uma pesquisa de dentro dele):

http://www.oooforum.org/forum/viewtopic.phtml?p=150870

Este é um exemplo de formatação:
http://forum.imasters.uol.com.br/index.php?/topic/292471-exportar-para-openoffice-e-broffice/page__p__1065876#entry1065876

Espero que ajude-o

blz


Paulo Pontes escreveu:
  

 Pessoal, bom dia!

 Alguém tem um exemplo aí de como formatar uma planilha do OpenOffice pelo
 Delphi? Eu já implementei uma rotina aqui que faz a geração da 
 planilha mas
 não estou conseguindo formatá-la, principalmente: mesclar células e 
 colocar
 grade.

 Obrigado!

 .

 



[delphi-br] [DICA] Sobre redimencionamento de imagens

2009-08-03 Por tôpico EmbarcaDelphi
Pessoal, alguém na lista um dia precisava disso, encontrei no site da 
ClubeDelphi, vai aí o link:

http://www.devmedia.com.br/articles/viewcomp.asp?comp=13807

Localize o item: Projeto Optimizedzoom

Espero que seja útil

blz


[delphi-br] [OFF] Inglês (alguém da lista já. ..)

2009-08-03 Por tôpico EmbarcaDelphi
Aproveitando o tópico (coloquei um OFF).
Alguém sabe informar se aquele curso on-line de inglês é bom, realmente 
dá para aprender alguma coisa? Me refiro ao site: 
http://mkge.englishtown.com/Sp/lp/Home.aspx?bhcp=1

Alguém na lista já participou?

Silvio Clecio escreveu:
  

 Em 2/8/2009 00:18, Ricardo César Cardoso escreveu:
  Sílvio, tinha algo muito errado naquela tradução que eu fiz pra você? Li
  e reli aquilo umas três vezes pra ver se não tinha nada errado...

 Ricardo meu brother, aquela tradução que você fez esta perfeita,
 agradeço novamente pela sua paciência e boa vontade; o erro foi em outro
 texto, mas quem precisou entender aceitou de boa.

 Estou estudando inglês, e mesmo desajeitado dou uns pitacos lá fora,
 eles (os gringos) aceitam de boa e sempre dão um retorno se deu certo ou
 não; vez ou outra preciso falar além do br e en, bom, dou meus pulos
 (virtual machine) e tento ajudar de alguma forma; vem dando certo.
 -- 
 []'s, Silvio Clécio
 ---
 Linux User: #481900
 Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com
 E-mail, Y! Messenger: silviop...@yahoo.com.br 
 mailto:silvioprog%40yahoo.com.br
 BlogSite: http://silvioprog.blogspot.com/ 
 http://silvioprog.blogspot.com/
 BlogSpot: http://silvioclecio.blogspot.com/ 
 http://silvioclecio.blogspot.com/
 VirtualDriver: http://silvioprog.4shared.com/ 
 http://silvioprog.4shared.com/
 °oO| Seja livre, use Linux! |Oo°

 _
 .

 



Re: [Bulk] Re: [delphi-br] agregar ayuda a mi aplicacion

2009-08-01 Por tôpico EmbarcaDelphi
Poxa vida, li várias vezes e não entendi nada! Seria melhor usar o 
espanhol ou o inglês para o pessoal que entende de inglês aqui na lista.
E... fico pensando nas perguntas que faço nos fóruns em inglês usando a 
tradução do Google ou YahooBabelFish. Deve ficar horrível...


Jackson Gomes - ToolsComps escreveu:
  


  Hola como estan.
  Estou fazendo um pequeno Petri Nets simulador para o
  meu seminário e pediu-me que este dispositivo permite
  uma aplicação para ter algo parecido com isto, ou mais macacos como 
 este:

 Acho melhor você escrever em espanhol mesmo, porque essa sua tradução 
 automática
 embananou tudo e eu não entendi nadica de nada.

 Jackson Gomes
 ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
 Web Site: http://www.toolsandcomps.com http://www.toolsandcomps.com
 Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps 
 http://groups.yahoo.com/group/toolsandcomps
 e-mail: jack...@toolsandcomps.com mailto:jackson%40toolsandcomps.com
 Fone: 27 3389 1138 - 8811 0324
 --
 http://jacklovesdelphi.blogspot.com 
 http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc
 --
 Devhost - Webhost para desenvolvedores Delphi
 http://www.devhost.com.br http://www.devhost.com.br
 devh...@devhost.com.br mailto:devhost%40devhost.com.br

 .

 



Re: [Bulk] [delphi-br] Re: agregar ayuda a mi aplicacion

2009-08-01 Por tôpico EmbarcaDelphi
Silvio, vc entendeu o que ele escreveu? Poderia colocar no bom 
português? serve tanto para nós como para ele ver a diferença do que ele 
escreveu e a maneira correta, pode ser, ou você chutou?

blz

Silvio Clecio escreveu:
  

 --- Em delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br, fer mol j_leon...@... escreveu
  Hola como estan.
  Estou fazendo um pequeno Petri Nets simulador para o meu seminário e 
 pediu-me que este dispositivo permite uma aplicação para ter algo 
 parecido com isto, ou mais macacos como este:
   
  O problema é que eu nunca o meu pedido ajuda e eu estava me 
 perguntando se eu poderia dar uma ajuda para fazê-lo.
  Deixe-me saber como posso fazer isso em Delphi ou se eu tenho que 
 fazer em outro programa e, se assim que eu adicionar ao meu pedido, 
 que o programa é tão atrás e uso na minha aplicação.
  Desde já muito obrigado.
  Juan Fernando Molina

 Veja se ajuda {Ver si ayuda} [http://staff.um.edu.mt/jskl1/petrisim/ 
 http://staff.um.edu.mt/jskl1/petrisim/].
 -- 
 []'s, Silvio Clécio
 ---
 Linux User: #481900
 Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com
 E-mail, Y! Messenger: silviop...@yahoo.com.br 
 mailto:silvioprog%40yahoo.com.br
 BlogSite: http://silvioprog.blogspot.com/ 
 http://silvioprog.blogspot.com/
 BlogSpot: http://silvioclecio.blogspot.com/ 
 http://silvioclecio.blogspot.com/
 VirtualDriver: http://silvioprog.4shared.com/ 
 http://silvioprog.4shared.com/
 °oO| Seja livre, use Linux! |Oo°

 .

 



[delphi-br] Como acrescentar uma propriedade string?

2009-07-31 Por tôpico EmbarcaDelphi
Tô penando para acrescentar uma propriedade a um componente.

Estou criando um componente descendente do TLabel, já li na net vários 
modelos como acrescentar, mas só mostra como colocar um inteiro para 
fazer uma espécie de cronômetro, eu quero apenas colocar um tipo de 
caption e que apareça no ObjectInspector, que não faça nada além que o 
caption faz. Alguém poderia me dizer como faço isso? colocar no 
ObjectInspector eu sei, só não sei como colocar o tipo caption e que não 
tenha referências com o caption do TLabel, seja apenas para armazenar 
uma string.

grato


Re: [delphi-br] Como acrescentar uma propriedade string?

2009-07-31 Por tôpico EmbarcaDelphi
Já fiz, grato...

Rubem, colocar no ObjectInspector eu sei (como citei no texto)...

valeu...

EmbarcaDelphi escreveu:
  

 Tô penando para acrescentar uma propriedade a um componente.

 Estou criando um componente descendente do TLabel, já li na net vários
 modelos como acrescentar, mas só mostra como colocar um inteiro para
 fazer uma espécie de cronômetro, eu quero apenas colocar um tipo de
 caption e que apareça no ObjectInspector, que não faça nada além que o
 caption faz. Alguém poderia me dizer como faço isso? colocar no
 ObjectInspector eu sei, só não sei como colocar o tipo caption e que não
 tenha referências com o caption do TLabel, seja apenas para armazenar
 uma string.

 grato

 .

 



Re: [delphi-br] Como acrescentar uma propriedade string?

2009-07-31 Por tôpico EmbarcaDelphi
Colocar no objectinspector usa-se property em published, o que eu queria 
(e já está resolvido) era o procedimento do read write (a linha, o que 
colocar)...
mas já resolvi.

Grato

Eduardo escreveu:
  

 Se vc sabe colocar a propriedade no objectinspector qual e a sua 
 duvida ???

 .

 



Re: [delphi-br] problemas com imagen ...

2009-07-31 Por tôpico EmbarcaDelphi
Um resumo:

Coloque o componente: ImageList da pallete Win32;
Jogue as 2 imagens dentro dele;
É só manipular o index dele para o seu TImage ou outro componente que 
aceite imagens.

blz

Felipe Milagres escreveu:
  


 galera seguinte ..
 tenho uma aplicação que dependendo da escolha do usuario a imagem que 
 está no form muda..
 por exemplo:
 quando executa o aplicativo, vc faz login .. se vc for administrador 
 .. a imagem que fica no fundo do form é um 'circulo gigante azul' .. e 
 se vc for usuario_normal,  fundo é um 'X gigante verde' ..
 bom .. foi esse o codigo que eu usei para alternar entre as imagens:
 procedure TForm1.Button1Click(Sender: TObject);begin// 
 administradorImage1.Picture.LoadFromFile(GetCurrentDir()+'\tela_adm_azul.bmp');end;
 procedure TForm1.Button2Click(Sender: TObject);begin// usuario 
 normalImage1.Picture.LoadFromFile(GetCurrentDir()+'\tela_usuN_verde.bmp');end;
 porem .. se eu executar o executavel em outro lugar .. ele nao acha as 
 imagens ...
 tem algum jeito de 'anexar' as imgens no executavel ..???
 ps.: eu queria aproveitar o mesmo form para a aplicação ... pois 
 quando entra como administrador ou usuario normal, ele faz uma 
 verificação de quem é quem, e desbilita coisas para quem for usuario 
 normal .. com isso, nao tenho que criar varios forms iguais.
 []s ..
 --

  Dígrafo com quem andas que eu te direi quem és 

 --

 .

 



Re: [delphi-br] Re: Ajuda para rodar aplicativo no wine

2009-07-30 Por tôpico EmbarcaDelphi
Josir, vc está certo. Mas eu não falei nada sobre Windows, eu falei 
sobre o VirtualBox!


Josir Gomes escreveu:
  

 Olá Embarca,

 mas para usar o VirtualBox ou o Vmware vc precisa de licença do 
 Windows. É isso que o cliente dele quer evitar pois provavelmente o 
 sistema será usado em muitas estações.

 A solução Wine/Delphi funciona muito bem se o programa em Delphi for 
 desenvolvido para ela. Além disso, pelo que ele falou é uma solução 
 paliativa até que ele tenha o sistema em Java pronto.

 Vendo esse e outros posts, me recordo: que tiro no pé deu a CodeGear 
 ao abandonar o Kylix

 Está abrindo oportunidade para vários desenvolvedores testarem o 
 Lazarus ou simplesmente abandonar o Pascal porque não poderem migrar 
 seus programas em Delphi para Linux.

 Saudações,
 Josir.

 .

 



Re: [Bulk] [delphi-br] PressObjects, Sure (OOP: MVP, OPF, BO)

2009-07-30 Por tôpico EmbarcaDelphi
Silvio, não seria melhor participar da comunidade do Lazarus em vez de 
ir para esse tal de PressObject? O Lazarus está mais avançado no 
projeto, ou não?

Silvio Clecio escreveu:
  

 Olá pessoal,

 Acredito que muitos aqui já conhecem o PressObjects -- 
 www.pressobjects.org -- trata-se de um SDK composto por diversos 
 frameworks. O Press pode ser compilado com FreePascal ou Delphi, está 
 sendo escrito de forma totalmente desacoplada de bibliotecas e 
 independente de plataforma.

 Atualmente recebi através da lista do Press a notícia sobre um sistema 
 feito com este framework. O que me chamou a atenção foi com o fato do 
 desenvolvedor -- João Henrique -- estar trabalhando no projeto 
 assiduamente, bem como ser atualmente o maior colaborador do Press 
 (correções de possíveis bugs, traduções...).

 O projeto atende pelo nome Sure, e está disponível neste repositório 
 https://sourceforge.net/projects/sure/develop; 
 https://sourceforge.net/projects/sure/develop; para os que preferem 
 acompanhar através de snapshots, as novas compilações serão 
 disponibilizadas aqui https://sourceforge.net/projects/sure/files/. 
 https://sourceforge.net/projects/sure/files/.

 *O que eu ganho com Press, Sure?!*

 Todos os recursos que a OOP oferece (OPF, OR, MVP, BO...) com um 
 Object Pascal avançado (os novatos, como eu, não precisam se assustar; 
 garimpem o wiki e façam testes com os projetos, é 100% grátis ;-) ); 
 desenvolver em Cross-X, onde o X pode ser o SGBD, SO, Lib gráfica, IDE 
 e etc., usando Object Pascal puro e de forma inteligente.

 Para os que já conhecem o PressObjects, o Sure trará novas abordagens 
 sobre o framework, para os que estão começando agora (como eu), vale a 
 pena acompanhar a evolução PressObjects, e do Sure que atualmente esta 
 precisando de colaboradores para portá-lo para o Lazarus, bem como 
 construir mais funcionalidades, testar, opinar, e criticar de forma 
 construtiva.

 Boa sorte, e um grande abraço a todos,
 Comunidade PressObjects.

 __._,_.
 .

 



Re: [delphi-br] Placas de Som

2009-07-30 Por tôpico EmbarcaDelphi
Não seria melhor você ter uma única placa de som com vários canais?

Que eu saiba não existe um componente que faça isso tudo (que eu saiba).
Existe sim, uma série de rotinas como os programas SoundForge e outros 
realizam.

Iran Lima escreveu:
  

 Como selecionar o dispositivo de saída do som e usar simultaneamente 
 mais de
 uma placa de som para reproduzir ao mesmo tempo vários MP3 cada um com uma
 saída diferente??

 Alguém pode me ajudar ???

 Existe algum componente??

 Grato.

 Iran.

 .

 



Re: [delphi-br] componente para visualizar tif

2009-07-30 Por tôpico EmbarcaDelphi
Aqui outro site específico para TODOS os tipos de imagens, conversão, 
criação, e o escambal, rsrs

http://efg2.com/Lab/Library/Delphi/Graphics/FileFormatsAndConversion.htm#Formats

Neste link acima vem falando do TIFF, veja que o site inteiro fala sobre 
gráficos usando o Delphi, se não encontrar o link, vá para o HOME e siga 
os links que você tem 99% de encontrar o que deseja.

Blz.

Moacir - GMail escreveu:
  

 willian,

 da uma olhada em 
 http://www.torry.net/quicksearchd.php?String=tiffTitle=Yes 
 http://www.torry.net/quicksearchd.php?String=tiffTitle=Yes

 Sucesso !!

 .

 



Re: [Bulk] Re: [Bulk] [delphi-br] PressObjects, Sure (OOP: MVP, OPF, BO)

2009-07-30 Por tôpico EmbarcaDelphi
O João é o criador do PressObject???
Não sabia, já conheço ele a muito tempo e não sabia disso...

Desculpa João, pensei que era de estrangeiros (rsrs)

Silvio Clecio escreveu:
  

 Em 30/7/2009 08:36, EmbarcaDelphi escreveu:
  Silvio, não seria melhor participar da comunidade do Lazarus em vez de
  ir para esse tal de PressObject?

 Eu já participo ativamente de várias comunidades FPC-Lazarus. Quanto ao
 ir para esse tal de PressObject, eu não entendi sua pergunta.

  O Lazarus está mais avançado no
  projeto, ou não?

 Seria se o Lazarus esta mais avançado? Se sim, claro que esta! E isso
 não vai parar, muitos desenvolvedores estão usando/testando o Lazarus, a
 comunidade esta se expandindo muito, é o que vem fortalecendo o projeto
 Lazarus (a união faz a Força); no primeiro email falei o que é
 PressObjects, e o mesmo já esta bem avançado, e a tendência é avançar e
 crescer mais, além do assíduo trabalho do Amigo João Morais (criador do
 Press), outros colaboradores estão ajudando no projeto.
 -- 
 []'s, Silvio Clécio
 ---
 Linux User: #481900
 Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com
 E-mail, Y! Messenger: silviop...@yahoo.com.br 
 mailto:silvioprog%40yahoo.com.br
 BlogSite: http://silvioprog.blogspot.com/ 
 http://silvioprog.blogspot.com/
 BlogSpot: http://silvioclecio.blogspot.com/ 
 http://silvioclecio.blogspot.com/
 VirtualDriver: http://silvioprog.4shared.com/ 
 http://silvioprog.4shared.com/
 °oO| Seja livre, use Linux! |Oo°

 __._
 .

 



Re: [delphi-br] Para quem usa o Delphi 7 Lite CodeGear

2009-07-28 Por tôpico EmbarcaDelphi
kkk
Isso vai e volta, só muda de nome, antes era portátil agora é lite, kkk

Evandro Siqueira escreveu:
 De novo??? Acho que só pode ser fake... brincadeira viu!!!

 Adenes Junior escreveu:
   
 Instalei o Delphi 7 Lite CodeGear, só que ele não vem com o Rave Report e
 nem o QuickReport, se alguém usa essa ferramenta como fez para instalar os
 componentes de relatórios?

  

 Desde já agradeço,

  

 Adenes Junior



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



 

   
 

   



[delphi-br] FormDeactivate

2009-07-28 Por tôpico EmbarcaDelphi
Pessoal, alguém poderia informar qual mensagem capturamos para saber qdo 
o foco sai da aplicação?

Tentei usar o FormDeactivate, coloquei um ShowMessage para testar mas 
não funciona.

Por exemplo, quando clicamos noutro programa ou no Desktop do Windows, a 
barra da janela fica com outra cor informando que o programa não está 
mais com o foco. Como capturar esta mensagem do sistema?

Grato


Re: [delphi-br] Re: Ajuda para rodar aplicativo no wine

2009-07-28 Por tôpico EmbarcaDelphi
Se eu fosse vc em vez de usar o Wine eu partiria para vmware ou para o 
OpenSource VirtualBox, o Wine é muito limitado e cheio de BUG.

Leonardo Quinino escreveu:
  

 O meu Projeto também é migrar o aplicativo para Lazarus, ainda estamos
 apanhando com algumas coisas no lazarus, coisas do tipo que em Delphi 
 temos
 o dominio.

 Mas até a versão ficar pronta, tenho que fazer essa solução meio tabajara.

 Aplicativo Win32 Forms, WINDOWS, rodando num server LINUX , emulado 
 com wine
 .

 .

 



Re: [Bulk] Re: [delphi-br] FormDeactivate

2009-07-28 Por tôpico EmbarcaDelphi
Taí... um componente da VCL que nunca usei nem sequer sabia que existia rsrs
Funcionou perfeito.

valew Silvio.

Silvio Clecio escreveu:
  

 Em 28/7/2009 15:02, EmbarcaDelphi escreveu:
  Pessoal, alguém poderia informar qual mensagem capturamos para saber qdo
  o foco sai da aplicação?
 
  Tentei usar o FormDeactivate, coloquei um ShowMessage para testar mas
  não funciona.

 Com um ApplicationEvents você pega pelo evento OnDeactivate.
 -- 
 []'s, Silvio Clécio
 ---

 .

 



Re: [delphi-br] Re: Ajuda para rodar aplicativo no wine

2009-07-28 Por tôpico EmbarcaDelphi
Acho que vc está enganado. Ele é OpenSource e esta na GPL:

VirtualBox is a powerful x86 virtualization 
http://www.virtualbox.org/wiki/Virtualization product for enterprise 
as well as home use. Not only is VirtualBox an extremely feature rich, 
high performance product for enterprise customers, it is also the only 
professional solution that is freely available as Open Source Software 
under the terms of the GNU General Public License (GPL). See About 
VirtualBox http://www.virtualbox.org/wiki/VirtualBox for an introduction

VirtualBox é um poderoso x86 virtualização produto para a empresa, bem 
como uso doméstico. Não só VirtualBox é um recurso extremamente rico, 
produto de alto desempenho para clientes empresariais, é também a única 
solução profissional que está disponível gratuitamente como Open Source 
Software sob os termos da GNU General Public License (GPL). Consulte 
Sobre o VirtualBox para uma introdução

Traduzido pelo Google Tradutor :)


Ricardo César Cardoso escreveu:
  

 Se for usar o VirtualBox comercialmente tb tem que licenciar... a 
 versão open é para uso individual.

 []'s
 Ricardo.

 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.

 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
 compreendida.

 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!


 



Re: [delphi-br] Descompactar arquivos zip

2009-07-27 Por tôpico EmbarcaDelphi
Se não gostar desse que ele te passou, ou se ainda continua com erros, 
tente utilizar a biblioteca mais usada no mundo Delphi (rsrs), procura 
no Google por: ZipMaster

Blz.

André Moraes - Gmail escreveu:
  

 Veja http://sourceforge.net/projects/tpabbrevia/ 
 http://sourceforge.net/projects/tpabbrevia/

 André F. Moraes
 - Original Message -
 From: Raphae Fonseca
 To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Sent: Monday, July 27, 2009 4:55 PM
 Subject: [delphi-br] Descompactar arquivos zip

 Boa tarde amigos da lista

 Estou desenvolvendo um aplicativo que salva um aquivo .zip que está 
 gravado na base de dados.
 E preciso descompactá-lo. A rotina que já existe no momento, está 
 mantendo o arquivo alocado na memória e como são muitos arquivos eu 
 gostaria de tempos em tempos excluir os mesmos.

 Já tentei várias opções sem ter um resultado satizfatótio.

 Algum amigo conhece um componente free que eu possa utilizar e tem uma 
 rotina de descompactação de arquivos zip que possa me passar?

 Não pode ser usando softwares como winzip, winrar, filzip, tem que ser 
 feito por dentro da aplicação.

 Tentei usar a bibliocar zlib mas não funciona aqui.

 Att
 Raphael

 .

 



[delphi-br] Preciso de uma opinião e uma lógica...

2009-07-25 Por tôpico embarcadelphi
Olá pessoal, bom dia.
Mais uma vez precisando dos colegas.

Primeiro vou falar do programa criado por mim já a alguns anos, estou na versão 
1.8. O mesmo é utilizado em assistências técnica em manutenção de computadores, 
portanto, meu programa é usado em um/dois/... DVDs (dependendo da necessidade 
da empresa). O sistema possui proteção criada por mim mesmo através de 
PenDrive, o mesmo tem que ser inserido para liberar o uso.
Abrir um parentese aqui, os programas a serem instalados são na maioria das 
vezes, pirata. Seguindo a lógica (e seria uma pergunta):

Uma faca serve para passar margarina no pão e também para matar uma pessoa. A 
faca em si não é boa nem mau, a faca é uma faca e quem a criou também não é 
mau. Quem vai usar a faca é o responsável pelo ato do seu uso (ditado do Dr. 
Lair Ribeiro).
Se uma empresa que me pede para desenvolver um programa (seja ele qual for) e 
coloca as senhas piratas o problema é dele, meu programa apenas executa o 
aplicativo de instalação e agiliza os processos, eu não sou responsável pelos 
atos que as empresas usam, correto?
A versão 2.0 do meu programa faz toda a instalação no computador sem 
intervenção do usuário, com isso, o técnico seleciona os programas e clica em 
instalar e sai de perto do computador e vai trabalhar noutro computador. Esta 
versão atual ainda necessita da intervenção do técnico.

Bom, este foi a pergunta referente a legalidade da minha parte (programador). 
Agora vem a pergunta da lógica de uma rotina, preciso da opinião de vocês e, se 
possível, como fazer (dependendo do processo). Estou querendo economizar código 
e recursos pois como o programa é grande, tenho problemas de instalar alguns 
programas como AutoCad que exige recursos de memória, então, resolvi criar DLLs 
de alguns processos que não são usados com frequência, é o caso da parte de 
utilitário que fazem parte do programa como otimizações do sistema, remoção de 
malwares, limpeza de arquivos e no registro do windows, e outras parafernalhas 
que os técnicos usam com frequência :). Antes eram tudo num .exe até mesmo as 
figuras dos botões e em TImage, ficava entupido de coisas num lugar só. Agora, 
nesta versão coloquei TODAS as imagens fora do .exe em um .zip criptografado e 
utilizo TStreeam na hora da abertura, só aí, tenho um ganho de mais de 50%, as 
DLLs ainda tenho de criar, não quero nem pensar nisso agora.

Poxa, que texto grande para perguntar uma rotina, espero que vocês tenham 
paciência e me dêem uma ajudinha, vamos lá...

As vezes fico perdido em fazer um processo, existem diversas formas, mas não 
sei qual seria a melhor para economizar linhas de código e tempo.
Tenho 240 botões, cada botão instala um programa. Preciso verificar qual(is) 
botão(ões) estão marcados (ia usar a Tag do botão, mas ela já está sendo usado 
para outro processo). Como aquele botão Bugado não funcionou, e também resolvi 
ficar com ele assim mesmo, resolvi colocar TLabel abaixo do botão para 
controlar o processo de seleção, criando um efeito que eu queria que o botão 
fizesse, o Down = True (cor=clLime e Tag=1 nos TLabel), quando o botão for 
clicado para selecionar, a cor e a Tag do TLabel muda. Até aí tudo bem. A 
pergunta é:

Qual seria a melhor maneira para fazer um loop e armazenar quais são as Tag=1 
(usando a tag do TLabel)? Da seguinte forma:

Preciso colocar no Regedit: O nome do programa, a colocação (colocação é a 
ordem de instalação, porque tem programas que devem ser instalados antes de 
outros) e se já foi instalado ou não (porque tenho de usar esta última opção 
caso o computador seja desligado por falta de energia ou outro problema, e 
desejo continuar de onde parou), Acho que um Array daria certo (nem sei usar, 
mas vocês me ajudam), no Regedit usar Boolean não daria certo porque são três 
campos, talvez um binário, só não sei como implementar.

Preciso de uma sugestão de como faria isso. Se for com Array, me dá uma noção 
de sintaxe para que eu venha a entender o uso!

Grato, desculpem pelo tempo de me expressar, mas tinha que detalhar para um 
melhor entendimento do projeto (para uma boa resposta) :) rsrs

Fico no aguardo.





[delphi-br] [DICA] Otimize melhor seus programas...

2009-07-25 Por tôpico EmbarcaDelphi
Estava precisando conhecer as vantagens de Destroy, Free e FreeAndNil.

Este artigo explica em bom português como usar bem para remoção de objetos:

http://www.ramosdainformatica.com.br/art_recentes01.php?CDA=608

blz


RES: [delphi-br] Curso Delphi para Baixar e estudar aproveitem

2009-07-25 Por tôpico EmbarcaDelphi
Pessoal,
Este material é pirata, como tenho plano Premium do MegaUpload eu já 
baixei todos de ontem de noite até agora. Descompactei os arquivos e 
rodei para ver se tinha algum endereço de site. O endereço do autor é:

http://www.alberteije.com/

Inclusive as vídeo-aulas são muito bem feitas e bem explicadas, vale o 
investimento.

Vou entrar em contato com o autor para ele solicitar ao MegaUpload 
deletar o conteúdo do servidor, espero que ninguém esteja baixando pois 
só planos Premium conseguem baixar um arquivo grande como esse sem que o 
mesmo caia, é perda de tempo.

 Turma achei um Forum com um curso DELPHI estou postando aqui os links, 
 7 GB
 em Português.
 Cada parte 386 mb.

 O curso Delphi Avançado foi preparado para suprir o mercado com um
 treinamento de qualidade, com um conteúdo programático inexistente em 
 cursos
 presenciais e via internet. Sem dúvida é o melhor curso de Delphi da
 Internet. Leia abaixo as características únicas do Curso Delphi Avançado:

 * 15 Módulos (19 CDs);
 * 3.340 Minutos de Vídeo (55 horas e 40 minutos);
 * 17.500 páginas de documentação adicional;
 * Os Cds são personalizados, da mesma forma como aparecem logo abaixo;
 * Suporte total via Grupo de Discussão;
 * Suporte para o desenvolvimento de seus sistemas de acordo com o conteúdo
 apresentado;
 * Investimento baixíssimo - será um dos melhores investimentos de sua
 carreira;
 * IMAGEM E SOM COM QUALIDADE (formato AVI).

 Módulo 01 - 130 Minutos
 - Compreender o modelo Entidade-Relacionamento e Lógico-Relacional;
 - Saber definir e identificar: Entidades, Relacionamentos, Atributos e 
 tudo
 mais que tenha a ver com o Modelo Entidade-Relacionamento;
 - Conhecer os tipos de relacionamentos: Condicionais e Incondicionais;
 - Saber os graus de relacionamento: Um-Para-Um, Um-Para-Muitos,
 Muitos-Para-Muitos;
 - Compreender uma realidade e a partir dessa compreensão criar um 
 modelo de
 dados e logo depois o banco de dados em si;
 - Dominar o conceito de chaves, índices e integridade referencial;
 - Saber normalizar um modelo através das Formas Normais (1FN a 5FN);
 - Usar programas para a criação do modelo de dados;
 - Utilização do DBDesigner.

 Módulo 02 - 159 Minutos
 - Definição e História da Linguagem SQL;
 - Entendendo as partes da Linguagem: DDL, DML, DCL e Transactions Control;
 - Instrução Select (alias, order by, like, asc, desc, group by, having,
 where, not, in, exists, sum, max, min, avg, count, between, distinct, 
 etc);
 - Instrução Insert Into;
 - Instrução Update;
 - Instrução Delete;
 - Consultas Encadeadas (SubQuerys);
 - Junções (inner join, left join, right join e full outer join);
 - Criação, alteração e deleção de tabelas e índices;
 - Controle de Transações;
 - Diversos exemplos feitos no programa SQL Explorer;
 - Criação de um sistema no Delphi implementando os comandos SQL juntamente
 com o componente Query. Cadastro de Clientes, Cadastro de Usuarios e
 Formulário Mestre Detalhe com duas tabelas (CVenda e DVenda).

 Módulo 03 - 340 Minutos- Introdução: Definição, História, Características,
 Licenças e Versões do MySQL;
 - Instalação da versão 3.23 no Windows 98, tipos de arquivos, estrutura de
 diretórios do MySQL, uso do Console (prompt), etc;
 - Utilização da ferramenta gráfica MySQLFront 2.3, criação de bancos de
 dados, tabelas, explicação dos tipos de campos, importação de dados do
 paradox, atributos especiais de campos do MySQL, uso do Manual de
 Referência, uso das funções do MySQL;
 - Instalação da Versão 4 do MySQL no Windows XP, uso do MySQLFront 3.2,
 importação de arquivos do Excel, Exportação de dados para o formato HTML,
 etc;
 - Instalação do MySQL no Linux Slacware, uso do console no Linux, uso da
 ferramenta gráfica PHPMyAdmin;
 - Instalação e configuração da versão 5 no Windows XP;
 - Uso da ferramenta gráfica DBManager, tipos de tabelas, foreign keys,
 constraints, views, backup e restauração de dados, controle de transações;
 - Uso da ferramenta gráfica MySQL Administrator, controle de usuários,
 backup e restauração de dados, replicação;
 - Uso da ferramenta gráfica MySQL Query Browser;
 - Uso da ferramenta gráfica MySQL Migration Toollkit, migração de um banco
 de dados do MS-Access;
 - DBDesigner - Sincronização de dados e engenharia reversa;
 - Apresentação dos sites oficias do MySQL - Internacional e Nacional;
 - Stored Procedures e Triggers.

 Módulo 04 - 254 Minutos
 - Introdução: Definição, História, Características, Licenças e
 Especificações Firebird;
 - Comparativo das arquiteturas Classic x SuperServer;
 - Descrição dos tipos de dados suportados pelo Firebird;
 - Dialetos;
 - Tipos de Transações;
 - Instalação passo a passo da versão 1.5 do Firebird no Windows;
 - Explicação da estrutura de diretórios;
 - Serviços executados no Windows e opções no Painel de Controle;
 - Utilização das seguintes ferramentas gráficas: IBExpert, IBEasy+,
 FlameRobin, IBAccess, SQLHammer, DBak Win, IB First AID, Interbase Grant
 Manager;
 - Criação de tabelas, triggers, 

Re: [delphi-br] Form Inicial ?

2009-07-24 Por tôpico EmbarcaDelphi
Sinceramente Iran, não consegui assimilar o que você precisa.


Iran Lima escreveu:

 Alguém sabe onde é que configura o “FORM” que vai abre automaticamente ao
 abrir o projeto

 Iran Lima


 





-- 
 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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

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




Re: RES: [delphi-br] Curso Delphi para Baixar e estudar aproveitem

2009-07-24 Por tôpico EmbarcaDelphi
Creio que o curso seja pirata, não tenho certeza, se for, então esta 
ressalva significa tão somente uma desculpa para dizer que não tem nada 
a ver você baixar e usar se for ficar com ele por pouco tempo. É só uma 
desculpa como se isso fosse LEGAL.

marcelo escreveu:
  

 Por que esta ressalva no final do e-mail :

 ( Atenção o curso postado acima deverá permanecer por 24 hrs, em seu
 computador )

 .

 



Re: [Bulk] Re: RES: [delphi-br] Como mudar uma propriedade automaticamente?

2009-07-24 Por tôpico EmbarcaDelphi
Silvio, tudo bom?
Não é nada se case não, o problema é que tenho de manipular 260 label, 
cansa fazer coisas repetitivas. Se houver uma maneira de fazer uma 
linha, é melhor do que fazer em duas. Entende?
MAs já solucionei o caso com uma function que estou elaborando com a 
ideia que o Alisson passou.

Blz.

Silvio Clecio escreveu:
  

 Em 23/7/2009 16:38, EmbarcaDelphi escreveu:
  ... Eu
  preciso setar uma Tag e ele disparar a cor, pois estou usando a Tag com
  referência de outros componentes.

 Não entendi o que você quer mudar, se é a cor da fonte ou do label, mas
 posso garantir que isso aí não da muito trabalho, da pra fazer com
 if..then..else; case..of; dentre outros, vou opinar com o case:

 uses
 Graphics;

 Mudar cor da fonte:
 ---
 case Label.Tag of
 ..0: Label.Font.Color := clRed; (remova os ..)
 ..1: Label.Font.Color := clGreen;
 .
 .
 .
 ..n: Label.Font.Color := cln...;
 end;
 ---

 Mudar cor do Label:
 ---
 Label.ParentColor := False;
 Label.Transparent := False;
 case Label.Tag of
 ..0: Label.Color := clRed;
 ..1: Label.Color := clGreen;
 .
 .
 .
 ..n: Label.Color := cln...;
 end;
 ---

 Estou sem o Delphi agora para testar se é ParentColor mesmo -- a
 propriedade que você define para False para o Label não herdar a cor do
 Parent dele (o form, panel, tabsheet...).

 Boa sorte brother.

 ps1. Caso queira um OnTagChange é só postar ;-) .
 ps2. Caso queira um label tipo semáforo, capaz de já ter isso pronto, e
 na jvcl (-- percebi que você usa jedi -- melhor suite de componentes
 Delphi que já vi -- em outros emails).
 -- 
 []'s, Silvio Clécio
 ---
 Linux User: #481900
 Gmail, GTalk: silviop...@gmail.com mailto:silvioprog%40gmail.com
 E-mail, Y! Messenger: silviop...@yahoo.com.br 
 mailto:silvioprog%40yahoo.com.br
 BlogSite: http://silvioprog.blogspot.com/ 
 http://silvioprog.blogspot.com/
 BlogSpot: http://silvioclecio.blogspot.com/ 
 http://silvioclecio.blogspot.com/
 VirtualDriver: http://silvioprog.4shared.com/ 
 http://silvioprog.4shared.com/
 °oO| Seja livre, use Linux! |Oo°

 __
 .

 



Re: [delphi-br] Emissão de Boletos Dispon ível !!!!!!!

2009-07-24 Por tôpico EmbarcaDelphi
Ao Eny não, Eny é uma gatinha :)

Ricardo César Cardoso escreveu:
  

 Obrigado ao Eny e ao Heraldo por sua contribuição!

 Atte,
 Ricardo.

 .

 



Re: [delphi-br] Problemas quando aplicativo roda do windows server 2003

2009-07-24 Por tôpico EmbarcaDelphi
A lista não aceita anexos, use a seção de arquivos do Grupo Yahoo e 
deixe o arquivo lá, quem tiver interesse faz o download.

omar l m rosa escreveu:
  

 Usa esta unit em anexo no .dpr, ve se resolve...

 .

 



Re: [delphi-br] fixar form

2009-07-24 Por tôpico EmbarcaDelphi
Use esta function abaixo para deixar na posição que você deseja, quanto 
a ninguém mudar, ou você usa outra function ou você remove as bordas do 
Form, coloca somente um SpeedButton simulando o fechamento do mesmo.

Não sei o autor, peguei na net a muito tempo atrás:
[
procedure FormPos(Form: TForm; const Horz, Vert: byte);
{ Horz: 1 = Esquerda | 2 = Centro | 3 = Direita }
{ Vert: 1 = Topo | 2 = Centro | 3 = Abaixo  }
var
  R : TRect;
begin
  if not SystemParametersInfo(SPI_GETWORKAREA, 0, @R, 0) then
R := Rect(0, 0, Screen.Width, Screen.Height);

  with Form do
case Horz of
  1: Form.Left := 0;
  2: Form.Left := (R.Right - R.Left - Width) div 2;
  3: Form.Left := R.Right - Width;
end;
  with Form do
case Vert of
  1: Form.Top := 0;
  2: Form.Top := (R.Bottom - R.Top - Height) div 2;
  3: Form.Top := R.Bottom - Height;
end;
end;
]]
Uso no Delphi 7, não sei se funciona em outras versões, acho que sim.

Felipe Milagres escreveu:
  


 queria saber como que eu faço para criar um form em um lugar já 
 determinado (canto inferior direito) .. e que ele fique fixo .. ou 
 seja. . o usuário não consegue arrastar ele para outro lugar ..

 []s . . .

 ps.: uso delphi 4 

 .

 



Re: [Bulk] Re: [delphi-br] fixar form

2009-07-24 Por tôpico EmbarcaDelphi
Aqui comigo eu deixei no padrão mesmo (Align = alNone), mas, se funfar 
funfou :)

Se desejar criar uma janela (sem aquela segunda function, que não 
informei), aquela que não deixa a janela sair do local, coloque a 
propriedade BorderStyle para bsNone, a barra da janela não aparecerá. 
Se quiser ter um botão para fechar coloque um SpeedButton diminua ale e 
coloque um X em negrito no Caption (ou uma figura), e no evento do 
clique coloque Close; A janelinha ficará ao lado do relógio sem poder 
mexer.
Se quiser um efeito da janela aparecer subindo, aí aquela function não 
vai servir, o processo é diferente..

blz


Alisson Yahoo escreveu:
  

 Além de usar a função pra colocar o form na posição desejada, mude a
 propriedade Align para alCustom.

 .

 



Re: [Bulk] Re: [delphi-br] [ MEIO OFF] Pessoal que escreve no idioma i nglês...

2009-07-23 Por tôpico EmbarcaDelphi
Poderia até tentar ver se conseguiria corrigir o bug, mas para isso 
teria que me dedicar a ele e parar meu projeto, infelizmente não posso.
Vou mudar o componente e usar outro, quem sabe noutra versão do meu 
projeto eu volte a utiliza-lo. Mas vou informar no site de bugs deles o 
fato ocorrido.

valeu Silvio.

Silvio Clecio escreveu:
  

 Em 22/7/2009 21:20, EmbarcaDelphi escreveu:
  É que aquele botão TJvXPButton realmente está com BUG.

 Robson, eu venho acompanhando o teu esforço quanto ao TJvXPButton, esses
 dias ando pisando em casca de ovo pra opinar aqui na lista, mas vou dar
 dois pitacos e uma dica:

 1 - Quer o componente funcionando perfeitamente? Corrige a série de bugs
 dele (isso é interessante pra quem gosta de estudar através de fontes)
 ou informe para a comunidade que o desenvolve (não sei quem é/são;
 existem outras maneiras para melhorar a aparência de componentes, eu
 criei a minha), ou se puder faça os dois.

 2 - Caso não tenha sucesso com o pitaco 1, cai fora desse componente,
 ele é bunitinho, mas tem defeitos que pode atrasar um bocado o teu
 desenvolvimento.

 Dica:
 Veja alguns sites, muitos deles são bem _enfeitados_ e não através de
 componentes de skin ou coisa do tipo; no Delphi da pra simular isso (a
 aparência dos sites); pedacinhos de imagens (de preferência em formato
 PNG) compõem um botão, janela, enfim, melhora a aparência, um que quando
 eu bati o olho saquei a parada foi esse: [http://www.redehost.com.br/ 
 http://www.redehost.com.br/],
 parece loucura criar componentes através de pedacinhos de imagens,
 no entanto, não é difícil e no final um GIMP (ou PhotoShop) pode ser o
 teu Designer para modelar os layouts/temas.
 -- 
 []'s, Silvio Clécio
 ---

 .

 



[delphi-br] Como mudar uma propriedade automaticamente?

2009-07-23 Por tôpico EmbarcaDelphi
Alguém saberia dizer como faço isso:

Quando setar a Tag de um componente (TLabel), automaticamente alterar a 
cor dele.

Ex.:

Label1.Tag  := 1; // O Label1 passa a ficar verde
Label1.Tag := 0;  // O Label1 passa a ficar vermelho

Sem ter que colocar a cor toda vez que precisar mudar a Tag (diminuir o 
código). Acho que isso é OOP, rsrsrs.


Re: RES: [delphi-br] Como mudar uma propriedade automaticamente?

2009-07-23 Por tôpico EmbarcaDelphi
Rubem, pello que entendi, quanto eu setar uma cor ele envia a cor para a 
cor da fonte, é isso?

Se for isso então seria melhor setar diretamente a cor da fonte. Eu 
preciso setar uma Tag e ele disparar a cor, pois estou usando a Tag com 
referência de outros componentes.

Rubem Rocha escreveu:
  

 O q vc quer seria algo mais ou menos assim:

 unit ufChangeColor;

 interface

 uses

 Forms, Controls, StdCtrls, Classes;

 type

 TSignalLabel = (slRed, slGreen);

 TLabel = class(StdCtrls.TLabel)

 private

 FSignalLabel: TSignalLabel;

 procedure SetSignalLabel(Value: TSignalLabel);

 public

 property SignalLabel: TSignalLabel read FSignalLabel write
 SetSignalLabel;

 end;

 TfrmChangeColor = class(TForm)

 btnChangeColor: TButton;

 lblChangeColor: TLabel;

 procedure btnChangeColorClick(Sender: TObject);

 end;

 var

 frmChangeColor: TfrmChangeColor;

 implementation

 uses Graphics;

 {$R *.dfm}

 { TLabel }

 procedure TLabel.SetSignalLabel(Value: TSignalLabel);

 begin

 case Value of

 slRed: self.Font.Color := clRed;

 slGreen: self.Font.Color := clGreen;

 end;

 FSignalLabel := Value;

 end;

 { frmChangeColor }

 procedure TfrmChangeColor.btnChangeColorClick(Sender: TObject);

 var

 CorMinima, CorMaxima: TSignalLabel;

 begin

 CorMinima := Low(TSignalLabel);

 CorMaxima := High(TSignalLabel);

 if Ord(lblChangeColor.SignalLabel)  Ord(CorMaxima) then

 lblChangeColor.SignalLabel :=

 TSignalLabel(Ord(lblChangeColor.SignalLabel) + 1)

 else

 lblChangeColor.SignalLabel := CorMinima

 end;

 end.

 Boa sorte!

 Sds.

 De: Rubem Rocha [mailto:rubem.ro...@dtmanaus.com.br 
 mailto:rubem.rocha%40dtmanaus.com.br]
 Enviada em: quinta-feira, 23 de julho de 2009 13:26
 Para: 'delphi-br@yahoogrupos.com.br 
 mailto:%27delphi-br%40yahoogrupos.com.br'
 Assunto: RES: [delphi-br] Como mudar uma propriedade automaticamente?
 Prioridade: Alta

 A propriedade Tag de todo e qualquer descendente de TComponent, segundo o
 próprio help do Delphi, não possui um propósito específico. Esta 
 propriedade
 existe para conveniência de uso pelo desenvolvedor para, por exemplo, ser
 usada para armazenar um valor inteiro adicional ou fazer um typecast com o
 valor armazenado para obter uma referência um ponteiro ou a outro
 componente.

 O mais sensato é você criar um descendentes de TLabel que tivesse uma
 propriedade por você definida e que essa propriedade, quando tivesse seu
 valor alterado, disparasse um evento por você também definido. E nesse
 evento sim, você programaria o comportamento descrito.

 Você não quer mudar uma propriedade automaticamente, e sim quer que um
 comportamento no componente aconteça quando você alterar um valor em uma
 propriedade do mesmo que não possui qualquer tipo de evento a ela
 (propriedade Tag) associada, de forma que você possa programar esse
 comportamento desejado. Isso não é OO, e sim querer que, pura e
 simplesmente, algo aconteça no componente por osmose!

 Sds.

 De: delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br 
 [mailto:delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br] Em
 nome de EmbarcaDelphi
 Enviada em: quinta-feira, 23 de julho de 2009 12:52
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Assunto: [delphi-br] Como mudar uma propriedade automaticamente?

 Alguém saberia dizer como faço isso:

 Quando setar a Tag de um componente (TLabel), automaticamente alterar a
 cor dele.

 Ex.:

 Label1.Tag := 1; // O Label1 passa a ficar verde
 Label1.Tag := 0; // O Label1 passa a ficar vermelho

 Sem ter que colocar a cor toda vez que precisar mudar a Tag (diminuir o
 código). Acho que isso é OOP, rsrsrs.

 .

 



Re: [delphi-br] Como mudar uma propriedade automaticamente?

2009-07-23 Por tôpico EmbarcaDelphi
Valeu Alisson,
Não uso array, tenho de aprender mais sobre ele.
Estou fazendo alguns ajustes para ir mais além do que preciso, mas era 
isso que eu queria...


Alisson Yahoo escreveu:
  

 Você pode usar uma função como essa. O que você quer fazer exatamente?

 procedure TForm1.MudaCor(Lbl: TLabel; Tag : Integer);
 const Cores : array[0..4] of TColor = (clBlue, clRed, clYellow, clBlack,
 clGray);
 begin
 Lbl.Tag := Tag;
 lbl.Font.Color := Cores[Tag];
 end;


 



Re: [delphi-br] Como liberar um a rquivo da memória

2009-07-23 Por tôpico EmbarcaDelphi
Como você está abrindo os arquivos? está abrindo para usar no TMemo por 
exemplo ou diretamente no Banco de Dados e exibindo em algum componente DB?

Raphae Fonseca escreveu:
  

 Boa tarde amigos da lista,

 estou precisando de uma ajudinha de vcs.

 Tenho um programa que extrai um arquivo zipado que está gravado num 
 campo blob da tabela e descompacta o arquivo txt numa determinada pasta.

 Isso está funcionando perfeitamente. Depois de descompactado eu abro o 
 arquivo txt
 leio alguns dados e passo como parãmetro para ser executado por 
 storeds no banco.

 O problema é o seguinte:
 Ao ser descompactado, ele gera as seguintes pastas:
 c:\Arquivos\Codigo0512\102030.txt
 c:\Arquivos\Codigo0512\112030.txt
 c:\Arquivos\Codigo0512\122030.txt
 c:\Arquivos\Codigo0512\132030.txt

 são n arquivos, ao final do processamento gostaria de excluir os 
 mesmos pq senão corre o risco de que eu fique sem espaço em disco. 
 Quando tento excluir dá uma mensagem de erro dizendo que o arquivo 
 está sendo usado por um outro programa.

 Como eu faço para liberar o arquivo da memória?

 Alguém já fez algo parecido ou já passou pelo mesmo problema?

 Att
 Raphael

 .

 



Re: Res: [delphi-br] Como liberar um arquivo da memória

2009-07-23 Por tôpico EmbarcaDelphi
Até aí está certo, em outra parte do código deve estar com problemas.

Veja:
http://www.delphibasics.co.uk/RTL.asp?Name=CloseFile
http://www.delphibasics.co.uk/RTL.asp?Name=DeleteFile
http://www.delphibasics.co.uk/RTL.asp?Name=AssignFile

Deve ter algo na memória, quem sabe você abriu o NotePad (ou outro 
programa) para ver o texto e ele ficou aberto!


Raphae Fonseca escreveu:
  

 faço da seguinte forma:
 AssignFile ( arq, cdsArquivosExt.FieldByName('Path').AsString);
 Reset (arq);
 ReadLn (arq, linha);
 Codigo := copy(linha,7,5);
 Mesano := copy(linha,12,8);
 CloseFile (arq);

 
 De: EmbarcaDelphi embarcadel...@yahoo.com.br 
 mailto:embarcadelphi%40yahoo.com.br
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Enviadas: Quinta-feira, 23 de Julho de 2009 16:59:08
 Assunto: Re: [delphi-br] Como liberar um arquivo da memória

 Como você está abrindo os arquivos? está abrindo para usar no TMemo por
 exemplo ou diretamente no Banco de Dados e exibindo em algum 
 componente DB?

 Raphae Fonseca escreveu:
 
 
  Boa tarde amigos da lista,
 
  estou precisando de uma ajudinha de vcs.
 
  Tenho um programa que extrai um arquivo zipado que está gravado num
  campo blob da tabela e descompacta o arquivo txt numa determinada pasta.
 
  Isso está funcionando perfeitamente. Depois de descompactado eu abro o
  arquivo txt
  leio alguns dados e passo como parãmetro para ser executado por
  storeds no banco.
 
  O problema é o seguinte:
  Ao ser descompactado, ele gera as seguintes pastas:
  c:\Arquivos\ Codigo0512\ 102030.txt
  c:\Arquivos\ Codigo0512\ 112030.txt
  c:\Arquivos\ Codigo0512\ 122030.txt
  c:\Arquivos\ Codigo0512\ 132030.txt
 
  são n arquivos, ao final do processamento gostaria de excluir os
  mesmos pq senão corre o risco de que eu fique sem espaço em disco.
  Quando tento excluir dá uma mensagem de erro dizendo que o arquivo
  está sendo usado por um outro programa.
 
  Como eu faço para liberar o arquivo da memória?
 
  Alguém já fez algo parecido ou já passou pelo mesmo problema?
 
  Att
  Raphael
 
  .
 
 

 .

 



Re: Res: Res: [delphi-br] Boleto santander ???? Alguem tem ??

2009-07-23 Por tôpico EmbarcaDelphi
A lista Delphi-BR não aceita anexos, entre no site do Grupo (Yahoo 
Grupos) e clique no Link Arquivos e faça o Upload do mesmo, quem quiser 
pega lá.
Pode marcar uma opção para que todos os membros fique sabendo do arquivo 
que você disponibilizou.

blz


Heraldo Andrade escreveu:
  

 Eny, Perfeito, nem sei o que dizer, obrigado mesmo, precisando e eu 
 puder ajudar, estou a disposição,
 Com sua permissão, ja anexei o arquivo para que outras pessoas possam 
 usa-lo.
  
 Obrigado

 .

 



Re: [delphi-br] [PIRATARIA???] Curso Delphi para Baixar e estudar aproveitem

2009-07-23 Por tôpico EmbarcaDelphi
Isso não é pirataria não??? Se for, isso não é permitido na lista Delphi-BR


Rodrigo.Ap.B.B No Palco d Vida escreveu:
  



 Rodrigo

 Turma achei um Forum com um curso DELPHI estou postando aqui os links, 
 7 GB em Português.
 Cada parte 386 mb.

 .

 



Re: Res: [delphi-br] Como liberar um arquivo da memória

2009-07-23 Por tôpico EmbarcaDelphi
Também pensei nisso, mas ele disse que estava querendo excluir os 
arquivos que foram descompactados, então, o .zip não faz diferença.
Talvez sim, talvez não...
Me lembro uma vez (parece que foi com o WinZip) quando um dia abri o 
arquivo de dentro do .zip fiz uma alteração neste arquivo e qdo sai ele 
perguntou se queria sobrescrever o mesmo (nesse caso ele tava na 
memória), precisa saber que processo/componente está realizando a 
extração do .zip.
Atualmente uso o ZipMaster que me dá a opção de extrair no modo normal 
como no modo Stream

José Mário Silva Guedes escreveu:
  

 Hipótese: Será que a classe que fez a descompactação segura o arquivo?

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

 _
 .

 



Re: [delphi-br] JEDI

2009-07-22 Por tôpico EmbarcaDelphi
São (atualmente) 337 componentes, todos OpenSource. Imagina aí, muita 
gente criando, atualizando, etc.. componente para tudo que se imaginar, 
nem penso em buscar alternativas na internet. Estou com um problema, mas 
não é bug do componente, quero uma função específica, estou quase 
encontrando.
Garanto que você não vai se arrepender em ter eles instalados no seu Delphi.

Eny Urias escreveu:
  

 Gente,

 Já há algum tempo eu penso em desenvolver meus componentes de acordo 
 com as minhas necessidades. Mas aí eu percebi que tem muita gente que 
 usa esse tal de JEDI. É bom mesmo? Dá pra dar uma melhorada boa no 
 tempo de desenvolvimento?

 Eny

 .

 



Re: [delphi-br] Nome e data do executável

2009-07-22 Por tôpico EmbarcaDelphi
Quando o executável é compilado é colocado a data no executável? Acho 
que não! Mas você poderia implementar uma function (com alguma diretiva 
talvez) para acrescentar isso no Version Info e você então, poderia 
capturar.

Bruno Stort escreveu:
  

 Existe algum método que devolve o nome e/ou data da compilação do
 executável?

 .

 



Re: [Bulk] RES: [delphi-br] Erro ao inicilizar aplicativo

2009-07-22 Por tôpico EmbarcaDelphi
Virus, problema na memória, no HD...
Tenta trocar a memória desse micro, ou o HD só para testar, já que nos 
outros micros funciona, então só pode ser algo com o hardware desse 
micro que não está bom... (pela lógica é isso, pois se funciona nos 
outros...)

Huander escreveu:
  

 Infelizmente o meu Library path esta completo e certo... mas creio que o
 problema seja mais especifico da maquina q está dando o erro, pois em 
 outra
 máquinas está funcionando normalmente!

 Se alguém puder dar mais alguma dica! Agradeço muito

 Att...

 .

 



[delphi-br] JvXPButton - Arquivo postado...

2009-07-22 Por tôpico embarcadelphi
Pessoal, coloquei um arquivo na seção de arquivos para vocês observarem o que 
estou tentando fazer, bem simples. Compila quem tem o JEDI instalado. Tem um 
.EXE para ver como fica...
Se clicar no botão, o gradiente fica beleza, já, se clicar no outro botão eu 
vou fazer o gradiente, mas ele não fica bem, alguém poderia ver isso, se for 
fácil bom, senão tenho de deixar esse botão da JEDI que é uma pena!!!



[delphi-br] [SUCESSO] - Consegui acertar o Grad iente do botão

2009-07-22 Por tôpico EmbarcaDelphi
Pessoal, precisa mais não, isso só acontece comigo (rsrs)
Depois de postar o arquivo e a mensagem, fui ver o código novamente e vi 
que tava errado uma bendita de um parâmetro.

A linha:
BitBlt(JvXPButton1.Canvas.Handle,1,1,JvXPButton1.Width 
-2,JvXPButton1.Height -2,FCkGradient.Canvas.Handle,0,0, SRCAND);

O último parâmetro estava errado, o certo é:
BitBlt(JvXPButton1.Canvas.Handle,1,1,JvXPButton1.Width 
-2,JvXPButton1.Height -2,FCkGradient.Canvas.Handle,0,0, SRCCOPY);

Tanto que procurei no google e não achei nada disso, ainda bem que 
estudando o código do Jedi eu consegui...

Para usar o botão é fácil, mas para determinar algumas coisas via código 
a facilidade não existe, tem que meter a cara no código mesmo!!! Não 
existe documentário sobre isso. Acho que deixei uma mão na roda para 
outra pessoa que necessitar disso...

blz... vou adiante no projeto depois de 3 dias nisso.

:)


Re: RES: [delphi-br] Nome e data do executável

2009-07-22 Por tôpico EmbarcaDelphi
Isso não é a data da compilação, é a data do arquivo e pode ser alterada 
a qualquer momento. Se não tiver outra maneira esta pode ser utilizada 
mesmo :)

Vinicius escreveu:
  

 var
 Wdata: TDateTIme;
 begin
 Wdata := FileDateToDateTime(FileAge('SeuExecutavel.EXE'));

 .

 



Re: RES: RES: [delphi-br] Nom e e data do executável

2009-07-22 Por tôpico EmbarcaDelphi
Deve existir uma diretiva de compilação que qdo tiver compilando ele (o 
compilador) faça a inserção no resources ou no Version Info. Talvez 
encontra-se algo semelhante na internet que possa ser aproveitado. Da 
uma busca no google (em inglês)... :)

Rubem Rocha escreveu:

 Se for assim, tem que ter um mecanismo para se gravar essa data dentro do
 executável, via resources ou qualquer coisa semelhante, pra se poder
 recuperar essa data. Uma dica seria usar a área ‘Version Info’ das
 propriedades do projeto, mas isso deveria ser feito no momento do build do
 projeto. Aí já teria que gastar um pouco mais de massa cinzenta pra fazer
 isso.

 Sds.

 .

 





-- 
 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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

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




Re: RES: RES: [delphi-br] Nom e e data do executável

2009-07-22 Por tôpico EmbarcaDelphi
Dei uma olhadela no help do Delphi e acho que encontrei um ponto inicial 
de partida, ou, acho que seria a resposta, como meu inglês é péssimo eu 
não tenho certeza, mas a lógica do código (para mim) deve ser um ponto 
de partida para pesquisa:

Type Parameter
Syntax {$DESCRIPTION 'text'}
Scope Global
Remarks

The $D directive inserts the text you specify into the module 
description entry in the header of an executable, DLL, or package. 
Traditionally the text is a name, version number, and copyright notice, 
but you may specify any text of your choosing. For example:

{$D 'My Application version 12.5'}

The string can’t be longer than 256 bytes. The description is usually 
not visible to end users. To mark you executable files with descriptive 
text, version and copyright information for the benefit of end users, 
use version info resources.

Note: The text description must be included in quotes.
===


Se for isso me dá um retorno para eu guardar caso precise algum dia :)



EmbarcaDelphi escreveu:
 Deve existir uma diretiva de compilação que qdo tiver compilando ele (o 
 compilador) faça a inserção no resources ou no Version Info. Talvez 
 encontra-se algo semelhante na internet que possa ser aproveitado. Da 
 uma busca no google (em inglês)... :)

 Rubem Rocha escreveu:
   
 Se for assim, tem que ter um mecanismo para se gravar essa data dentro do
 executável, via resources ou qualquer coisa semelhante, pra se poder
 recuperar essa data. Uma dica seria usar a área ‘Version Info’ das
 propriedades do projeto, mas isso deveria ser feito no momento do build do
 projeto. Aí já teria que gastar um pouco mais de massa cinzenta pra fazer
 isso.

 Sds.

 .


 



 

   





-- 
 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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

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




Re: [delphi-br] [SUCESSO] - Con segui acertar o Gradiente do botão

2009-07-22 Por tôpico EmbarcaDelphi
Infelizmente tive que fazer uma gambiarra, se o botão tem um texto ou 
uma imagem ela é sobrescrita pelo gradiente. A solução que tive foi usar 
da seguinte forma:

BitBlt(JvXPButton1.Canvas.Handle,
   1,1,JvXPButton1.Width -2,
   JvXPButton1.Height -2,
   FCkGradient.Canvas.Handle,
   0,0, SRCERASE + NOTSRCCOPY);

Usei no último parâmetro a combinação (SRCERASE + NOTSRCCOPY). Usei 
várias outras mas só estas deram certo. O botão fica um preto quase 
transparente, mas a imagem permanece, depois, na sequência, usei:

JvXPButton1.IsLocked := True;
JvXPButton1.Enabled := False;

Então o botão fica desabilitado guardando a formatação.
Não encontrei outra solução, uma pena.

Mas fica aqui se alguém algum dia precisar... Se tivesse alguém que 
usasse esse botão seria mais fácil encontrar outra solução. bom... até 
mais...


EmbarcaDelphi escreveu:
  

 Pessoal, precisa mais não, isso só acontece comigo (rsrs)
 Depois de postar o arquivo e a mensagem, fui ver o código novamente e vi
 que tava errado uma bendita de um parâmetro.

 A linha:
 BitBlt(JvXPButton1.Canvas.Handle,1,1,JvXPButton1.Width
 -2,JvXPButton1.Height -2,FCkGradient.Canvas.Handle,0,0, SRCAND);

 O último parâmetro estava errado, o certo é:
 BitBlt(JvXPButton1.Canvas.Handle,1,1,JvXPButton1.Width
 -2,JvXPButton1.Height -2,FCkGradient.Canvas.Handle,0,0, SRCCOPY);

 Tanto que procurei no google e não achei nada disso, ainda bem que
 estudando o código do Jedi eu consegui...

 Para usar o botão é fácil, mas para determinar algumas coisas via código
 a facilidade não existe, tem que meter a cara no código mesmo!!! Não
 existe documentário sobre isso. Acho que deixei uma mão na roda para
 outra pessoa que necessitar disso...

 blz... vou adiante no projeto depois de 3 dias nisso.

 :)


 



[delphi-br] [MEIO OFF] Pessoal que escreve no idioma inglês ...

2009-07-22 Por tôpico EmbarcaDelphi
Boa...

Pessoal que escreve no idioma inglês poderia contribuir com o projeto 
JEDI ???
É que aquele botão TJvXPButton realmente está com BUG. Notei um detalhe 
interessante.
Quando colocamos ele para ficar como se fosse Down = True atravez do 
próprio clique no botão (não é via código como eu estava querendo fazer, 
é pressionando o botão do mouse mesmo), depois, se a pessoa minimizar a 
tela e restaurar, o gradiente do botão desaparece, mas continua com a 
propriedade do afundamento do botão (tipo Down = True) na memória. Só o 
gradiente que desaparece. Isso não deveria acontecer. Se fosse via 
código, poderia ser erro meu, mas é do próprio clique do mouse depois de 
minimizar e restaurar a aplicação. deve ser algo do redesenhamento do 
componente, notei isso pois tinha colocado ele numa aba do PageControl 
que acontece da mesma forma quando se aciona o botão, vai para outra aba 
e ao retornar, o gradiente desaparece, mas a propriedade dele ficou na 
memória pois qdo clica nela não surtiu nenhum efeito de retornar ao 
normal. Alguma coisa errada com o redesenho do componente. Como o 
projeto é OpenSource poderíamos avisar!

Vou ter que mudar de botão...



Re: Res: [delphi-br] Arquivo INI

2009-07-22 Por tôpico EmbarcaDelphi
Vai uma vídeo-aula aí (é necessário ter cadastro, se não tiver um, 
cadastre-se, é gratis):

http://www.activedelphi.com.br/modules.php?op=modloadname=Newsfile=articlesid=847

blz.

Eny Urias escreveu:
  

 Se vc ainda não sabe como manipular arquivos .ini, faça uma busca que 
 vc vai encontrar trocentas coisas. depois é só vc configurar o 
 componente que tá usando pra fazer a conexao com o banco antes de abri-la.

 
 De: Felipe de Araújo Lopes felipearaujolo...@yahoo.com.br 
 mailto:felipearaujolopes%40yahoo.com.br
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Enviadas: Quarta-feira, 22 de Julho de 2009 10:27:16
 Assunto: [delphi-br] Arquivo INI

 Galera, bom dia

 Estou com uma dificuldade de desenvolver e precisava da ajuda de voces.
 Tenho um aquivo ini com as seguintes informações:

 [BASE]
 Base1=Teste1
 Base2=teste2
 Base3=teste3

 [SERVIDOR]
 servidor1=servidor1
 servidor2=servidor2
 servidor3=servidor3

 [caminho]
 caminho1=\\servidor \caminho1
 caminho2=\\servidor \caminho2
 caminho3=\\servidor \caminho2

 Eu preciso carregar apenas as informações contidas na parametro [BASE] 
 em um memo ou componente parecido.
 onde o usuario ira escolher em qual base vai conectar.
 Se o usuario escolher a base1, o projeto tem que buscar 
 automaticamente o servidor1 e caminho1.

 Alguem sabe como me ajudar?

 .

 



Re: [delphi-br] [MEIO OFF] Pess oal que escreve no idioma inglês...

2009-07-22 Por tôpico EmbarcaDelphi
Ricardo, também não sei onde é, vou procurar.
Você por acaso baixou o exemplo que disponibilizei na seção de arquivos 
da lista? nele você pode ver o que realmente estou tentando dizer. Nem 
precisa testar o código do segundo botão, basta clicar no primeiro botão 
de cima e depois minimizar a tela e depois restaurar, o gradiente 
desaparece, se clicar no botão não acontece nada, provando que o Down 
está ativo, mas o botão mostra como se não tivesse pois o gradiente some!

blz.

Amanha vou atrás do local onde postar os Bugs, alguém daqui da lista 
pode até saber, como o Silvio que usa estes componentes também.

valeu colega, grato!

Ricardo César Cardoso escreveu:
  

 EmbarcaDelphi (puxa como é chato se referir a alguém pela alcunha...)

 Tá aí o teu bug-report feito num inglês meio tosco e que talvez faça 
 Shakespeare chorar (efeitos de um happy-hour e do desempenho do SPFC) 
 se quiser conferir se o texto tá bom, usa o Google Translator [1] que 
 é o que eu uso pra me safar quando me faltam as palavras. Agora é só 
 descobrir onde postar esse report, mas desconfio que possa ser direto 
 na página do componente no SouceForge.

 [ Início do texto ]
 I found a bug in TJvXPButton. I noticed a interesting detail.

 When set Down property to True (through Object Inspector) in 
 TJvXPButton.OnClick event  after minimize and restore the application 
 form, button's gradient effect disappear, but checking the memory, the 
 property Down continue set to True. Only the visual (gradient) effect 
 disappears. It couldn't happen! If it was hard-coded, could be my 
 mistake, but it happens just after minimize and restore the 
 application. The bug can be during component redrawning, I noticed 
 that because had put a TJvXPButton in a page of TPageControl and when 
 change pages the gradient effect disappears but the TJvXPButton 
 continues with Down property set to True. There is something wrong 
 with TJvXPButton redrawing.
 [ Final do texto ]

 Fraterno abraço,
 Ricardo.

 [1] - http://translate.google.com http://translate.google.com

 .

 



Re: [delphi-br] [MEIO OFF] Pess oal que escreve no idioma inglês...

2009-07-22 Por tôpico EmbarcaDelphi
Sim, hehehe... meu nome é Robson, mas não gosto de me apresentar não, 
sempre uso apelidos na internet...

blz.


Re: [delphi-br] [OFF TOPIC] Mic rosoft abre códigos para operar com Linux

2009-07-21 Por tôpico EmbarcaDelphi
Não é 171 não, a M$ tem ou tinha acordos com o OpenSuse, isso não diz 
nada, alias, nem mensiona na notícia quais são estes 3 drives que estão 
como OpenSource. Eu sei (pois já usei o OpenSuse por muito tempo), que 
há um acordo com a Microsoft em disponibilizar códigos para que o 
SuseLinux fique mais estável e que no futuro o Office seja compativel 
com essa distribuição, foi porisso que muita gente na comunidade Linux 
não quis usar o Suse porque as patas da M$ estavam nesse Linux, e todo 
mundo sabe que a comunidade odeia a M$.
Mas é isso aí, a M$ quer se meter em tudo, e está certa, todo mundo mete 
o pau, mas se a M$ pertencesse a estas pessoas elas estariam defendendo 
a M$. Comercio é comercio, não vejo nada de errado. Se todo mundo mete o 
pau numa empresa só porque ela vende seus softwares, então todo 
programador deveria colocar seus softwares como OpenSource e não 
venderia nada. Uso o Linux por causa da Segurança, mas se um dia eu 
fizer um programa para Linux eu jamais ia dar de graça, ia vender, quem 
quisesse comprar bom, senão dane-se, preciso de dinheiro!!! Esse é um 
mundo cão...
Desculpem os erros de portuga, estou escrevendo rápido porque estou 
desenvolvendo um programa aqui e não posso perder tempo, mas quis 
comentar este OFF.

Blz.

Evandro Siqueira escreveu:
 Bom dia pessoal,

 Recebi essa notícia abaixo e achei que seria interessante trocar umas 
 idéias... Não sei porque, mas senti um cheiro de 171 tão forte ar...

 http://www.tiinside.com.br/News.aspx?ID=141257C=265

   



<    1   2   3   4   >