date:20050129

[delphi-br] QReport Codigo de barra

2005-01-29 Por tôpico Rildecy de Queiroz Borba


 
tive a liberdade de enviar os arquivos diretamente para vc pois nao sei se a
lista recebe arquivos anexos.
este componente se chama frebarcode e foi indicação do autor do livro 
delphi 6 client /servidor con Firebire / Interbase
Aplicação PDSV e Controle de Estoques
Editora Erica
este livro vem com programas fonte e o exemplo que envio é o de crachas do
proprio autor
de uma estudada nele talvez lhe sirva.
___

Rildecy de Queiroz Borba
Fone: 81-3435.0013
Messenger: [EMAIL PROTECTED]
Skype: [EMAIL PROTECTED]
Paulista - PE 
 


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Duvida Urgente nº reais

2005-01-29 Por tôpico Evolution


É só vc mudar a mascara no fields editor, para valore monetários eu utilizo 
assim ###,##0.00.

Fausto
- Original Message - 
From: Hudson [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, January 29, 2005 12:49 AM
Subject: [delphi-br] Duvida Urgente nº reais



Gente
Tenho uma conexão em ADO com Access 2000, tenho uma duvida sobre os numero 
reais..

eles estão da seguite forma (1) ou (1,5) o ,5 quer dizer 50 
centavos.
desejo q apareça assim (1,00) ou (1,50)com (R$)

e no campo unidade apareça 1,000 ou 1,500 assim por diante

nos edits e DBGrids

grato pela ajuda

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










-- 
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.2 - Release Date: 28/01/2005




-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.2 - Release Date: 28/01/2005



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Localizar e Alterar

2005-01-29 Por tôpico Fabio Giro



Adapte as suas necessidades.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Texto :WideString;
  formato : Word;
  Data : THandle;
  Palette: HPALETTE;
  tudo:string;
begin
//Inicializando o Word
//Insira um componente TWordApplication e utilize o codigo:
W.Connect;
W.Visible := True;
//Abrindo um documento em branco no Word:
//Insira um objeto TWordDocument, e execute o metodo NewInstance:
WD.Activate; //Exibe o aplicativo Word (não e necessario)
WD.NewInstance; //Cria um novo documento
//Inserindo texto no final do arquivo:
Texto := 'WorkShop Delphi 5 Novos Eecursos' +chr(13)+chr(10)+
'www.clubedelphi.com.br';
WD.Content.InsertAfter(texto);
//Substituindo uma palavra:
//Neste caso, a palavra de indice 2 sera substituida pela string Borland
Delphi.
WD.Words.Item(2).Text:= 'Borland Delphi';
//Alterando a formatação de uma palavra:
//Insira um objeto TWordFont e um TWordDocument. Em seguida, digite o
codigo:
WF.ConnectTo(WD.Content.Font);
WF.Bold:=1;
WF.Italic:=1;
texto:= #13+'ui ui';
WD.Content.InsertAfter(texto); //o texto sera inserido com a formatacao
negrito e italico
//Inserindo texto no meio de um arquivo :
Texto:= '(Clube Delphi)';
WD.Words.Item(2).InsertAfter(texto); //Este comando ira inserir a string
'Clube Delphi' apos a Segunda palavra
//Inserindo uma figura dentro do arquivo:
Image1.Picture.SaveToClipBoardFormat(Formato,Data,Palette);
//copia o conteudo do objeto image para o clipboard
//WD.content wd.content+ wd.content.Paste;
wd.content; //é todo o que contem no documento
showmessage(tudo);
//cola a area de transferencia dentro do documento}
end;

WD.CONTENT.TEXT:=
stringreplace(wd.Content.Text,'DELPHI','TROCOU',[rfReplaceAll,
rfIgnoreCase]);

Espero ter ajudado.

- Original Message -
From: Anderson de Oliveira Furtilho - BR3
[EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, January 27, 2005 4:26 PM
Subject: [delphi-br] Localizar e Alterar



Saudações amigos!!!



Alguém saberia me dar uma dica de como posso localizar uma determinada
palavra dentro de um arquivo do Word e

Substituí-la por outra.





Qualquer dica ficarei agradecido!!!



Um forte abraço a todos





Anderson Furtilho



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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos











--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/01/2005





-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/01/2005






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: Re: [delphi-br] Problema na inicialização...

2005-01-29 Por tôpico Cesar \(Yahoo!\)

Fernando, eu estou tendo exatamente esse problema, loop infinito... como vc
resolveu ???

- Original Message - 
From: fernando [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, January 27, 2005 10:26 AM
Subject: Res: Re: [delphi-br] Problema na inicialização...

ATENÇÃO, o onActivate irá disparar toda vez que o form (tela receber o foco)
  se esse é o resultado desejado, deve-se prevê-lo para
evitar loop infinito.
(já tive  sérias dores de cabeça com isso)

---Mensagem original---

De: delphi-br@yahoogrupos.com.br
Data: 01/27/05 11:12:41
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Problema na inicialização...

Muda pro evento OnActivate

- Original Message - 
From: Adenes I. Freire Junior [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, January 27, 2005 9:58 AM
Subject: [delphi-br] Problema na inicialização...

Caro amigo,

Na abertura do sistema o form principal chama outro form, para login, na
tela aparece somente a tela de login, como faço para aparece a tela
prinicpal e a de login?

procedure TFrmFPAG2002.FormShow(Sender: TObject);
var
   Usuario : String[10];
   Senha   : String[10];

begin
 FrmSenha.ShowModal;

 //Atualizando
 DTM.TblPassword.Active := true;
 Usuario := Criptografia(DTM.TblPasswordUsuario.Value, '05964817',
'descript');
 Senha   := Criptografia(DTM.TblPasswordSenha.Value, '05964817',
'descript');
 DTM.TblPassword.Active := false;
end;

Adenes I. Freire Junior

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

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

Links do Yahoo! Grupos

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

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

O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.

  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/1/2005

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

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

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

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

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

[delphi-br] problemas com: Delphi 7+DbExpress+FireBird

2005-01-29 Por tôpico Ricardo Cabral



   Caros Colegas,
 
   Fiz im programa em Delphi 7 usando FireBird e para conectar ao banco 
usei o DbExpress.
 
   O problema é que fui instalar  o programa em uma máquina sem delphi e 
começou a dar erros de DLL´s.
 
   Gostaria de ajudar, pois o programa só roda seu eu instalar todas 
DLL´s ou instalar o delphi.
 
 
Desde de já agradeço.
 
   
 


Abraços,

   Ricardo Cabral
__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Mudar cor do edit dinamicamente

2005-01-29 Por tôpico omarcosmhs




Pessoal como faço para que a cor de um edit seja mudada de maneira 
dinamica? Tipo quando se entra em um EDIT a cor ser alterada de 
branco para azul por exemplo. Alguem conhece uma forma?

Grato dese ja.
Marcos H. Silva








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Messagebox - Quebrar linha

2005-01-29 Por tôpico Bruno Augusto




tem sim.. vc usa o caractere ENTER que equivale ah #13, ou char(#13)

ex.:
  application.MessageBox('Primeira Linha!'+ char(#13) +'Segunda
Linha',mb_IconInformation+mb_OK);

eh só...


--- Em delphi-br@yahoogrupos.com.br, Erika [EMAIL PROTECTED] escreveu
 
 Bom dia
 
 Tem como quebrar linha na mensagem do messagebox?
 
 Obrigadão!
 Erika
 
 PS: desculpa postar outra mensagem de messagebox, mas esqueci de 
 perguntar na anterior, ok?








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Re: Cancel - MessageBox

2005-01-29 Por tôpico Bruno Augusto




Acredito que não faça sentido existir o botão cancelar...
pois se vc não insere evento no mesmo o messagebox fecha e nada
acontece...

se vc colocar um evento de cancelamento de edição, ou inserção pode
tb.. mas o mesmo não serviria no botão NÃO?

de todo jeito para pegar qual botão que foi acionado usa dessa forma...


case Application.MessageBox('primeira linha!'+ char(#13) +'Segunda
linha','Titulo da Mensagem',mb_IconInformation+MB_YESNOCANCEL) of
 mrYes: SHowMessage('sim');
 mrNo: ShowMessage('Não');
 mrCancel: ShowMessage('cancelar');
end;


espero poder ter ajudado...

Bruno Coelho



--- Em delphi-br@yahoogrupos.com.br, Erika [EMAIL PROTECTED] escreveu
 
 Pessoal
 
 Eu tenho message box com os tres botões:
 - sim
 - não
 - cancelar
 
 queria fazer o seginte:
 - sim: gravar e sair
 - não: sair sem gravar
 - cancelar: não fazer nada, apenas fechar o message box
 
 O sim e o não estão ok... mas como faço para cancelar?
 
 Obrigado @
 Abraço
 Erika








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Me ajudem a achar algum erro neste código!!!

2005-01-29 Por tôpico Fabio Giro



(...)
if Application.MessageBox('Confirma a exclusão do
registro ?','Excluir',Mb_YesNo+Mb_IconQuestion)=IdYes then
with QrExclui do begin
   Close;
   Sql.Clear;
   Sql.Add('DELTE FROM ITEM.DB');
   Sql.Add('WHERE CODCOMPRA = :PCod');
   ParamByName('PCod').AsInteger := StrToInt(Label5.Caption);
   EXECSQL;
end;
(...)

Espero ter ajudado.

- Original Message -
From: Erika [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Thursday, January 27, 2005 5:42 PM
Subject: [delphi-br] Me ajudem a achar algum erro neste código!!!




Pessoal

Eu quero excluir os itens da minha tabela que possuam o CODCOMPRA
igual ao valor de uma Label... não sei o que está acontecendo mas
ele exclui TODOS os itens não está selecionando!!!
Alguém poderia me dizer se existe algum erro neste código?
Gente, não consigo enxergar erro será que estou cega? ..rs..

(...)
if Application.MessageBox('Confirma a exclusão do
registro ?','Excluir',Mb_YesNo+Mb_IconQuestion)=IdYes then
with QrExclui do begin
   Close;
   Sql.Clear;
   Sql.Add('SELECT *');
   Sql.Add('FROM ITEM.DB');
   Sql.Add('WHERE CODCOMPRA = :PCod');
   ParamByName('PCod').AsInteger := StrToInt(Label5.Caption);

   if not QrExclui.Prepared then Prepare;
   Open;
end;
QrExclui.First;
while not QrExclui.Eof do TabelItem.Delete;
(...)

Obrigado gente
Abraços!!!

PS: uso o banco paradox...





--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos











--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/01/2005





-- 
Internal Virus Database is out-of-date.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/01/2005






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Usar a tecla ESC para sair

2005-01-29 Por tôpico Arthur

como a PageControl e a TabSheet não tem esse evento, automaticamente ela anula 
o do Form, coloque essa rotina nos componentes das TabSheets...
  - Original Message - 
  From: Eduardo Silva ® 
  To: [EMAIL PROTECTED] 
  Sent: Friday, January 28, 2005 10:54 AM
  Subject: [delphi-br] Usar a tecla ESC para sair

  Galera tenho um form com 1 Page Control e dentro deste 2 TabSheet.

  Estou usando o código abaixo no evento onKeyDown do form para fechar o mesmo
  com a tecla ESC, mas não esta funcionando.

  Alguém pode me dar uma mão ?

 if Key = 27 then
 begin
Tabela.Cancel;
Close;
 end;

   _  ___  _
  / )|   |( \
 / / | Eduardo de Almeida Silva  | \ \
  _( (_ |  _[EMAIL PROTECTED] _  | _) )_
  (((\ \)|_/ )___( \_|(/ /)))
  ( \_/ / \ \_/ )
  \   /   \   /
\_/ \_/
/   / \   \

  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Yahoo! Grupos, um serviço oferecido por: 

--
  Links do Yahoo! Grupos

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

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

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 

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

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

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

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

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

[delphi-br] Como adicionar anexos no Delphi 2005 com Indy?

2005-01-29 Por tôpico Bruno Coelho



Olá pessoal... já estou conseguindo enviar email para contas que precisam de
autenticação
solicitando resposta automatica.. com copias, e copias ocultas... porém não
estou conseguindo enviar anexos com o Delphi 2005 veja o código todo

procedure TForm2.BitBtn2Click(Sender: TObject);
var xAnexo:Integer;

begin

IdMessage1.From.Address:=edtDe.Text;
idMessage1.UID:=edtDe.text;

IdMessage1.Recipients.EMailAddresses:=edtPara.text;
IdMessage1.CCList.EMailAddresses:=edtCC.text;
IdMessage1.BccList.EMailAddresses:=edtCCO.text;

//trata a prioridade da mensagem

case cbxPrioridade.ItemIndex of
0: IdMessage1.Priority:=mpHigh;
1: IdMessage1.Priority:=mpNormal;
2: IdMessage1.Priority:=mpLow;
end;

IdMessage1.Subject:=edtAssunto.text;
IdMessage1.Body:=mmMensagem.Lines;  //memorando
idMessage1.ContentType:='text/html';


if cbxConfirmaLeitura.Checked then
  IdMessage1.ReceiptRecipient.Text:=IdMessage1.From.Text; //auto
resposta


{
 AQUI ACONTECE O ERRO
  
Obs.:
TidAttachment.create não é reconhecido, ou seja, fica um sublinhado em baixo
notificando
a existencia de erro nestas propriedades..
}
  //tratando os arquivos anexos
 for xAnexo:=0 to ListBox1.Items.Count-1 do

TidAttachment.create(IdMessage1.MessageParts,ListBox1.Items.Strings[xAnexo])
;


FIM DO ERRO


 IdPOP31.Host:=edtPop.text; //host pop3
 IdPOP31.Username:=edtUser.text;
 IdPOP31.Password:=edtSenha.text;

 IdSMTP1.Host:=edtSmtp.Text; //host smtp
 IdSMTP1.Username:=edtUser.Text;
 IdSMTP1.Password:=EdtSenha.text;
try
 IdPOP31.Connect;
 IdSMTP1.Connect
   except

 IdSMTP1.SASLMechanisms.Add();
   end;
  try
IdSMTP1.send(IdMessage1);
finally
IdSMTP1.Disconnect;
IdPOP31.Disconnect;
  end;

end; //fim do envio de mensagem







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] SQL muito complexa, unir 2 select

2005-01-29 Por tôpico Arthur



voce pode usar o left join .
  - Original Message - 
  From: Hélder Rodrigues 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, January 28, 2005 10:34 AM
  Subject: Re: [delphi-br] SQL muito complexa, unir 2 select


  Oi Leandro ...

  Obrigado por responder a minha dúvida ... mas eu vi na ajuda do Delphi 
  ... que
  para usar UNION ... a estrutura das duas consultas tem que ser a mesma ...
  e no caso não vai dar pra usar ...

  ... e no caso, union junta o resultado das duas consultas uma embaixo 
  da outra ...
  e na verdade eu estava querendo é ter o resultado de 2 colunas com um 
  where diferente
  para uma e para outra 

  ... mandei um segundo email com o título SQL muito complexa, unir 2 
  select (2) !!!
  ... dá uma olhada ... às vezes vc consegue me ajudar ...

  Novamente, obrigado.

  Att.

  Hélder

  -

  [EMAIL PROTECTED] escreveu:

  Use UNION ALL entre os selects para uní-los. Só que o group by só
  sera aceito no ultimo select. Se quiser, pode usar group by pelo numero da
  coluna. Por exemplo, se quiser agrupar pela primeira e segunta colunas,
  use:
  
  GROUP BY 1,2
  
  
  Att,
  
  Leandro
  
  --
  Open WebMail Project (http://openwebmail.org)
  
  
  -- Original Message ---
  From: Hélder Rodrigues [EMAIL PROTECTED]
  To: delphi-br@yahoogrupos.com.br delphi-br@yahoogrupos.com.br, delphi-
  [EMAIL PROTECTED] [EMAIL PROTECTED], lista-
  [EMAIL PROTECTED] [EMAIL PROTECTED]
  Sent: Fri, 28 Jan 2005 10:39:18 -0200
  Subject: [delphi-br] SQL muito complexa, unir 2 select
  

  
  Bom dia amigos,
  
  Estou precisando unir duas consultas SQL ... (a base de dados 
  utilizada tabelas Paradox) e não sei qual cláusula usar (não tenho 
  muito experiência no assunto ...) devo usar UNION ou JOIN ???
  
  A 1ª consulta é essa:
  --
  SELECT
  Cq_dd.CodCQ_MOEDA ,
  Cq_dd.CodCQ_CLASS ,
  (Cq_insum.Descricao)  as Insumo,
  (Cq_fatpl.Periodo) as Periodo,
  (Cq_Ativ.NomeAtividade),
  (Cq_Ativ.IndiceOutLine),
  (Cq_Ativ.IndicePaterno),
  (sum(Cq_fatpl.QuantidadeNaoAcumulada *
  Cq_dd.QuantInsumo *
  Cq_dd.CustoUnitario)) as Custo
  FROM
  Cq_fatpl.DB Cq_fatpl ,
  Cq_dd.DB Cq_dd ,
  Cq_Ativ.DB Cq_Ativ,
  Cq_insum.DB Cq_insum
  WHERE
  (Cq_fatpl.CodCQ_ATIV = Cq_dd.CodCQ_ATIV)
  AND
  (Cq_fatpl.CodCQ_ATIV = Cq_Ativ.CodCQ_ATIV)
  AND
  (Cq_dd.CodCQ_INSUM = Cq_insum.CodCQ_INSUM)
  AND
  (
  (Cq_fatpl.Periodo = '10')
  AND
  (Cq_dd.CodCQ_CLASS = '7')
  )
  GROUP BY
  (Cq_Ativ.NomeAtividade), (Cq_Ativ.IndiceOutLine),
  
  (Cq_Ativ.IndicePaterno), (Cq_insum.Descricao) , Cq_dd.CodCQ_CLASS ,
   Cq_dd.CodCQ_MOEDA , (Cq_fatpl.Periodo) ORDER BY 
  Cq_Ativ.IndiceOutLine, Cq_Ativ.IndicePaterno
  --
  ... e ela retorna 140 registros.
  
  A 2ª consulta é essa:
  --
  SELECT
  Cq_dd.CodCQ_MOEDA ,
  Cq_dd.CodCQ_CLASS ,
  (Cq_insum.Descricao)  as Insumo,
  (Cq_Ativ.NomeAtividade),
  (Cq_Ativ.IndiceOutLine),
  (Cq_Ativ.IndicePaterno),
  (sum(Cq_fatpl.QuantidadeNaoAcumulada *
  Cq_dd.QuantInsumo *
  Cq_dd.CustoUnitario)) as CustoAte
  FROM
  Cq_fatpl.DB Cq_fatpl ,
  Cq_dd.DB Cq_dd ,
  Cq_Ativ.DB Cq_Ativ,
  Cq_insum.DB Cq_insum
  WHERE
  (Cq_fatpl.CodCQ_ATIV = Cq_dd.CodCQ_ATIV)
  AND
  (Cq_fatpl.CodCQ_ATIV = Cq_Ativ.CodCQ_ATIV)
  AND
  (Cq_dd.CodCQ_INSUM = Cq_insum.CodCQ_INSUM)
  AND
  (
  (Cq_fatpl.Periodo = '10')
  AND
  (Cq_dd.CodCQ_CLASS = '7')
  )
  GROUP BY
  (Cq_Ativ.NomeAtividade),
  (Cq_Ativ.IndiceOutLine),
  (Cq_Ativ.IndicePaterno),
  (Cq_insum.Descricao) ,
  Cq_dd.CodCQ_CLASS ,
  Cq_dd.CodCQ_MOEDA
  ORDER BY
  Cq_Ativ.IndiceOutLine, Cq_Ativ.IndicePaterno
  --
  ... e ela retorna 157 registros.
  
  *
  A diferença das duas é que a 1ª pega somente os registros do 
  período 10 e a 2ª pega todos os registros até o período 10 
  incluindo o período 10 ...
  
  Tem como unir essas duas consultas ?
  Alguém pode me dar uma dica ?
  
  Desde já muito obrigado.
  
  Atenciosamente,
  
  Hélder
  
  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  Para ver as mensagens antigas, acesse:
   http://br.groups.yahoo.com/group/delphi-br/messages
  
  Para falar com o moderador, envie um e-mail para:
   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
  
  Links do Yahoo! Grupos
  
  
  
  
  
  --- End of Original Message ---
  
  
  

  


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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
  PUBLICIDADE

   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:

Re: RES: [delphi-br] Como evitar '' is not a valid floating point value

2005-01-29 Por tôpico Ricardo




Eu uso uma função bem simples:

Function Tffuncoes.Validavalor(svalor : String): Boolean;
var
fvalor : Double;
Begin
  // ** Verifica se o valor decimal digitado eh valido
  Try
fvalor := StrtoFloat(svalor);
Result := True;
  Except
   Result := False;

  End;
End;

 []´s

 Ricardo Cabral

--- Em delphi-br@yahoogrupos.com.br, Rubem Rocha [EMAIL PROTECTED] 
escreveu
 Ora, é só checar no evento se o tamanho do texto digitado no 
componente é maior que 0(zero)!
 Simples!
 
 -Mensagem original-
 De: jmourajr2000 [mailto:[EMAIL PROTECTED] 
 Enviada em: quarta-feira, 26 de janeiro de 2005 16:50
 Para: delphi-br@yahoogrupos.com.br
 Assunto: [delphi-br] Como evitar '' is not a valid floating point 
value
 
 
 
 
 Caros amigos boa noite!
 
 Estou usando um RXSpinEdit e usando em sua propriedade value-type 
 como vtFloat (ou seja valores Float entre 1,00 e 100,00).
 Estou trabalhando no evento onChange e se eu for digitar qualquer 
 numero me retorna a mensagem de erro: 
 
  =  '' is not a valid floating point value
 
 Pois necessito fazer com que o usuario possa digitar qualquer valor 
 float nesta faixa, como por exemplo: 35,25.
 
 Estou apanhando, alguem pode me ajudar.
 
 Desde ja obrigado e abraços.
 
 José de Moura
 
 
 
 
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 Para ver as mensagens antigas, acesse:  
http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:  [EMAIL PROTECTED] 
ou [EMAIL PROTECTED]
  
 Links do Yahoo! Grupos
 
 
 
 
  
 
 
 
 
 ---
 Incoming mail is certified Virus Free.
 Checked by AVG anti-virus system (http://www.grisoft.com).
 Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] phos-botoes de um form

2005-01-29 Por tôpico Paulo Henrique



Olá pessoal, como consigo eliminar os botões de controle do form? (minimizar, 
restaurar). Quero deixar somente o botão fechar
Paulo Henrique
Arcos-MG
[EMAIL PROTECTED]
[EMAIL PROTECTED]

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






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Erro no etiqhoriz- Etiquetas

2005-01-29 Por tôpico giuvany ribeiro



Pessoal nao sei se alguem ja usou ou etiqhoriz para imprimir etiquetas,
mas gostaria de quem ja usou este arquivo, que me desse uma dica,
Estou trabalhando sobre ele e quando ele pede para pular uma linha ou duas 
linhas em Rows to skip
quando sae o Relatorio final ele sempre pula o primeiro Registro da tabela, 
((nao imprime o primeiro registro)).
Alguem sabe como faço para que isto nao  aconteça??
Ja tentei fazer o Table1.first no evento beforePrint do Quick Report mas ae 
dispara com registro na saida do relatorio.
Se alguem tiver dica deste  etiqhoriz,
ou se tiverem um outro exemplo de impressao de etiquetas pulando linhas ou 
escolhendo Coluna para impressao eu Agradeço o apoio!
Bom no mais agradeço a colaboracao de todos!!

__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] TESTE DE DATA

2005-01-29 Por tôpico Cesar \(Yahoo!\)



Eu faço assim:

// esse código eh colocado no evendo OnExit do Edit da Data
try
StrToDate(EditData.Text);
except
ShowMessage('Data Inválida.');
EditData.Setfocus;
end;




- Original Message - 
From: Trama Paulista .:sites .:sistemas [EMAIL PROTECTED]
To: Delphi - BR delphi-br@yahoogrupos.com.br
Sent: Friday, January 28, 2005 12:01 PM
Subject: [delphi-br] TESTE DE DATA



Pessoal,

Tenho um form com um campo data com máscara 99/99/. Entretanto, se for
digitada uma data errada eme dá uma mensagem de erro e pede para teclar
escape para sair, coisa que qualquer usuário odeia.

Gostaria de saber como fazer para evitar esta mensagem, ou seja, como
contornar esta situação, colocando eu mesmo uma mensagem de erro e
possibilitando a redigitação de uma data correta ou mesmo de limpar o campo.

Desde já, obrigado.

Magno

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos















-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Fw: Re: [delphi-br] Problema na inicialização...

2005-01-29 Por tôpico Cesar \(Yahoo!\)





Fernando, eu estou tendo exatamente esse problema, loop infinito... como vc
resolveu ???




 - Original Message - 
 From: fernando [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Thursday, January 27, 2005 10:26 AM
 Subject: Res: Re: [delphi-br] Problema na inicialização...



 ATENÇÃO, o onActivate irá disparar toda vez que o form (tela receber o
foco)
   se esse é o resultado desejado, deve-se prevê-lo para
 evitar loop infinito.
 (já tive  sérias dores de cabeça com isso)

 ---Mensagem original---

 De: delphi-br@yahoogrupos.com.br
 Data: 01/27/05 11:12:41
 Para: delphi-br@yahoogrupos.com.br
 Assunto: Re: [delphi-br] Problema na inicialização...

 Muda pro evento OnActivate

 - Original Message - 
 From: Adenes I. Freire Junior [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Thursday, January 27, 2005 9:58 AM
 Subject: [delphi-br] Problema na inicialização...



 Caro amigo,

 Na abertura do sistema o form principal chama outro form, para login, na
 tela aparece somente a tela de login, como faço para aparece a tela
 prinicpal e a de login?

 procedure TFrmFPAG2002.FormShow(Sender: TObject);
 var
Usuario : String[10];
Senha   : String[10];

 begin
  FrmSenha.ShowModal;

  //Atualizando
  DTM.TblPassword.Active := true;
  Usuario := Criptografia(DTM.TblPasswordUsuario.Value, '05964817',
 'descript');
  Senha   := Criptografia(DTM.TblPasswordSenha.Value, '05964817',
 'descript');
  DTM.TblPassword.Active := false;
 end;

 Adenes I. Freire Junior

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



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos













 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]



 Yahoo! Grupos, um serviço oferecido por:
 PUBLICIDADE





 Links do Yahoo! Grupos

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

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

 O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
 Yahoo!.



   --

 No virus found in this outgoing message.
 Checked by AVG Anti-Virus.
 Version: 7.0.300 / Virus Database: 265.7.6 - Release Date: 27/1/2005


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



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos
















-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Re: Dúvida dbExpress

2005-01-29 Por tôpico omarcosmhs




Ola Rogério, olha até onde sei o dbExpress é ideal para banco 
Interbase e Firebird, porém não consigo usa-los com Cliente/Servidor, 
sem ter que colocar um DataSetProvider, e um ClientDataSet entre o 
SQLTable eo DatSource, por isso ele é muito utilizado para sistemas 
com MIDAS (DataSnape), para os projetos que não utilizam essa 
tecnologia o mais indicado é a aba Interbase.

Att
Marcos H. Silva


--- Em delphi-br@yahoogrupos.com.br, Rogério [EMAIL PROTECTED] 
escreveu
 Dúvida ...
 Conforme ví na revista Clubedelphi
 Os componentes dbExpress são ideais basicamente para trabalhar com 
Interbase ???
 [ ]'s
 
 [As partes desta mensagem que não continham texto foram removidas]








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Re: Como enviar um e-mail com arquivo atachado

2005-01-29 Por tôpico Bruno Augusto




Olá.. estou usando  Delphi 2005 e tem tb o componente Indy.. só que
dessa forma eu não consigo enviar anexo.. ele da erro ao colocar
TIdAttachment.Create(
ele não reconhece esse tIdAttachment...
sera que falta alguma unit ou eh de outra forma no delphi 2005?

um abraço


Bruno Coelho



--- Em delphi-br@yahoogrupos.com.br, Pedro Vagner Rossi
[EMAIL PROTECTED] escreveu
 Eu faço assim
 
 TIdAttachment.Create(IdMsgSend.MessageParts, 'c:\arquivo');
 
 - Original Message - 
 From: Marcelo Carvalho [EMAIL PROTECTED]
 To: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br;
 [EMAIL PROTECTED];
 [EMAIL PROTECTED];
[EMAIL PROTECTED]
 Sent: Thursday, January 27, 2005 3:27 PM
 Subject: [delphi-br] Como enviar um e-mail com arquivo atachado
 
 
 
 Pessoal,
 
 Estou usando D7 e utilizando os componentes do Indy, como posso
fazer para
 enviar um e-mail com um arquivo atachado 
 
 
 Atenciosamente,
 
 Marcelo Carvalho
 
 
 Essa mensagem, incluindo seus anexos, tem caráter confidencial e seu
 contéudo
 é restrito ao(s) destinatário(s) da mensagem.
 Qualquer uso nao autorizado, replicaçao ou disseminaçao desta
mensagem ou
 parte dela é expressamente proibido.
 Esse e-mail foi certificado contra virus.
 ISCMPA - Irmandade da Santa Casa de Misericórdia de Porto Alegre








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Informar a impressora na hora de imprimir

2005-01-29 Por tôpico Fabio Giro



Coloca no combobox as impressoras cadastradas.

antes coloque a clausula uses Printers;

var
  i: Integer;
begin
  ComboBox1.Items.Clear;
  for i := 0 to Printer.Printers.Count - 1 do
  begin
ComboBox1.Items.Add(printer.Printers.Strings[i]);
{if Pos('LPT', printer.Printers.Strings[I-1])  0 then
  ComboBox1.Items.Add('LPT1')
else if Pos('\\', printer.Printers.Strings[I-1])  0 Then
  ComboBox1.Items.Add(Copy(printer.Printers.Strings[I-1],
Pos('\\', printer.Printers.Strings[I-1]),
length(printer.Printers.Strings[I-1]) -
Pos('\\', printer.Printers.Strings[I-1]) + 1));}
  end; { for }
// quickRep.PrinterSettings.printerindex (impressora padrao)
quickRep.PrinterSettings.printerindex := fIndexImpressora;
end;

- Original Message -
From: Marcelo A. Souza [EMAIL PROTECTED]
To: Delphi-br delphi-br@yahoogrupos.com.br
Sent: Thursday, January 27, 2005 10:38 AM
Subject: [delphi-br] Informar a impressora na hora de imprimir



pessoal, estou com o seguinte problema, no meu sistema tenho vários
documentos que são impressos em impressoras diferentes na rede que estão
previamente cadastradas da seguinte forma: \\servidor1\epson01

Gostaria de informar ao quickreport essa impressora na hora de imprimir meu
documento, mas como faço isso?

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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos











--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/01/2005





-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.7.2 - Release Date: 21/01/2005






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Re: Posicionar Cursor dentro de Um Edit ??

2005-01-29 Por tôpico Bruno Augusto




Boa..
assim tb da:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.setfocus;
edit1.SelLength:=2;
end;


abraço

BRuno Coelho


--- Em delphi-br@yahoogrupos.com.br, Fabio Giro [EMAIL PROTECTED]
escreveu
 
 Posiciona o cursor em determinada posição no edit. Adapte as suas
 necessidades.
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   edit1.setfocus;
   Edit1.SelStart := 3;
 end;
 
  Espero ter ajudado.
 
 - Original Message -
 From: PoPo EcHo [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Tuesday, January 25, 2005 7:03 PM
 Subject: Re: [delphi-br] Posicionar Cursor dentro de Um Edit ??
 
 
 
 
  Tipo...
  queria colocar o cursor(setar focus) do teclado (selecionado ou
não) em
 uma
  determinada posição do texto de um EDIT, exemplo...Tenho um campo
com essa
  máscara 9-99, sendo pois, quero colocar o foco nos ultimos dois
  números...Não quero separar em dois EDIT's...Tem como ??
 
  Tkzzz...!!!
 
 
  From: Emerson Moreno [EMAIL PROTECTED]
  Reply-To: delphi-br@yahoogrupos.com.br
  To: delphi-br@yahoogrupos.com.br
  Subject: Re: [delphi-br] Posicionar Cursor dentro de Um Edit ??
  Date: Tue, 25 Jan 2005 08:17:57 -0300
  
  
  
  Vc quer posicionar o cursos em determinado ponto ou quer simplesmente
  jogar o foco lá dentro, bom se for só jogar o foco lá vai
  Edit1.setfocus.
  
  
  On Mon, 24 Jan 2005 15:37:01 +, PoPo EcHo [EMAIL PROTECTED]
  wrote:
   
Olá!
Gostaria de posicionar o cursor em uma determinada posição de
um Edit
 ou
MaskEdit...Tem jeito???
Ex:Posiconar no ultimo caracter do texto do Mask!!
Grato...
   









-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Preciso defender a honra de programar em Delphi, me ajudem

2005-01-29 Por tôpico Bruno Augusto




fiz um programinha para alterar logins que estão repetidos da tabela
de usuários. Porém o mesmo apresenta dois problemas... é preciso
executá-lo 2x, e ele trava legal os recursos da máquina...
O pessoal do trampo só fala que Delphi nao presta por isso.. e
programam em VB e C++.. vou passar a rotina que eu fiz.. e se tiverem
algo para que eu possa implementar ficarei muito agradecido...
ps.: Estou usando MySql

string da query:

select id,login,dup from usuarios where not isnull(login) order by login


//funcção para eliminar os acentos

function CorrigeTxt(texto: string): string;
var controle1,texto2,L1,L2:string;
posi,ver:integer;
begin
 controle1:='aâãäáàeêéèëiïîíìoôóòöuùúüûç';

 texto2:='';
 posi:=1;
 while posi=length(texto) do
 begin
  L1:=Copy(texto,posi,1);
  ver:=pos(L1,controle1);
   begin
  if ver=0 then L2:=L1
  else
if ver7 then L2:='a'
else
  if ver12 then L2:='e'
  else
 if ver17 then L2:='i'
 else
 if ver22 then L2:='o'
 else
if ver27 then L2:='u'
else
L2:='c';
  end;
  texto2:=texto2+L2;
  posi:=posi+1;
 end;
CorrigeTxt:=texto2;
end;


procedure TForm1.SpeedButtonCorrige(Sender: TObject);
var contador,cont:integer;
login:String;
begin

  contador:=0;
  cont:=0;
  if not query1.Active then query1.open;
  query1.First;
  login:=query1login.asString;
  query1.next;

while not query1.Eof do
begin
  label2.Caption:=TimeToStr(Time-hora);
  if
UpperCase(CorrigeTxt(query1login.asString))=UpperCase(CorrigeTxt(login))
then
 begin   
while
UpperCase(CorrigeTxt(query1login.asString))=UpperCase(CorrigeTxt(login))
do
 begin
   query1.Edit;
  
query1login.asString:=query1login.asString+IntToStr(cont+1);
   query1dup.asString:='S';
   query1.ApplyUpdates;
   query1.CommitUpdates;
   query1.close;
   query1.Open;
   contador:=contador+1;
   query1.next;
   cont:=cont+1;
 end;
login:=query1login.asString;
cont:=0;
query1.next;

 end   //fim login igual
  else
begin
   login:=query1login.asString;
   query1.next;
   cont:=0;
end; //fim else

end;   //fim da tabela

MessageDlg('Ocorreram
'+intToStr(contador)+'alterações!',mtInformation,[mbOk],0);
end;









-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Re: Private / Public - Como declarar?

2005-01-29 Por tôpico Bruno Augusto




Olá..
vou escrever um bocado mas acho que é o suficiente... mas recomento a
leitura de UML e Programação Orientada a Objetos (POO)

por convenção use T antes do nome da classe
e F antes das propriedades em orientação a Objetos você deve
encapsular todas as propriedades ou seja, colocá-las dentro da tag
private, assim apenas a classe pode acessar a propriedade. Eu
recomendo você ler um pouco sobre os conceitos de Orientação a Objetos
que ajuda a clarear algumas idéias. Seu código ficará mais flexível.

Obs.: Abaixo temos uma classe. e todos os objetos que serão
instanciados por essa classe irão herdar todos os seus métodos
(procedures e functions) e propriedades. Se instancio uma pessoa ela
vai ter nome, sexo etc. e ela herdara todas as suas propriedades.. ou
exemplo.. Numa empresa temos funcionarios horistas e mensalistas..
podemos ter a classe funcionario, a classe horista e mensalista que
herdam funcionario, que por sua vez herda as caracteristicas como
pessoa.. e assim vai..
ex.: Classe Pessoa, Atributos (nome, Nasc, sexo...)
 classe Funcionario, atributos(registro, depto...)
 classe Horista, alem de todos acima (horas trabalhadas,  
vr_hora... e assim vai...

veja um simples exemplo:




unit uObjPessoa;

interface

Type TPessoa = class
private 
 {apenas os métodos desta classe (TPessoa) tem acesso}
   FNome:String[40]; //atributo use Fnome, por  convenção
   FIdade:integer;
   FEstCivil:String;

protected
 {apenas os métodos desta unit (uObjPessoa) tem acesso}
   procedure gravaNome(n:string);
   procedure gravaIdade(i:integer);
   procedure gravaEstCivil(ec:String);
   function lerNome:string; 
   function lerIdade:integer;
   function lerEstCivil:String;

public  
  {qualquer unit pode acessar estes metodos...} 
   property Nome:String Read lerNome Write gravaNome;
   property Idade:String Read lerIdade Write gravaIdade;
   property EstadoCivil:String Read lerEstCivil Write gravaIdade;
   
   //método construtor, quando criar a classe já adiciona valores
   Constructor create(xNome:String;xIdade:integer); virtual; 
//virtual é para poder sobrepor este método usando override
End; //fim TPessoa

Implementation


Constructor TPessoa.create(xNome:String;Idade:Integer);
begin
 FNOme:=xNome;
 FIdade:=xIdade;
end;

procedure TPessoa.gravaEstCivil(ec:String);
begin
FEstCivil:=ec;
end;   


function lerEstCivil:String;
begin
 result:=FEstCivil;
end;
.
. {aqui eh so seguir o mesmo caminho com as funções e procedures
restantes}
.
end;


-NA APLICAÇÃO
//inclui a unit na uses
uses uObjPessoa...;

declara a variavel do tipo da classe pessoa
var vPessoa:TPessoa;

//instanciando o Objeto Rogério da Classe Pessoa

vPessoa:=TPessoa.create('Rogério',25); //chutei a idade hehe

//adicionando seu estado civil;
vPessoa.EstadoCivil:='Solteiro'; //note o nome da propriedade

//para ler as propriedades eh o caminho inverso

button1Click(...);
var sNome,sEstCivil:String;
iIdade:Integer;
begin
sNome:=vPessoa.Nome;
sIdade:=vPessoa.Idade;
sEstCivil:=vPessoa.EstCivil;
end;
{obs.: para efetuar tais operações o objeto ja deve estar instanciado
(create) }


é isso hehe

Espero poder ter ajudado...
um abraço...

Bruno Coelho 
ps.:(ainda não consigo enviar anexo no Delphi 2005 c/ indy hehe)
 



--- Em delphi-br@yahoogrupos.com.br, Rogério R. Fernandes
[EMAIL PROTECTED] escreveu
 Caros,
 
 Algo que deve ser muito simples, mas não estou conseguindo.
 
 Tenho uma Unit (só unit, sem form) e desejo declarar
 funções/procedures/variáveis separando em Públicas e Privadas.
 Como posso fazer isto?
 
 Rogério Ricardo Fernandes








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

RES: [delphi-br] Re: Cancel - MessageBox

2005-01-29 Por tôpico Alessandro Fernandes


Pelo que entendi, a colega Erika gostaria que o botão CANCELAR apenas
fechasse o MessageBox voltando a edição do form. O SIM gravaria e sairia do
form de edição e o NÃO não gravaria mas também sairia e do form de edição.
Neste caso faz todo o sentido o botão CANCELAR.
 
_
Alessandro Cunha Fernandes 
SoftTI - Software e Consultoria e TI. 
[EMAIL PROTECTED] 
Fone/Fax: +55 24 2458-4538 
  
VAI IMPRIMIR? Pense antes em sua responsabilidade
com a preservação do meio ambiente e com a redução
de seus custos.  
 

  _  

De: Bruno Augusto [mailto:[EMAIL PROTECTED] 
Enviada em: sexta-feira, 28 de janeiro de 2005 01:42
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Cancel - MessageBox




Acredito que não faça sentido existir o botão cancelar...
pois se vc não insere evento no mesmo o messagebox fecha e nada
acontece...

se vc colocar um evento de cancelamento de edição, ou inserção pode
tb.. mas o mesmo não serviria no botão NÃO?

de todo jeito para pegar qual botão que foi acionado usa dessa forma...


case Application.MessageBox('primeira linha!'+ char(#13) +'Segunda
linha','Titulo da Mensagem',mb_IconInformation+MB_YESNOCANCEL) of
 mrYes: SHowMessage('sim');
 mrNo: ShowMessage('Não');
 mrCancel: ShowMessage('cancelar');
end;


espero poder ter ajudado...

Bruno Coelho



--- Em delphi-br@yahoogrupos.com.br, Erika [EMAIL PROTECTED] escreveu
 
 Pessoal
 
 Eu tenho message box com os tres botões:
 - sim
 - não
 - cancelar
 
 queria fazer o seginte:
 - sim: gravar e sair
 - não: sair sem gravar
 - cancelar: não fazer nada, apenas fechar o message box
 
 O sim e o não estão ok... mas como faço para cancelar?
 
 Obrigado @
 Abraço
 Erika








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]




Yahoo! Grupos, um serviço oferecido por:

 
http://br.rd.yahoo.com/SIG=12a6ebl8l/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1107080519/A=2191897/R=0/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/ 

 
http://br.rd.yahoo.com/SIG=12a6ebl8l/M=264379.5078783.6203979.1588051/D=brc
lubs/S=2137111264:HM/EXP=1107080519/A=2191897/R=1/SIG=10vqa2grn/*http://br.d
iversao.yahoo.com/  
 São Paulo  Rio de Janeiro  Curitiba  Porto Alegre  Belo Horizonte  Brasília


  _  

Links do Yahoo! Grupos


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

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

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




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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Mudar cor do edit dinamicamente

2005-01-29 Por tôpico Catiúscia Barrilli da Cruz


procedure TfrmPrincipal.MudaCor(Sender: TObject);
var MinhaCor, Cor: TColor;
I: integer;
Vermelho, Verde, Azul: byte;
begin
  Vermelho := 255;
  Verde := 255;
  Azul := 234;
  MinhaCor := TColor(RGB(Vermelho, Verde, Azul));
  With Screen.ActiveForm do
 begin
   for I:= 0 to ComponentCount -1 do
  begin
if Components[I] is TCustomEdit then
   begin
 if (Components[I] as TCustomEdit).Focused then
Cor := MinhaCor
 else
Cor := clWhite;

 AtribuiProp(Components[I], 'Color', IntToStr(Cor));
   end;
  end;
 end;
end;
(*Atibui propriedade ao componente, dado seu valor como string
  faz parte da procedure MudaCor*)
procedure TfrmPrincipal.AtribuiProp(Comp: TComponent; Const PropName: string; 
Val: string);
var PInfo: PPropInfo;
begin
  {Pega informações de tipo da propriedade}
  PInfo := GetPropInfo(Comp.ClassInfo, PropName);
  {Achou?}
  if PInfo  nil then
 begin
   {Trata conforme o tipo}
   case PInfo^.Proptype^.Kind of
tkInteger: SetOrdProp(Comp, PInfo, StrToInt(Val));
tkChar, tkWChar: SetOrdProp(Comp, PInfo, ord(Val[1]));
tkEnumeration: SetOrdProp(Comp, PInfo, 
GetEnumValue(PInfo^.PropType^, Val));
tkFloat: SetFloatProp(Comp, PInfo, StrToFloat(Val));
tkString, tkLString, tkWString: SetStrProp(Comp, PInfo, Val);
tkVariant: SetVariantProp(Comp, PInfo, Val);
tkInt64: SetInt64Prop(Comp, PInfo, StrToInt64(Val));
   else
MessageDlg('Este tipo não é suportado por este programa. Erro na 
mudança de ' +
'cor do objeto.', mtError,[mbOK],0);
   end;
 end
  else
 MessageDlg('Propriedade não encontrada.', mtError,[mbOK],0);
end;

  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.2 - Release Date: 28/01/2005


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Arquivos na net

2005-01-29 Por tôpico Andre Luis - Yahoo


Pessoal os Arquivos a que o ArbSis se refere estão disponíveis em:

http://correio.leitbom.com.br:81/arquivos

Qualquer problema peço que me seja reportado pelo e-mail:

[EMAIL PROTECTED]


  --

No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.8.2 - Release Date: 28/01/05


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Duvida Urgente nº reais

2005-01-29 Por tôpico Hudson


Fausto muito obrigado pelo os arquivos.mas vc conhece alguma 
apostila q ensina a trabalhar com este tipo de componente

grato
  - Original Message - 
  From: Evolution 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, January 29, 2005 7:47 AM
  Subject: Re: [delphi-br] Duvida Urgente nº reais


  É só vc mudar a mascara no fields editor, para valore monetários eu utilizo 
  assim ###,##0.00.

  Fausto
  - Original Message - 
  From: Hudson [EMAIL PROTECTED]
  To: delphi-br@yahoogrupos.com.br
  Sent: Saturday, January 29, 2005 12:49 AM
  Subject: [delphi-br] Duvida Urgente nº reais



  Gente
  Tenho uma conexão em ADO com Access 2000, tenho uma duvida sobre os numero 
  reais..

  eles estão da seguite forma (1) ou (1,5) o ,5 quer dizer 50 
  centavos.
  desejo q apareça assim (1,00) ou (1,50)com (R$)

  e no campo unidade apareça 1,000 ou 1,500 assim por diante

  nos edits e DBGrids

  grato pela ajuda

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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

  Links do Yahoo! Grupos










  -- 
  No virus found in this incoming message.
  Checked by AVG Anti-Virus.
  Version: 7.0.300 / Virus Database: 265.8.2 - Release Date: 28/01/2005




  -- 
  No virus found in this outgoing message.
  Checked by AVG Anti-Virus.
  Version: 7.0.300 / Virus Database: 265.8.2 - Release Date: 28/01/2005



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   


--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br]( Rildecy) QReport Codigo de barra

2005-01-29 Por tôpico Hudson

Poxa.ñ conseguir instalar o componente no D6, esta dando um erro (not 
found) esta faldando um arquivo *.dpk para concluir a instalação 
grato!!
  - Original Message - 
  From: Rildecy de Queiroz Borba 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, January 29, 2005 5:03 PM
  Subject: RES: [delphi-br]( Rildecy) QReport Codigo de barra

  Não tenho apostila e também não procurei, mas eu brinquei com as
  propriedades dele e achei  que da pra quebrar um galho.
  Vou scanear a parte do livro que fala das propriedade e envio para vc
  depois.

  -Mensagem original-
  De: Hudson [mailto:[EMAIL PROTECTED] 
  Enviada em: sábado, 29 de janeiro de 2005 14:25
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br]( Rildecy) QReport Codigo de barra

  Rildecy muito obrigado pelo os arquivos.mas vc conhece
  alguma apostila q ensina a trabalhar com este tipo de componente

- Original Message -
From: Rildecy de Queiroz Borba
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, January 29, 2005 6:09 AM
Subject: [delphi-br] QReport Codigo de barra

tive a liberdade de enviar os arquivos diretamente para vc pois nao sei se
  a
lista recebe arquivos anexos.
este componente se chama frebarcode e foi indicação do autor do livro
delphi 6 client /servidor con Firebire / Interbase
Aplicação PDSV e Controle de Estoques
Editora Erica
este livro vem com programas fonte e o exemplo que envio é o de crachas do
proprio autor
de uma estudada nele talvez lhe sirva.
___

Rildecy de Queiroz Borba
Fone: 81-3435.0013
Messenger: [EMAIL PROTECTED]
Skype: [EMAIL PROTECTED]
Paulista - PE 

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

--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

  Yahoo! Grupos, um serviço oferecido por: 

  --
Links do Yahoo! Grupos

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

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

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
  Serviço do Yahoo!. 

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

  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

  Links do Yahoo! Grupos

  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Yahoo! Grupos, um serviço oferecido por: 

São Paulo Rio de Janeiro Curitiba Porto Alegre Belo 
Horizonte Brasília  

--
  Links do Yahoo! Grupos

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

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

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 

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

-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos

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

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

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

[delphi-br] Erro em SQL. When GROUP BY exists, every simple field...

2005-01-29 Por tôpico velhavirgem



Pessoal boa noite, 

Estou tentando executar a SQL abaixo, porém ao executá-la ocorre o
seguinte erro: When GROUP BY exists, every simple field in projector
must be in GROUP BY.

Se eu tirar o GROUP BY tudo funciona normal, porém aparece o mesmo
cadastro mais de uma vez.

A tabela temp_pgto_todo_mundo.DB possui um campo A.ANO, porém todos os
anos alí são diferentes ex.:[1995...2005].

Alguém sabe alguma forma de agrupar isso pelo NOME_ENTIDADE !?

Select * From temp_pgto_todo_mundo.DB A, associados.DB B
Where (A.CODIGO = B.MATRICULA
and Extract(day from B.DATA_CADASTRO) Between '01' and '01'
and Extract(month from B.DATA_CADASTRO) Between '01' and '01'
and Extract(year from B.DATA_CADASTRO) Between '1995' and '1995'
and B.SITUACAO_SINDICAL = '001')
Group by B.CODIGO_GERAL
Order by B.NOME_ENTIDADE

Antecipados agradecimentos,
Rodrigo de Aquino
aquinos.com.br






-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Criar evento em tempo de execucao

2005-01-29 Por tôpico ArbSis


Pessoal estou criando um Form em tempo de execucao desta maneira:
Form:=TForm.Create(Application);
with Form do
   begin
   Left := Sender.Left+Sender.Width;
   Top := Sender.Top;
   AutoScroll := False;
   BorderIcons := [];
   Caption := 'Selecione uma opção';
   ClientHeight := 118;
   ClientWidth := 225;
   Color := clBtnFace;
   Font.Color := clWindowText;
   Font.Height := -11;
   Font.Name := 'MS Sans Serif';
   Font.Style := [];
end;

Ai eu preciso atribuir para o meu Form um evento OnKeyPress, mas dentro 
desse evento onKeyPress eu preciso verificar qual a tecla e fazer 
determinada ação, eu ja tentei de varias formas, mas naum estou conseguindo.




-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Imprimir logotipo em relatórios

2005-01-29 Por tôpico Bruno Rafael Maero


Olá pessoal,
 
Alguem conhece alguma dica ou rotina para impressão da imagem do logotipo em 
relatórios e que possa me ajudar.
 
Obrigado,
 
Bruno Rafael
 

__
Converse com seus amigos em tempo real com o Yahoo! Messenger 
http://br.download.yahoo.com/messenger/ 

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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] Destacar botão

2005-01-29 Por tôpico Erika



Olá pessoal

Eu queria saber como faço para quando o usuário passar o mouse em 
cima do botão ele se destacar dos outros, sabem?

Agradeço a todos, obrigado!





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

RES: [delphi-br]( Rildecy) QReport Codigo de barra

2005-01-29 Por tôpico Rildecy de Queiroz Borba


O que eu te enviei esta completo por via das duvida 
Baixa direto do site dele 
http://mitglied.lycos.de/AJSchmidt/index.html  

-Mensagem original-
De: Hudson [mailto:[EMAIL PROTECTED] 
Enviada em: sábado, 29 de janeiro de 2005 19:19
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br]( Rildecy) QReport Codigo de barra


Poxa.ñ conseguir instalar o componente no D6, esta dando um erro
(not found) esta faldando um arquivo *.dpk para concluir a instalação
grato!!
  - Original Message -
  From: Rildecy de Queiroz Borba
  To: delphi-br@yahoogrupos.com.br
  Sent: Saturday, January 29, 2005 5:03 PM
  Subject: RES: [delphi-br]( Rildecy) QReport Codigo de barra


  Não tenho apostila e também não procurei, mas eu brinquei com as
  propriedades dele e achei  que da pra quebrar um galho.
  Vou scanear a parte do livro que fala das propriedade e envio para vc
  depois.

  -Mensagem original-
  De: Hudson [mailto:[EMAIL PROTECTED]
  Enviada em: sábado, 29 de janeiro de 2005 14:25
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br]( Rildecy) QReport Codigo de barra


  Rildecy muito obrigado pelo os arquivos.mas vc conhece
  alguma apostila q ensina a trabalhar com este tipo de componente

- Original Message -
From: Rildecy de Queiroz Borba
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, January 29, 2005 6:09 AM
Subject: [delphi-br] QReport Codigo de barra



tive a liberdade de enviar os arquivos diretamente para vc pois nao sei
se
  a
lista recebe arquivos anexos.
este componente se chama frebarcode e foi indicação do autor do livro
delphi 6 client /servidor con Firebire / Interbase
Aplicação PDSV e Controle de Estoques
Editora Erica
este livro vem com programas fonte e o exemplo que envio é o de crachas
do
proprio autor
de uma estudada nele talvez lhe sirva.
___

Rildecy de Queiroz Borba
Fone: 81-3435.0013
Messenger: [EMAIL PROTECTED]
Skype: [EMAIL PROTECTED]
Paulista - PE 



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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



  Yahoo! Grupos, um serviço oferecido por: 
   
   

   
 


 

  --
Links do Yahoo! Grupos

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

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

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
  Serviço do Yahoo!. 



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



  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

  Links do Yahoo! Grupos













  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília  
 
   



--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!. 



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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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




 








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

[delphi-br] Imagem

2005-01-29 Por tôpico Andre de Souza Ferreira


?
Pessoal;
 
Alguem sabe como faÃ§o para intercalar 4 imagens no componente imagem? 
 
Um abraÃ§o a todos!


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] DBEdit

2005-01-29 Por tôpico Andre de Souza Ferreira


?
Pessoal;
 
Tenho um grupo de DBEdit's no meu formulÃ¡rio, responsÃ¡veis por cadastrar 
informaÃ§Ãµes numa determinada tabela. Coloquei um botom com o seguinte CÃ³digo:
 
Table1.insert; (O usuÃ¡rio apÃ³s cadastrar todas as informaÃ§Ãµes, clica no 
bottom para efetivar as informaÃ§Ãµes no Banco de dados)
 
PorÃ©m, sÃ³ consigo cadastrar apenas uma vez. Na segunda vez, a informaÃ§Ã£o Ã© 
sobreposta na primeira! Como faÃ§o para consertar isso!?
 
AgradeÃ§o se alguÃ©m puder me ajudar!!!  


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Re: Criar query em run time

2005-01-29 Por tôpico Francisco Thiago Almeida


Pra quê a frescura?
 
Bem, tente imaginar que você escreveu um programa replicador de banco de 
dados... e este programa replica tais informações para três bancos de dados 
diferentes... esse número pode aumentar, ou cair... logo, registrar os 
servidores seria uma opção certo? ae como você faria a conexão? Adicionaria um 
conection para kda banco? Vamos supor que  vc é um kra esperto e monta uma 
thread pra isso... criar os componentes em tempo de execusão seria a única 
alternativa, no meu ponto de vista... enfim.. esse foi apenas um exemplo da 
aplicabilidade de se criar um componente em tempo de execução

--- Em delphi-br@yahoogrupos.com.br, Alan escreveu
 pra que toda essa frecura???
 coloca 2 componentes e deu..se não gosta de usar os recursos do Delphi, 
 programa em C ou Java...lá não tem os componentes prontos pra ti
colar na 
 tela...
 
 meu Deus, cada frescura
 
 
 - Original Message - 
 From: acolombobermudez 
 To: 
 Sent: Thursday, January 27, 2005 2:32 PM
 Subject: [delphi-br] Re: Criar query em run time
 
 
 
 
 blz , mas quando tendo criar em tempo de execucao o database e tento
 abrir a conexao com database.connected:= true ou database.open da a
 seguinte mensagem de erro:
 IBCLientError: Operation cancelled at user's request
 
 Porque será que dá esta mensagem?
 
 --- Em delphi-br@yahoogrupos.com.br, Aline Alves Soares
 escreveu
  De nada...
  O componente database pode ser criado ou não em tempo de execução.
 
 
  Aline Alves Soares
  -
  Programadora
  New Choice Informática LTDA
  (21) 3150-5564 / 3150-5569
  www.newchoice.com.br
 
  - Original Message - 
  From: acolombobermudez
  To: delphi-br@yahoogrupos.com.br
  Sent: Wednesday, January 26, 2005 3:47 PM
  Subject: [delphi-br] Re: Criar query em run time
 
 
 
  Muito obrigado pela dica aline! mas não abusando muito de sua
bondade
  :), este database também tem como ser criado em tempo de execução ou
  nao?
 
  --- Em delphi-br@yahoogrupos.com.br, Aline Alves Soares
  escreveu
  
   var
   Query : TIBQuery;
   begin
   Query := nil;
  
   Query := TIBQuery.Create(Query);
   Query.Database := Database;
   Query.Transaction := Database.DefaultTransaction;
  
   onde Database e um componente do tipo IBDatabase.
  
   []'s Aline
  
   - Original Message - 
   From: acolombobermudez
   To: delphi-br@yahoogrupos.com.br
   Sent: Wednesday, January 26, 2005 9:33 AM
   Subject: [delphi-br] Criar query em run time
  
  
  
   Bom dia a todos ! Alguem sabe como faço para criar uma query
 em tempo
   de execuçao. Estou a utilizar ibquery(paleta interbase).
  
  
  
  
  
   -- 
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
   Para ver as mensagens antigas, acesse:
   http://br.groups.yahoo.com/group/delphi-br/messages
  
   Para falar com o moderador, envie um e-mail para:
   [EMAIL PROTECTED] ou [EMAIL PROTECTED]
  
  
  
   Yahoo! Grupos, um serviço oferecido por:
  
   São Paulo Rio de Janeiro Curitiba Porto Alegre
  Belo Horizonte Brasília
  
  
  
  
  
 

--
   Links do Yahoo! Grupos
  
   a.. Para visitar o site do seu grupo na web, acesse:
   http://br.groups.yahoo.com/group/delphi-br/
  
   b.. Para sair deste grupo, envie um e-mail para:
   [EMAIL PROTECTED]
  
   c.. O uso que você faz do Yahoo! Grupos está sujeito aos
Termos
  do Serviço do Yahoo!.
  
  
  
   [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages
 
  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
 
 
  Yahoo! Grupos, um serviço oferecido por:
 
 
 
 
 
 
 
 

--
  Links do Yahoo! Grupos
 
  a.. Para visitar o site do seu grupo na web, acesse:
  http://br.groups.yahoo.com/group/delphi-br/
 
  b.. Para sair deste grupo, envie um e-mail para:
  [EMAIL PROTECTED]
 
  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
 do Serviço do Yahoo!.
 
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
 
 
 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages
 
 Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
 Links do Yahoo! Grupos





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos










---
Francisco Thiago de Almeida 
MRL Consultoria em Informática
Divisão Desenvolvimento e

Re: [delphi-br] Destacar botão

2005-01-29 Por tôpico Cleber


No evento mouse move execute algo do tipo mudar a cor ou alterar a borda.
- Original Message -
From: Erika [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, January 29, 2005 8:51 PM
Subject: [delphi-br] Destacar botão




Olá pessoal

Eu queria saber como faço para quando o usuário passar o mouse em
cima do botão ele se destacar dos outros, sabem?

Agradeço a todos, obrigado!





--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos












-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Arquitetura 3 Camadas para SQL-SERVER 2000 / ADO

2005-01-29 Por tôpico Bruno Lichot - Micrologos


Vou dizer de carteirinha...use ADO para SQL Server e naum
DBExpressDBExpress e excelente...mas para SQL Server ADO é melhor...

[]´s
Bruno Lichot
Gerente de Novas Tecnologias - Micrologos
Equipe ClubeDelphi.NET
DevMedia Group

www.micrologos.com.br - www.clubedelphi.net -
www.delphirio.assespro-rj.org.br
www.sqlmagazine.com.br - www.neoficio.com.br/msdn - www.javamagazine.com.br
www.portalwebmobile.com.br - www.heobott.com

- Original Message - 
From: Francisco Thiago de Almeida [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, January 28, 2005 6:20 PM
Subject: Re: [delphi-br] Arquitetura 3 Camadas para SQL-SERVER 2000 / ADO



 Neste ponto eu descordo de você

 Eu sou fã do DBXpress.. sempre uso ele.. Mas se fosse para programar para
o
 SQLServer, eu abriria mão dele pelo ADO. Porquê.. Confesso que ainda não
 trabalhei com ADO e não sei como ele funciona direito, mas acredito que
por
 ser uma tecnologia da Microsoft (me corrijam se eu estiver errado) fará
 melhor uso do SQLServer, da tecnologia do banco, velocidade e etc...

 Boa sorte na jornada


 Thiago


 - Original Message - 
 From: Alexandre Oliveira [EMAIL PROTECTED]
 To: delphi-br@yahoogrupos.com.br
 Sent: Friday, January 28, 2005 7:15 PM
 Subject: RES: [delphi-br] Arquitetura 3 Camadas para SQL-SERVER 2000 / ADO



 Olá,

 Use o DBExpress mesmo. Eu só trocaria a SQLQuery por SQLDataSet. Se o seu
 delphi for 7 e você não tiver feito update nele vai ter que atualizar o
 driver dbexpress pra sql, mas é tranquilo. No site da borland tem.


 []'s

 Alexandre Oliveira Campioni
 Analista de Sistemas
 A-Tecnologia e Sistemas de Informacao Ltda.
 Sao Joaquim da Barra - Sao Paulo - Brazil
 [EMAIL PROTECTED]

 -Mensagem original-
 De: Rogério [mailto:[EMAIL PROTECTED]
 Enviada em: sexta-feira, 28 de janeiro de 2005 14:34
 Para: delphi-br@yahoogrupos.com.br
 Cc: Bruno Lichot - ClubeDelphi.NET
 Assunto: [delphi-br] Arquitetura 3 Camadas para SQL-SERVER 2000 / ADO


 Pessoal como seria o ideal para desenvolver em 3 Camadas para SQL-Server
 utilizando ADO ???!!

 Por Favor vejam se estou Certo em meu raciocínio !!!

 ADOConnection   ADOQuery  DataSetProvider --- ADODataSet !!!

 É Isto Mesmo ???

 Tomei por Base o que ví na revista ClubeDelphi Número 46 Onde com
Interbase
 ficaria:

 SQLConnection   SQLQuery  DataSetProvider --- ClientDataSet !!!

 [ ]'s

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



 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos













 -- 
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

 Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]

 Links do Yahoo! Grupos













-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] centralizando uma pagina com intraweb.

2005-01-29 Por tôpico Bruno Lichot - Micrologos


naum entendih o q vc quer?

[]´s
Bruno Lichot
Gerente de Novas Tecnologias - Micrologos
Equipe ClubeDelphi.NET
DevMedia Group

www.micrologos.com.br - www.clubedelphi.net -
www.delphirio.assespro-rj.org.br
www.sqlmagazine.com.br - www.neoficio.com.br/msdn - www.javamagazine.com.br
www.portalwebmobile.com.br - www.heobott.com

- Original Message - 
From: Marcelo Moacir Florindo [EMAIL PROTECTED]
To: delphi-br delphi-br@yahoogrupos.com.br
Sent: Friday, January 28, 2005 11:56 PM
Subject: [delphi-br] centralizando uma pagina com intraweb.



Ola colegas,


Alguém conseguiu centralizar os componentes do delphi em uma página via
intraweb???


abraços a todos

Marcelo


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



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos












-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br] Re: Dúvida dbExpress

2005-01-29 Por tôpico Bruno Lichot - Micrologos


Galera

Arquitetura ideal do DBExpress:
SQLCOnnectio + SQLDataSet + DataSetProvider + ClientDataSet

Onde usar:
sistemas Client/Server, MultiCamadas(DataSanp) e Web(IntraWeb, WebBroker e
WebServices).

Quias bancos recomendados(Garantia de Funcionamento ideal)
MySQL, PostGree, InterBase, FireBird e Oracle(ParaEste existe uma middleware
mais rapida e eficiente, apesar de DBExpress funcionar bem)

Banco naum Reomendado:
SQL Server(Alguem se espantou...é claro q ele so funciona direito com
ADO...)

[]´s
Bruno Lichot
Gerente de Novas Tecnologias - Micrologos
Equipe ClubeDelphi.NET
DevMedia Group

www.micrologos.com.br - www.clubedelphi.net -
www.delphirio.assespro-rj.org.br
www.sqlmagazine.com.br - www.neoficio.com.br/msdn - www.javamagazine.com.br
www.portalwebmobile.com.br - www.heobott.com

- Original Message - 
From: omarcosmhs [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Friday, January 28, 2005 3:08 PM
Subject: [delphi-br] Re: Dúvida dbExpress





Ola Rogério, olha até onde sei o dbExpress é ideal para banco
Interbase e Firebird, porém não consigo usa-los com Cliente/Servidor,
sem ter que colocar um DataSetProvider, e um ClientDataSet entre o
SQLTable eo DatSource, por isso ele é muito utilizado para sistemas
com MIDAS (DataSnape), para os projetos que não utilizam essa
tecnologia o mais indicado é a aba Interbase.

Att
Marcos H. Silva


--- Em delphi-br@yahoogrupos.com.br, Rogério [EMAIL PROTECTED]
escreveu
 Dúvida ...
 Conforme ví na revista Clubedelphi
 Os componentes dbExpress são ideais basicamente para trabalhar com
Interbase ???
 [ ]'s

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








-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos












-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

[delphi-br] splash

2005-01-29 Por tôpico Erika



Alguém poderia me dizer como faço a tela splash??
Obrigado a todos!!!





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

Re: [delphi-br]( Rildecy) QReport Codigo de barra

2005-01-29 Por tôpico Hudson


Cara estou achando q meu d6 esta com paupq ñ consigo instalarmesmo 
seguindo os passos..esta dando erro no arq .Dpk
  - Original Message - 
  From: Rildecy de Queiroz Borba 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Saturday, January 29, 2005 8:05 PM
  Subject: RES: [delphi-br]( Rildecy) QReport Codigo de barra


  O que eu te enviei esta completo por via das duvida 
  Baixa direto do site dele 
  http://mitglied.lycos.de/AJSchmidt/index.html  

  -Mensagem original-
  De: Hudson [mailto:[EMAIL PROTECTED] 
  Enviada em: sábado, 29 de janeiro de 2005 19:19
  Para: delphi-br@yahoogrupos.com.br
  Assunto: Re: [delphi-br]( Rildecy) QReport Codigo de barra


  Poxa.ñ conseguir instalar o componente no D6, esta dando um erro
  (not found) esta faldando um arquivo *.dpk para concluir a instalação
  grato!!
- Original Message -
From: Rildecy de Queiroz Borba
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, January 29, 2005 5:03 PM
Subject: RES: [delphi-br]( Rildecy) QReport Codigo de barra


Não tenho apostila e também não procurei, mas eu brinquei com as
propriedades dele e achei  que da pra quebrar um galho.
Vou scanear a parte do livro que fala das propriedade e envio para vc
depois.

-Mensagem original-
De: Hudson [mailto:[EMAIL PROTECTED]
Enviada em: sábado, 29 de janeiro de 2005 14:25
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br]( Rildecy) QReport Codigo de barra


Rildecy muito obrigado pelo os arquivos.mas vc conhece
alguma apostila q ensina a trabalhar com este tipo de componente

  - Original Message -
  From: Rildecy de Queiroz Borba
  To: delphi-br@yahoogrupos.com.br
  Sent: Saturday, January 29, 2005 6:09 AM
  Subject: [delphi-br] QReport Codigo de barra



  tive a liberdade de enviar os arquivos diretamente para vc pois nao sei
  se
a
  lista recebe arquivos anexos.
  este componente se chama frebarcode e foi indicação do autor do livro
  delphi 6 client /servidor con Firebire / Interbase
  Aplicação PDSV e Controle de Estoques
  Editora Erica
  este livro vem com programas fonte e o exemplo que envio é o de crachas
  do
  proprio autor
  de uma estudada nele talvez lhe sirva.
  ___

  Rildecy de Queiroz Borba
  Fone: 81-3435.0013
  Messenger: [EMAIL PROTECTED]
  Skype: [EMAIL PROTECTED]
  Paulista - PE 



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



  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 
 
 
  
 
   



  
--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!. 



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



--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]

Links do Yahoo! Grupos













-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]



  Yahoo! Grupos, um serviço oferecido por: 
   
  São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
  Horizonte Brasília  
   
 


  
  --
Links do Yahoo! Grupos

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

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

  c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
  Serviço do Yahoo!. 



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



  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

  Para

[delphi-br] Inserir Imagem

2005-01-29 Por tôpico Erika



Oi gente..

Eu tenho um cadastro em que eu gostaria de colocar a foto da pessoa.
Sou novata no Delphi e queria ajuda para fazer isso!

Por onde começo??? Como eu faço para procurar e carregar a imagem 
no form?

Agradeço se alguém me ajudar!

Obrigado!





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

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

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

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

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

43 matches

Mail list logo