[delphi-br] (unknown)

2009-07-10 Por tôpico Wilson, Stephen
Alguem pode me ajudar com este problema, por favor?  Quero destacar os itens em 
uma TListbox quando o mouse passa sob ele, como na lista suspensa de um 
TCombobox. Como posso conseguir isso eu mesmo, ou alguem sabe de um componente 
de terceiros que poderia usar?
Uso Delphi 5

Obrigado por qualquer ajuda

Steve


***
This e-mail and any files transmitted with it are confidential. If you are not 
the intended recipient, any reading, printing, storage, disclosure, copying or 
any other action taken in respect of this e-mail is prohibited and may be 
unlawful. If you are not the intended recipient, please notify the sender 
immediately by using the reply function and then permanently delete what you 
have received.
Content of emails received by this Trust will be subject to disclosure under 
the Freedom of Information Act 2000, subject to the specified exemptions, 
including the Data Protection Act 1998 and Caldicott Guardian principles.
This footnote also confirms that, unless otherwise stated, this email message 
has been swept by Sophos Anti-virus for the presence of computer viruses.
***



[delphi-br] MatLab e Delphi

2009-07-10 Por tôpico rodrigoojapa
Boa noite pessoal,


Tenho uma rotina em MatLab, mas como faço para essa rotina rodar no delphi sem 
precisar do matlab



RES: [delphi-br] Abrir o Comprovante Não Fiscal Vinc ulado. ELGIN FIT 1E

2009-07-10 Por tôpico Dimas Bolognani
Bom dia

 

Você passou os parâmetros corretos e logicamente você tem que tem  FORMA DE
PAGTO cadastrada na impressora.

Ou vai retornar a mensagem de erro Meio de pagto invalido.

 

cFormaPgto := 'Cartao VISA'; 
cValor := '100,00'; 
iResultado := Elgin_AbreComprovanteNaoFiscalVinculado( pchar ( cFormaPgto ),
pchar(cValor ), pchar( '' ) );

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de julianoinfo
Enviada em: quinta-feira, 9 de julho de 2009 15:46
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Abrir o Comprovante Não Fiscal Vinculado. ELGIN FIT 1E

 






Boa tarde senhores
Tenho 3 clientes que tem a ELGIN FIT 1E
e não consigo nem pela DLL nem pelo ACBr Abrir o Comprovante Não Fiscal
Vinculado.
ele me retorna o seguinte erro Índice do Meio de Pagamento no cupom
inválido.

algum colega já passou por isso ou faz idéia de como resolver esse problema

Grato pela Atenção
Juliano Pereira dos Santos



Verificado por AVG - www.avgbrasil.com.br
Versão: 8.5.375 / Banco de dados de vírus: 270.13.9/2229 - Data de
Lançamento: 07/10/09 07:05:00



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



[delphi-br] Comunicação serial

2009-07-10 Por tôpico Sandro
Bom dia,

Alguém do grupo já desenvolveu alguma rotina para se comunicar com equipamentos 
de laboratório Roche através de portas COM?
Estou precisando desenvolver a comunicação com esses equipamentos.

Grato,

Sandro

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



Re: [delphi-br] Comunicação serial

2009-07-10 Por tôpico Diogo de Oliveira Cunha
Sandro, bom dia.

Com relação a comunicação serial, já trabalhei com o componente TComPort.
Você consegue baixá-lo de graça na net.

Com relação a comunicação com o equipamento, você deve conhecer o protocolo
do próprio equipamento, que deve vir com o manual. Normalmente a comunicação
serial funciona como camada física de transmissão de dados. Já a
interpretação dos caracteres recebidos pela porta serial, só o manual pode
te dizer.

Qualquer dúvida fique a vontade para perguntar.

Abraços

2009/7/10 Sandro sandrona...@yahoo.com.br



 Bom dia,

 Alguém do grupo já desenvolveu alguma rotina para se comunicar com
 equipamentos de laboratório Roche através de portas COM?
 Estou precisando desenvolver a comunicação com esses equipamentos.

 Grato,

 Sandro

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

  




-- 
Não te esqueças de que o arado, dilacerando o solo, acaba igualmente
desmantelado e ferido, entretanto, desse choque de forças surge o pão que te
supre a mesa.


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



Re: [delphi-br] Comunicação serial

2009-07-10 Por tôpico Sandro
Diogo,
Você já fez a comunicação usando o protocolo ASTM?


  - Original Message - 
  From: Diogo de Oliveira Cunha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 10, 2009 10:38 AM
  Subject: Re: [delphi-br] Comunicação serial





  Sandro, bom dia.

  Com relação a comunicação serial, já trabalhei com o componente TComPort.
  Você consegue baixá-lo de graça na net.

  Com relação a comunicação com o equipamento, você deve conhecer o protocolo
  do próprio equipamento, que deve vir com o manual. Normalmente a comunicação
  serial funciona como camada física de transmissão de dados. Já a
  interpretação dos caracteres recebidos pela porta serial, só o manual pode
  te dizer.

  Qualquer dúvida fique a vontade para perguntar.

  Abraços

  2009/7/10 Sandro sandrona...@yahoo.com.br

  
  
   Bom dia,
  
   Alguém do grupo já desenvolveu alguma rotina para se comunicar com
   equipamentos de laboratório Roche através de portas COM?
   Estou precisando desenvolver a comunicação com esses equipamentos.
  
   Grato,
  
   Sandro
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  -- 
  Não te esqueças de que o arado, dilacerando o solo, acaba igualmente
  desmantelado e ferido, entretanto, desse choque de forças surge o pão que te
  supre a mesa.

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



  

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



RES: [delphi-br] [DICA] Meus Exemplos

2009-07-10 Por tôpico Rubem Rocha
Ele foi feito em Delphi 7, mas não disponibilizei os fontes. Trata-se de um
pequeno executável utilizando uma unit por mim desenvolvida que faz parte de
uma DLL capaz de ler portas de I/O sem necessidade de driver WDM. Não
disponibilizei o fonte porque a unit é o núcleo da minha DLL, chamada
RnLowLevel e que tem uma versão de avaliação no site
http://www.iprogramas.com.br.

 

Sds.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de EmbarcaDelphi
Enviada em: quinta-feira, 9 de julho de 2009 21:40
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] [DICA] Meus Exemplos

 

Ow Rubem, o utilitário ClearSetupPassword você disponibilizou os 
fontes para ser usado em qual versão do Delphi?

blz

Rubem Nascimento da Rocha escreveu:



 Acredito que não seja do conhecimento de todos, mas eu tb coloco 
 colaborações nas áreas de arquivos da lista de discussão. Espero q 
 elas possam um dia serem úteis a vocês.

 Na área de arquivos da lista delphi-br, postei os seguintes exemplos:

 TimerMsgBox.zip
 Exemplo de MessageBox com timer, ilustrando outras técnicas 
 interessantes de programação em Delphi

 Sample.zip
 Exemplo de função que procura qual o controle usado para editar um 
 campo de um dataset. O exemplo também mostra como ajustar o foco para 
 o controle encontrado.

 Entrada de Dados Sem Letras Acentuadas.zip
 Exemplo estúpidamente simples de como evitar digitação de caracteres 
 acentuados ao utilizar controles data-aware.

 ClearSetupPassword.zip
 Utilitário escrito em Delphi 7 para limpar a senha do Setup do 
 computador. Este utilitário roda somente em ambientes NT 
 (NT/2000/XP/2003/etc). Bom proveito.

 Na pasta Exemplos da área de arquivos da lista delphi-br, postei os 
 seguintes exemplos:

 Cronometro e DBGrid.rar
 Exemplo de como mostrar uma coluna de cronômetro em um dataset e este 
 ser visualizado em um DBGrid e atualizado via TTimer.

 DBGrid e ProgressBar.rar
 Exemplo de como implementar o efeito de uma barra de progresso em um 
 DBGrid sem a necessidade de usar o componente TProgressBar.

 Sds.,

 Rubem Rocha

 Manaus, AM


 





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



[delphi-br] Mudando de Delphi 7 para Delphi 2007

2009-07-10 Por tôpico Wise Softwares
PessoALL,

eu tenho um programa que desenvolvi todo utilizando o Delphi 7 e resolvi
passá-lo para o Delphi 2007. Até tudo bem.
O que está acontecendo é que os botões e edits cotinuam com o formato
antigo. Quando se inicia um projeto no Delphi 2007
os botões tem um formato mais bonitinho. Eu já recompilei tudo, mas não
muda. Inclusive se de dentro do Delphi 2007 eu adicionar um novo botão,
ele fica no desgin antigo.
Se alguém souber como resolver isso eu agradeço.

Obrigado,

Att, Guio

Wise Softwares
E-mail: guilhe...@wisesoftwares.com.br



Re: [delphi-br] Comunicação serial

2009-07-10 Por tôpico Diogo de Oliveira Cunha
Sandro, com ASTM especificamente ainda não.

Dando uma googleada na net achei esse site  http://www.astm.org .Você já
tinha visto?

Parece que existe um padrão de número 1381/1294, que é o que rege as
comunicações de equipamentos laboratoriais. . .

Procurando documentação sobre isso você deve encontrar alguma coisa. Agora
acho que você vai ter que escovar uns bits pra interpretar o protocolo, caso
não encontre uma biblioteca ou componente pronto que faça isso. Procure no
sourceforge, talvez exista alguém que tenha implementado alguma coisa . . .

Abraço

2009/7/10 Sandro sandrona...@yahoo.com.br



 Diogo,
 Você já fez a comunicação usando o protocolo ASTM?


 - Original Message -
 From: Diogo de Oliveira Cunha
 To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 Sent: Friday, July 10, 2009 10:38 AM
 Subject: Re: [delphi-br] Comunicação serial

 Sandro, bom dia.

 Com relação a comunicação serial, já trabalhei com o componente TComPort.
 Você consegue baixá-lo de graça na net.

 Com relação a comunicação com o equipamento, você deve conhecer o protocolo
 do próprio equipamento, que deve vir com o manual. Normalmente a
 comunicação
 serial funciona como camada física de transmissão de dados. Já a
 interpretação dos caracteres recebidos pela porta serial, só o manual pode
 te dizer.

 Qualquer dúvida fique a vontade para perguntar.

 Abraços

 2009/7/10 Sandro sandrona...@yahoo.com.br sandronaweb%40yahoo.com.br

 
 
  Bom dia,
 
  Alguém do grupo já desenvolveu alguma rotina para se comunicar com
  equipamentos de laboratório Roche através de portas COM?
  Estou precisando desenvolver a comunicação com esses equipamentos.
 
  Grato,
 
  Sandro
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 

 --
 Não te esqueças de que o arado, dilacerando o solo, acaba igualmente
 desmantelado e ferido, entretanto, desse choque de forças surge o pão que
 te
 supre a mesa.

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

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

  




-- 
Não te esqueças de que o arado, dilacerando o solo, acaba igualmente
desmantelado e ferido, entretanto, desse choque de forças surge o pão que te
supre a mesa.


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



[delphi-br] RE:Listbox itens (foi Unknown)

2009-07-10 Por tôpico Wilson, Stephen
Bom dia a todos

Caso alguem estiver interessado, consegui resolver o meu problema .  Isto 
funciona, mas nao e muito elegante:


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: 
TRect; State: TOwnerDrawState);
begin
with Listbox1.Canvas do
 begin
  Brush.Color:= clWhite;
  FillRect(Rect);
  Font.Color:= clBlack;
  TextOut(Rect.Left+1,Rect.Top+1,ListBox1.Items[Index]);
 end;
end;

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: 
Integer);
var p: TPoint;   i,j: integer;
begin
p.x:= X; p.y:= Y;
i:= ListBox1.ItemAtPos(p,False);
if (i  -1) then
 begin
  for j:= 0 to Listbox1.Items.count-1 do
   begin
 if j  i then
  with Listbox1.Canvas do
  begin
   Brush.Color := clWhite;
   FillRect(Listbox1.ItemRect(j));
   Font.Color:= clBlack;
  end
 else with Listbox1.Canvas do
  begin
   Brush.Color := clActiveCaption;
   FillRect(Listbox1.ItemRect(j));
   Font.Color:= clWhite;
  end;
Listbox1.Canvas.TextOut(Listbox1.ItemRect(j).Left + 
1,Listbox1.ItemRect(j).Top+1,ListBox1.Items[j]);
   end;
 end;
end;


 Deve existir uma melhor maneira de realizar a mesma coisa, nao eh?
Nao sei muito sobre o Windows SDK - eh uma de minhas grandes faltas

muitas felicidades

Steve

-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Wilson, Stephen
Sent: 10 July 2009 11:27
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] (unknown)


Alguem pode me ajudar com este problema, por favor?  Quero destacar os itens em 
uma TListbox quando o mouse passa sob ele, como na lista suspensa de um 
TCombobox. Como posso conseguir isso eu mesmo, ou alguem sabe de um componente 
de terceiros que poderia usar?
Uso Delphi 5

Obrigado por qualquer ajuda

Steve



***
This e-mail and any files transmitted with it are confidential. If you are not 
the intended recipient, any reading, printing, storage, disclosure, copying or 
any other action taken in respect of this e-mail is prohibited and may be 
unlawful. If you are not the intended recipient, please notify the sender 
immediately by using the reply function and then permanently delete what you 
have received.
Content of emails received by this Trust will be subject to disclosure under 
the Freedom of Information Act 2000, subject to the specified exemptions, 
including the Data Protection Act 1998 and Caldicott Guardian principles.
This footnote also confirms that, unless otherwise stated, this email message 
has been swept by Sophos Anti-virus for the presence of computer viruses.
***



Re: [delphi-br] RE:Listbox itens (foi Unknown)

2009-07-10 Por tôpico Moacir - GMail
Wilson,

Dei uma googlada e achei este codigo, veja se satisfaz tuas necessidades:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
   ListBox1.Canvas.FillRect(Rect);
   if ListBox1.Items.Strings[index] = Edit1.Text then
  ListBox1.Canvas.Font.Color := clRed;
   
ListBox1.Canvas.TextOut(Rect.TopLeft.x,Rect.TopLeft.y,ListBox1.Items.Strings[index]);
end;

depois no OnClick do botão coloque este código:
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Repaint;
end;

Sucesso !!

Moacir


Wilson, Stephen escreveu:
 Bom dia a todos

 Caso alguem estiver interessado, consegui resolver o meu problema .  Isto 
 funciona, mas nao e muito elegante:


 procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: 
 TRect; State: TOwnerDrawState);
 begin
 with Listbox1.Canvas do
  begin
   Brush.Color:= clWhite;
   FillRect(Rect);
   Font.Color:= clBlack;
   TextOut(Rect.Left+1,Rect.Top+1,ListBox1.Items[Index]);
  end;
 end;

 procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: 
 Integer);
 var p: TPoint;   i,j: integer;
 begin
 p.x:= X; p.y:= Y;
 i:= ListBox1.ItemAtPos(p,False);
 if (i  -1) then
  begin
   for j:= 0 to Listbox1.Items.count-1 do
begin
  if j  i then
   with Listbox1.Canvas do
   begin
Brush.Color := clWhite;
FillRect(Listbox1.ItemRect(j));
Font.Color:= clBlack;
   end
  else with Listbox1.Canvas do
   begin
Brush.Color := clActiveCaption;
FillRect(Listbox1.ItemRect(j));
Font.Color:= clWhite;
   end;
 Listbox1.Canvas.TextOut(Listbox1.ItemRect(j).Left + 
 1,Listbox1.ItemRect(j).Top+1,ListBox1.Items[j]);
end;
  end;
 end;


  Deve existir uma melhor maneira de realizar a mesma coisa, nao eh?
 Nao sei muito sobre o Windows SDK - eh uma de minhas grandes faltas

 muitas felicidades


   


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



Re: [delphi-br] Comunicação serial

2009-07-10 Por tôpico Sandro
Valeu Diogo,
Abraço

  - Original Message - 
  From: Diogo de Oliveira Cunha 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, July 10, 2009 11:54 AM
  Subject: Re: [delphi-br] Comunicação serial





  Sandro, com ASTM especificamente ainda não.

  Dando uma googleada na net achei esse site http://www.astm.org .Você já
  tinha visto?

  Parece que existe um padrão de número 1381/1294, que é o que rege as
  comunicações de equipamentos laboratoriais. . .

  Procurando documentação sobre isso você deve encontrar alguma coisa. Agora
  acho que você vai ter que escovar uns bits pra interpretar o protocolo, caso
  não encontre uma biblioteca ou componente pronto que faça isso. Procure no
  sourceforge, talvez exista alguém que tenha implementado alguma coisa . . .

  Abraço

  2009/7/10 Sandro sandrona...@yahoo.com.br

  
  
   Diogo,
   Você já fez a comunicação usando o protocolo ASTM?
  
  
   - Original Message -
   From: Diogo de Oliveira Cunha
   To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
   Sent: Friday, July 10, 2009 10:38 AM
   Subject: Re: [delphi-br] Comunicação serial
  
   Sandro, bom dia.
  
   Com relação a comunicação serial, já trabalhei com o componente TComPort.
   Você consegue baixá-lo de graça na net.
  
   Com relação a comunicação com o equipamento, você deve conhecer o protocolo
   do próprio equipamento, que deve vir com o manual. Normalmente a
   comunicação
   serial funciona como camada física de transmissão de dados. Já a
   interpretação dos caracteres recebidos pela porta serial, só o manual pode
   te dizer.
  
   Qualquer dúvida fique a vontade para perguntar.
  
   Abraços
  
   2009/7/10 Sandro sandrona...@yahoo.com.br sandronaweb%40yahoo.com.br
  
   
   
Bom dia,
   
Alguém do grupo já desenvolveu alguma rotina para se comunicar com
equipamentos de laboratório Roche através de portas COM?
Estou precisando desenvolver a comunicação com esses equipamentos.
   
Grato,
   
Sandro
   
[As partes desta mensagem que não continham texto foram removidas]
   
   
   
  
   --
   Não te esqueças de que o arado, dilacerando o solo, acaba igualmente
   desmantelado e ferido, entretanto, desse choque de forças surge o pão que
   te
   supre a mesa.
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  -- 
  Não te esqueças de que o arado, dilacerando o solo, acaba igualmente
  desmantelado e ferido, entretanto, desse choque de forças surge o pão que te
  supre a mesa.

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



  

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



RE: [delphi-br] RE:Listbox itens (foi Unknown)

2009-07-10 Por tôpico Wilson, Stephen
Ola Moacir

Estou grato pela sua ajuda e que voce esforcou-se no meu interesse.  Muito 
obrigado.

Cordialmente

Steve

-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Moacir - GMail
Sent: 10 July 2009 17:03
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] RE:Listbox itens (foi Unknown)


Wilson,

Dei uma googlada e achei este codigo, veja se satisfaz tuas necessidades:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
   ListBox1.Canvas.FillRect(Rect);
   if ListBox1.Items.Strings[index] = Edit1.Text then
  ListBox1.Canvas.Font.Color := clRed;
   
ListBox1.Canvas.TextOut(Rect.TopLeft.x,Rect.TopLeft.y,ListBox1.Items.Strings[index]);
end;

depois no OnClick do botão coloque este código:
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Repaint;
end;

Sucesso !!

Moacir


Wilson, Stephen escreveu:
 Bom dia a todos

 Caso alguem estiver interessado, consegui resolver o meu problema .  Isto 
 funciona, mas nao e muito elegante:


 procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: 
 TRect; State: TOwnerDrawState);
 begin
 with Listbox1.Canvas do
  begin
   Brush.Color:= clWhite;
   FillRect(Rect);
   Font.Color:= clBlack;
   TextOut(Rect.Left+1,Rect.Top+1,ListBox1.Items[Index]);
  end;
 end;

 procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: 
 Integer);
 var p: TPoint;   i,j: integer;
 begin
 p.x:= X; p.y:= Y;
 i:= ListBox1.ItemAtPos(p,False);
 if (i  -1) then
  begin
   for j:= 0 to Listbox1.Items.count-1 do
begin
  if j  i then
   with Listbox1.Canvas do
   begin
Brush.Color := clWhite;
FillRect(Listbox1.ItemRect(j));
Font.Color:= clBlack;
   end
  else with Listbox1.Canvas do
   begin
Brush.Color := clActiveCaption;
FillRect(Listbox1.ItemRect(j));
Font.Color:= clWhite;
   end;
 Listbox1.Canvas.TextOut(Listbox1.ItemRect(j).Left + 
 1,Listbox1.ItemRect(j).Top+1,ListBox1.Items[j]);
end;
  end;
 end;


  Deve existir uma melhor maneira de realizar a mesma coisa, nao eh?
 Nao sei muito sobre o Windows SDK - eh uma de minhas grandes faltas

 muitas felicidades


   


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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





***
This e-mail and any files transmitted with it are confidential. If you are not 
the intended recipient, any reading, printing, storage, disclosure, copying or 
any other action taken in respect of this e-mail is prohibited and may be 
unlawful. If you are not the intended recipient, please notify the sender 
immediately by using the reply function and then permanently delete what you 
have received.
Content of emails received by this Trust will be subject to disclosure under 
the Freedom of Information Act 2000, subject to the specified exemptions, 
including the Data Protection Act 1998 and Caldicott Guardian principles.
This footnote also confirms that, unless otherwise stated, this email message 
has been swept by Sophos Anti-virus for the presence of computer viruses.
***



Re: [delphi-br] Mudando de Delphi 7 para Delphi 2007

2009-07-10 Por tôpico Marlon David de Souza
Edite o projeto e, nas opções do projeto, habilite a opção Enable 
Runtime Themes.

Sem mais,

Marlon David de Souza
Desenvolvimento
Sysmo Informática Ltda



Wise Softwares escreveu:
 PessoALL,

 eu tenho um programa que desenvolvi todo utilizando o Delphi 7 e resolvi
 passá-lo para o Delphi 2007. Até tudo bem.
 O que está acontecendo é que os botões e edits cotinuam com o formato
 antigo. Quando se inicia um projeto no Delphi 2007
 os botões tem um formato mais bonitinho. Eu já recompilei tudo, mas não
 muda. Inclusive se de dentro do Delphi 2007 eu adicionar um novo botão,
 ele fica no desgin antigo.
 Se alguém souber como resolver isso eu agradeço.

 Obrigado,

 Att, Guio

 Wise Softwares
 E-mail: guilhe...@wisesoftwares.com.br



 

   


[delphi-br] Pesquisa

2009-07-10 Por tôpico Thiago gmail
Tenho uma rotina padronizada que passo como parametro a tabela e o campo de 
retorno e ele retorna o valor do registro selecionado. Agora preciso fazer que 
esta rotina possa retornar o valor de mais de um campo.

por exemplo

var VarRetorno1, VarRetorno2 : variant;
begin
   Pesquisa(Tabelax, [CampoRetorno1, CampoRetorno2], [VarRetorno1, VarRetorno2])
end;

sendo que VarRetorno são as variáveis que vão receber os valores do registro 
selecionado


Alguem pode me dar uma luz de como fazer?

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



Re: [delphi-br] Pesquisa

2009-07-10 Por tôpico JB
basta jogar os campos e retorno para um array

Campos: array of Variant;
Retorno: array of Variant;

SetLength(Campos,2);
SetLength(Retorno,2);

Campos[0] := 'MEU_CAMPO1';
Campos[1] := 'MEU_CAMPO2';

dentro da procedure Pesquisa faça:

procedure Pesquisa(meuDataset: Tdataset; Campos: array of Variant; var
Retorno: array of Variant;)
...
for i := 0 to Length(Campos) - 1 do
Retorno[i] := MeuDataSetPesquisa.FieldByName(Campos[i]).Value;
...

chamando assim:

Pesquisa(MeuDataSetPesquisa, Campos, Retorno)


Att.
JB

2009/7/10 Thiago gmail thiago.racha...@gmail.com:


 Tenho uma rotina padronizada que passo como parametro a tabela e o campo de
 retorno e ele retorna o valor do registro selecionado. Agora preciso fazer
 que esta rotina possa retornar o valor de mais de um campo.

 por exemplo

 var VarRetorno1, VarRetorno2 : variant;
 begin
 Pesquisa(Tabelax, [CampoRetorno1, CampoRetorno2], [VarRetorno1,
 VarRetorno2])
 end;

 sendo que VarRetorno são as variáveis que vão receber os valores do registro
 selecionado

 Alguem pode me dar uma luz de como fazer?

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

 



-- 

José Benedito
Software Developer
skype:jb.sologix


[delphi-br] Dll do Sintegra

2009-07-10 Por tôpico Berdam


 Galera, esou iniciando a implementação de sintegra no nosso aplicativo e 
gostaria de saber o seguine do pessoal que tem mais experiência no assunto.
Essa dll é free?? Se é free, onde eu encontro ?? Até encontrei, mas ela possui 
umas msg dizendo 

---
Demo_sintegra32dll
---
SIntegra32Dll.dll NÃO REGISTRADA... 
Adiquira agora mesmo a sua versão REGISTRADA!
---
OK   
---

Alguém tem conhecimento dessa parte, se iver e ajudar eu agradeço ???


Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe

http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0



  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



[delphi-br] OFF: Edições Eletrônicas da Revista Active Delphi

2009-07-10 Por tôpico Robson
Finalmente lançaram:
http://www.activedelphi.com.br/imagens/publicidade/edicoes_eletronicas.htm

Abraços,
Robson Souza

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



Re: [delphi-br] Dll do Sintegra

2009-07-10 Por tôpico Bollasette
Não é free.

- Original Message - 
From: Berdam berdamzi...@yahoo.com.br
To: Delphi delphi-br@yahoogrupos.com.br
Sent: Friday, July 10, 2009 3:05 PM
Subject: [delphi-br] Dll do Sintegra




 Galera, esou iniciando a implementação de sintegra no nosso aplicativo e 
gostaria de saber o seguine do pessoal que tem mais experiência no assunto.
Essa dll é free?? Se é free, onde eu encontro ?? Até encontrei, mas ela 
possui umas msg dizendo

---
Demo_sintegra32dll
---
SIntegra32Dll.dll NÃO REGISTRADA...
Adiquira agora mesmo a sua versão REGISTRADA!
---
OK
---

Alguém tem conhecimento dessa parte, se iver e ajudar eu agradeço ???


Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe

http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0



  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 









Nenhum vírus encontrado nessa mensagem recebida.
Verificado por AVG - www.avgbrasil.com.br
Versão: 8.5.375 / Banco de dados de vírus: 270.13.9/2229 - Data de 
Lançamento: 07/10/09 07:05:00



RE: [delphi-br] OFF: Edições Eletrônicas da Revista Active Delphi

2009-07-10 Por tôpico Andreano Lanusse
E eu quero parabenizar o pessoal da Active Delphi, reunir todo este conteúdo, 
organizar e digitalizar é um trabalho e tanto.

Todo esse conteúdo vale mais do que qualquer livro, demonstra a experiência e 
conhecimento de todos aqueles que escreveram para a revista durante todos estes 
anos.

Só tenho a elogiar e agradecer a todos que fizeram parte desta trabalho, 
aqueles que quiserem aprender mais é só adquirir, o preço é bem acessível.

Mais uma vez parabéns a todos os envolvidos neste projeto.

[]'s
Andreano Lanusse
Embarcadero Technologies

From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On 
Behalf Of Robson
Sent: Friday, July 10, 2009 12:23 PM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] OFF: Edições Eletrônicas da Revista Active Delphi





Finalmente lançaram:
http://www.activedelphi.com.br/imagens/publicidade/edicoes_eletronicas.htm

Abraços,
Robson Souza

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


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



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



[delphi-br] Arquivo printers.xml

2009-07-10 Por tôpico Eduardo Suruagy
Bom dia pessoal, alguem aqui da lista tem o arquivi printers.xml  do
FastReport pra disponibilizar

Se possível mandar p/ o meu email eduardosuru...@gmail.com

Obrigado pela atenção!!!

Eduardo Suruagy
Net System - (82) 9117-0204


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



Re: [delphi-br] Dll do Sintegra

2009-07-10 Por tôpico Eduardo Silva dos Santos
Berdam, a mensagem é clara e direta.

o site do desenvolvedor é esse: http://www.igara.com.br/

a dll é muito boa.


Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...


2009/7/10 Berdam berdamzi...@yahoo.com.br





 Galera, esou iniciando a implementação de sintegra no nosso aplicativo e
 gostaria de saber o seguine do pessoal que tem mais experiência no assunto.
 Essa dll é free?? Se é free, onde eu encontro ?? Até encontrei, mas ela
 possui umas msg dizendo

 ---
 Demo_sintegra32dll
 ---
 SIntegra32Dll.dll NÃO REGISTRADA...
 Adiquira agora mesmo a sua versão REGISTRADA!
 ---
 OK
 ---

 Alguém tem conhecimento dessa parte, se iver e ajudar eu agradeço ???

 --
 Uberdam Cavaletti
 Formado em Tecnologia da Informação - Unoesc - Xxe
 Pós-graduado em desenvolvimento Java - Unoesc - Xxe

 http://buscatextual.cnpq.br/buscatextual/visualizacv.jsp?id=K4251629Y0
 --

 __
 Veja quais são os assuntos do momento no Yahoo! +Buscados
 http://br.maisbuscados.yahoo.com

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

  



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



[delphi-br] Como eu insiro novos campos em uma tabela DBF em tempo de execução e também como saber se o campo na tabela existe ou não.

2009-07-10 Por tôpico Walter Chagas (Bol)
Pessoal,

Me surgiu uma saia justa daquelas aqui no serviço.

Temos um sistema que usa algumas tabelas dbase (.dbf) em alguns casos. O 
problema é que este sistema pertence a uma regional e o funcionario que o fez 
já picou a mula daqui da telemont a tempos e agora ele vai precisar de umas 
adaptações mas por enquanto não vai dar pra trocar o banco por um SGBD pois o 
sistema é altamente usado em alguns processos aqui e não pode parar.

O que eu vou precisar é saber como eu insiro novos campos em uma tabela DBF em 
tempo de execução e também como saber se o campo na tabela existe ou não. O 
sistema usa como acesso a dados o BDE porém a manipulação dos dados na tabela é 
toda via ClientDataset.

Se alguem puder me dar uma luz nisto daí eu agradeço, até porque, o tempo pra 
fazer isto é pra lá de curto. É negócio pra antes de ontem.


[]s



Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr


Re: [delphi-br] Impressora Matricial USB

2009-07-10 Por tôpico Leonardo Quinino
vc pode imprimir em serial,,  compra um adaptar usb - serial

2009/7/10 jairazambuja j...@jairviana.eti.br



 Alguém sabe me informar como faço para saber se uma impressora(paralela)
 matricial instalada em um adaptador paralelo  USB esta pronta para
 imprimir?

 Na Lpt1 é fácil, mas estes adaptadores paralelo  USB, instala uma porta
 virtual que eu não consigo identificar no sistema.

 Minha empresa comprou varios computadores da Dell que não tem porta serial
 nem paralela, então preciso usar adaptadres USB, como imprimo nota fiscal em
 modo texto, direto para impresora, preciso ler o status da mesma.

  




-- 
Leonardo Quinino


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



Re: [delphi-br] erro clientdataset

2009-07-10 Por tôpico Daniel Augusto Bastos
To sem Delphi aqui no momento, mas assim mesmo vai um chute:
Verifique se seu Field da chave primária está marcado como required.
Se tiver, sete o valor pra false e tente gravar.

Se não funcionar, tente atribuir um valor pro campo pra todo o mundo. Tipo
cds.fieldByName('id').AsInteger := 0;
Há chançes (como aconteceno SQL Server) do banco substituir seu valor pelo
número auto-incrementável dele.

Abs
Daniel Augusto Bastos


2009/7/9 felipe govoni govoni.fel...@gmail.com

 sim o campo e auto incremento, vou ter q colocar esse valor manualmente?
 pois a aplicação vai ser varios usuarios incluindo registros ao mesmo
 tempo,
 tenho
 medo q de algo errado.



 2009/7/9 Daniel Augusto Bastos danbas...@gmail.com

 
 
  Como é a geração da sua chave primária?
  Se for auto-incrementável pelo banco, com certeza não irá aparecer.
  O TClientDataSet trabalha gerenciando localmente os seus dados (mesmo
 apos
  o
  post) para obter um melhor desempenho ..
  a comunicação com o banco é feita realmente quando vc usa o apply. É
 nesta
  hora que é gerado o seu ID, pois é a hora que ele realmente grava os
 dados.
  Para fins de testes, e se a sua chave primária no seu banco está setada
  para
  auto incrementável, tente atribuir um valor qualquer no field da sua
 chave
  primária.
 
  Abs
  Daniel Augusto Bastos
 
  2009/7/9 felipe govoni govoni.fel...@gmail.comgovoni.felipe%
 40gmail.com
  
 
 
   boa tarde
  
   estou sando delphi 2007 + mysql 5.1
   o grupo query clientdataset + datasetprovider + datasource
   esta tudo configurado correto pois estou seguindo uma videoaula da
   devmedia,
   porem
   quando salvo, nao aparece a chave primaria e obviamente na hora do
   applyupdate da erro
   pois esta dizendo que a chave primaria esta null.
  
  
   alguem sabe oq pode se?
  
  
  
  
   --
   Felipe Govoni
   -
   GOVONI Sistemas
   Fone 8472-8718
   www.govoni.com.br
  
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
   
  
   --
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
  
  
  
  
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 



 --
 Felipe Govoni
 -
 GOVONI Sistemas
 Fone 8472-8718
 www.govoni.com.br


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



 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






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



RE: [delphi-br] OFF: Edições Eletrônicas da Revista Active Delphi

2009-07-10 Por tôpico Ricardo César Cardoso
Puxa, que legal! Vou comprar todos os CDs, assim posso doar os exemplares em 
papel que tenho aqui em casa!

[]'s
Ricardo.

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

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

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

--- Em sex, 10/7/09, Andreano Lanusse andreano.lanu...@embarcadero.com 
escreveu:
  
  E eu quero parabenizar o pessoal da Active Delphi, reunir todo este 
conteúdo, organizar e digitalizar é um trabalho e tanto.



Todo esse conteúdo vale mais do que qualquer livro, demonstra a experiência e 
conhecimento de todos aqueles que escreveram para a revista durante todos estes 
anos.



Só tenho a elogiar e agradecer a todos que fizeram parte desta trabalho, 
aqueles que quiserem aprender mais é só adquirir, o preço é bem acessível.



Mais uma vez parabéns a todos os envolvidos neste projeto.



[]'s

Andreano Lanusse

Embarcadero Technologies



From: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] On 
Behalf Of Robson

Sent: Friday, July 10, 2009 12:23 PM

To: delphi...@yahoogrup os.com.br

Subject: [delphi-br] OFF: Edições Eletrônicas da Revista Active Delphi



Finalmente lançaram:

http://www.activede lphi.com. br/imagens/ publicidade/ edicoes_eletroni cas.htm



Abraços,

Robson Souza



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



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


 

















  

Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

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



Re: [delphi-br] erro clientdataset

2009-07-10 Por tôpico felipe govoni
descobri o problema, eu deveria colocar a propriedade do
dasetprovider resolvetodataset=true

obrigado daniel.




2009/7/10 Daniel Augusto Bastos danbas...@gmail.com



 To sem Delphi aqui no momento, mas assim mesmo vai um chute:
 Verifique se seu Field da chave primária está marcado como required.
 Se tiver, sete o valor pra false e tente gravar.

 Se não funcionar, tente atribuir um valor pro campo pra todo o mundo. Tipo
 cds.fieldByName('id').AsInteger := 0;
 Há chançes (como aconteceno SQL Server) do banco substituir seu valor pelo
 número auto-incrementável dele.


 Abs
 Daniel Augusto Bastos

 2009/7/9 felipe govoni govoni.fel...@gmail.comgovoni.felipe%40gmail.com
 

  sim o campo e auto incremento, vou ter q colocar esse valor manualmente?
  pois a aplicação vai ser varios usuarios incluindo registros ao mesmo
  tempo,
  tenho
  medo q de algo errado.
 
 
 
  2009/7/9 Daniel Augusto Bastos danbas...@gmail.comdanbastos%40gmail.com
 
 
  
  
   Como é a geração da sua chave primária?
   Se for auto-incrementável pelo banco, com certeza não irá aparecer.
   O TClientDataSet trabalha gerenciando localmente os seus dados (mesmo
  apos
   o
   post) para obter um melhor desempenho ..
   a comunicação com o banco é feita realmente quando vc usa o apply. É
  nesta
   hora que é gerado o seu ID, pois é a hora que ele realmente grava os
  dados.
   Para fins de testes, e se a sua chave primária no seu banco está setada
   para
   auto incrementável, tente atribuir um valor qualquer no field da sua
  chave
   primária.
  
   Abs
   Daniel Augusto Bastos
  
   2009/7/9 felipe govoni govoni.fel...@gmail.comgovoni.felipe%40gmail.com
 govoni.felipe%
  40gmail.com
   
  
  
boa tarde
   
estou sando delphi 2007 + mysql 5.1
o grupo query clientdataset + datasetprovider + datasource
esta tudo configurado correto pois estou seguindo uma videoaula da
devmedia,
porem
quando salvo, nao aparece a chave primaria e obviamente na hora do
applyupdate da erro
pois esta dizendo que a chave primaria esta null.
   
   
alguem sabe oq pode se?
   
   
   
   
--
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br
   
   
[As partes desta mensagem que não continham texto foram removidas]
   
   
   

   
--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
   
   
   
   
  
   [As partes desta mensagem que não continham texto foram removidas]
  
  
  
 
 
 
  --
  Felipe Govoni
  -
  GOVONI Sistemas
  Fone 8472-8718
  www.govoni.com.br
 
 
  [As partes desta mensagem que não continham texto foram removidas]
 
 
 
  
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 
 
 

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

  




-- 
Felipe Govoni
-
GOVONI Sistemas
Fone 8472-8718
www.govoni.com.br


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



[delphi-br] RunTime error 204

2009-07-10 Por tôpico Wainer
Amigos 

Ao fechar minha aplicacao esta aparecendo esta mensagem, alguem ja passou esta 
raiva tambem?
alguma dica?, apenas o form principal e os DM sao criados automaticamanete.
pesquisando diz respeito a ponteiro de memoria, mas como estou fechando o form 
nao percebi como ver este enderecamento

obrigado

Wainer
16--6697
16-9101-1757

Wisa soft
16-3721-7187

o[|||]o   
  ▓-o---▓
CJ3A - 49




[delphi-br] [OFF] Novo Sistema Operacional do Google

2009-07-10 Por tôpico embarcadelphi
Desculpem o OFF, mas é uma notícia interessante que nós programadores devemos 
tomar conciência (pelo menos ficar informado)

Para quem ainda não viu a matéria sobre o Novo Sistema Operacional que está 
deixando a Microsoft de orelha em pé, veja a história completa no link abaixo. 
Mas tenha paciência e leia devagar para compreender como tudo funciona. O 
Sistema Operacional que usamos atualmente (Linux, Windows, etc.) foi criado num 
conceito antigo e porisso sofre de falta de segurança, estabilidade,...
Todo mundo já sabe que a Microsoft tem medo do Google, o caminho vai ser este 
mesmo... Quem se dedica a aprender as APIs do Google não vai se arrepender no 
futuro...

2 LINKS (Terra):
[url]http://tecnologia.terra.com.br/interna/0,,OI3863397-EI4801,00-Google+desafia+Windows+e+anuncia+sistema+operacional.html[/url]

[url]http://tecnologia.terra.com.br/interna/0,,OI3867269-EI4801,00-Chrome+pode+ser+rival+verdadeiro+para+Windows.html[/url]