Re: [delphi-br] Thread, como sabe r se ainda está sendo executada?

2009-06-10 Por tôpico Alexandre Rodrigues
Verifique o parâmetro Terminated da thread.

EmbarcaDelphi escreveu:
 
 
 
 
 Queria, ao sair do aplicativo, saber se minha Thread ainda está em
 execução, e se estiver, quero parar.
 
 Será necessário isso ou quando finalizar o aplicativo ela
 automaticamente finaliza?
 
 Grato.
 
 



RES: [delphi-br] ToolBar 2

2009-06-10 Por tôpico Vinicius da Silva Pinto
Valeu mesmo Claudiney, muito obrigado.

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br]em
nome de Claudiney Cogo
Enviada em: terça-feira, 9 de junho de 2009 23:35
Para: delphi-br@yahoogrupos.com.br
Assunto: RES: [delphi-br] ToolBar 2


Na ToolBar existem três propriedades relacionadas a imagem do botão
(ImageLists): DisabledImages, HotImages e Images.



Coloque no seu form três ImageLists, uma para cada uma dessas opções.
Ligue-as nas propriedades da ToolBar. Coloque em cada uma delas as imagens
que quiser usar. Em DisabledImages coloque as imagens para quando o botão
estiver desabilitado. Em HotImages, as imagens para quando o mouse estiver
passando sobre o botão. E em Images as imagens normais dos botões.



Depois de criadas as listas de imagens e ligadas a Toolbar, vá em cada botão
e selecione a imagem a ser utilizada na propriedade ImageIndex. Selecionando
a imagem da posição 1 por exemplo, o botão utilizará a imagem 1 das três
ImageLists, como habilitado, desabilitado e hotimage.



Lembrando que você deve usar imagens BMP ou ICO. E ser for ícones (ICO) no
máximo TrueColor (24 bits).  A ImageList tem problemas com imagens 32 bits
com AlphaChannel. Existem na net alguns códigos que fazem ela aceitar essas
imagens, mas nunca testei nenhum deles. Mas pode valer a pena, pois esses
ícones são muito mais atraentes (Windows Vista e Windows 7)



É só fazer a combinação que achar melhor.



Abraço.



  _

Claudiney Cogo
N2 Sistemas e Soluções em Informática
Av. São Paulo, 172 - 15º Andar - Sala 1505
Fone/Fax: (44) 3029-6053 - Maringá - Paraná
 http://www.n2solutions.com.br/ www.n2solutions.com.br
 http://www.nfe.n2solutions.com.br/ www.nfe.n2solutions.com.br
 http://www.studion2.com.br/ www.studion2.com.br



De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Vinicius da Silva Pinto
Enviada em: terça-feira, 9 de junho de 2009 14:40
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] ToolBar 2








Aproveitando a pergunta do amigo Marcelo, gostaria de saber como faço pra
colocar uma imagem em um ToolButton?

Já procurei, já apanhei e não consegui.

Alguem pode me dar uma ajuda???

Vinicius





__ Informação do NOD32 IMON 4142 (20090609) __

Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br



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





--
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 





Re: [delphi-br] Re: Delphi portatil

2009-06-10 Por tôpico EmbarcaDelphi
Olha aí, também vejo dessa forma...
O q vale é a licença oficial.

vou procurar esse Delphi portátil só para ver do que se trata...

Paulo Coutinho escreveu:


 Se é um produto modificado ou não, isso não importa.

 Tendo a licença você pode destruir ele, pois você pagou por isso.

 O máximo que eles podem fazer é não te dar suporte porque o produto foi
 alterado.

 É como o windows, existem N versões deles modificadas, mas no final de 
 tudo
 o serial quem informa é você, e tem que informar o serial do original, 
 então
 no final das contas da no mesmo.

 Programas portávies/portables são apenas programas exatamente como os
 originais mas criado por um software que guardar as informações da
 instalação para manter tudo em 1 único arquivo.

 Sites como este: http://portableapps.com/ http://portableapps.com/ 
 tem N programas grátis que rodam
 diretam de uma mídia removível sem necessitar de instalação (portables).

 Programas como o Thinstall fazem isso, tornam aplicativos comuns em
 portáveis e nem por isso é pirataria.

 http://meiobit.pop.com.br/forum/software/software-para-windows/thinstall-aplicativos-port-teis
  
 http://meiobit.pop.com.br/forum/software/software-para-windows/thinstall-aplicativos-port-teis

 Se nem o que você compra você tem direito de mecher, então joga no lixo e
 migra pro dot.net ou java, fala sério.

 Abraços.


 .

 



[delphi-br] Fit Area Imagem

2009-06-10 Por tôpico Alexandre
Pessoal alguem sabe como faço para dimensionar uma imagem jpg (via delphi) 
proporcionalmente de acordo com a altura e largura que eu definir?igual no 
Adobe Photoshop?

Alex


__ Information from ESET NOD32 Antivirus, version of virus signature 
database 4141 (20090609) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



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



RES: [delphi-br] Re: Ajustar coluna(urgente)

2009-06-10 Por tôpico Reinaldo Aparecido Pereira
595 - Como fazer para largura do display do campo de um dbgrid fique igual
ao seu próprio tamanho na tabela

procedure TForm1.btnTestClick(Sender: TObject);

var i: integer;

begin

  for i:= 0 to Table1.FieldCount-1 do

  Table1.Fields[i].DisplayWidth:= Length(Table1.Fields[i].DisplayLabel);

end; 

 

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de nilmahtavares
Enviada em: terça-feira, 9 de junho de 2009 22:30
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Ajustar coluna(urgente)

 






Obrigada Ricardo,

vc realmente me ajudou muito, e tambem e muito paciencioso
com quem esta comencando.

--- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
, Ricardo César Cardoso ricardo_engs...@... escreveu

 Você já perguntou isso ontem, mas vá lá... 
 
 Quando você se refere a tamanho o que exatamente quer dizer? Tamanho
físico ou apenas o visual da tabela? Se for apenas o visual, bastaria
procurar alguma rotina que automaticamente regule a largura das colunas de
um DBGrid. Existem dicas para isso.
 
 Agora se for no tamanho fisíco, ou seja, um campo que deveria armazenar
200 caracteres, por exemplo, mas está truncando com por exemplo 100
caracteres, aí seria o caso de verificar a configuração dos componentes que
refletem a tabela (ADOTable, ADOQuery por exemplo)
 
 []'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 ter, 9/6/09, nilmahtavares nilmahtava...@... escreveu:
 
 
 
 
 
 
 
 
 
 
 
 
 
 bom dia pessoal !!!
 
 
 
 estou fazendo uma importacao de dados do excel usando o Adoconnection,
Adoquery e dbgrid, a planilha excel ja abre no dbgrid, mas as colunas 
 
 do dbgrid tem tamanho maior do que a planilha excel, alguem saberia me
dizer como resolver esse problema.
 
 
 
 obrigada
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 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]



Re: [delphi-br] Impressão de Comprovantes no tef discado

2009-06-10 Por tôpico Wellington Simões Correa
caso queira tirar alguma duvida em pvt, estou a disposição

Wellington

wellingt...@hotmail.com

Luiz Antonio Roussenq escreveu:


 Estou com duvida em relacao a impressao dos comprovantes no tef 
 discado. No roteiro de homologação da REDECARD diz quando estiver 
 imprimindo e a impressora nao estiver respondendo para ficar em loop e 
 assim que voltar a responder continua a imprimir. Mas conversando com 
 suporte da VISANET me passou que se ocorrer esta situação e para 
 fechar o comprovante e abrir um gerencial iniciar a impressao novamente.
 QUEM ESTA CORRETO ALGUEM SABE ME DIZER?

 



Re: [delphi-br] Arquivo de LOG Pasdoc

2009-06-10 Por tôpico Evaldo
Na verdade eu quero um log mesmo do pasdoc, aquelas saidas que ele joga na tela:

PasDoc 0.11.0 [2008-06-22|FPC 2.2.0|MSWindows|32]
Documentation generator for Pascal source

This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Info[1]:Starting Source File Parsing ...
Info[2]:Now parsing file \Aguarde.pas...
Info[2]:Now parsing file \AlterarSenha.pas...
Info[2]:Now parsing file AlterarStatus.pas...


 Eu quero capturar essas informações ai.

Tem como?

Porque não encontrei nenhuma tag que faça com que ele gere um arquivo com essas 
saidas


  

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



Re: [delphi-br] Re: Delphi portatil

2009-06-10 Por tôpico ricardo_engsoft

Para não tornar o e-mail muito longo, escrevi um texto no meu blog. Comente lá 
ou aqui, como desejarem

[ 
http://fiddleabout.wordpress.com/2009/06/10/consideracoes-sobre-delphi-portatil/
 ]

Atte,
Ricardo.

1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor 
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!

--- Em qua, 10/6/09, EmbarcaDelphi embarcadel...@yahoo.com.br escreveu:

Olha aí, também vejo dessa forma...
O q vale é a licença oficial. 
Vou procurar esse Delphi portátil só para ver do que se trata...


Paulo Coutinho escreveu:


 Se é um produto modificado ou não, isso não importa.

 Tendo a licença você pode destruir ele, pois você pagou por isso.

 O máximo que eles podem fazer é não te dar suporte porque o produto foi
 alterado.

 É como o windows, existem N versões deles modificadas, mas no final de 
 tudo
 o serial quem informa é você, e tem que informar o serial do original, 
 então
 no final das contas da no mesmo.

 Programas portávies/portables são apenas programas exatamente como os
 originais mas criado por um software que guardar as informações da
 instalação para manter tudo em 1 único arquivo.

 Sites como este: http://portableapps.com/
 tem N programas grátis que rodam
 diretam de uma mídia removível sem necessitar de instalação (portables).

 Programas como o Thinstall fazem isso, tornam aplicativos comuns em
 portáveis e nem por isso é pirataria.

 http://meiobit.pop.com.br/forum/software/software- 
 para-windows/thinstall-aplicativos-port-teis 

 Se nem o que você compra você tem direito de mecher, então joga no lixo e
 migra pro dot.net ou java, fala sério.

 Abraços.


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


[delphi-br] Criando Stored Procedure via TQuery

2009-06-10 Por tôpico Schinayder
Bom dia amigos,

Estou tentando criar uma SP via TQuery no Delphi... abaixo segue script da 
SP... caso alguém possa me ajudar! Desde já agradecido.

qaux.sql.text := 'CREATE PROCEDURE SP_TABELA  ' +
'( ' +
'  N_TABELA VARCHAR(100) ' +
') ' +
'RETURNS ' +
'( ' +
'  TABELA VARCHAR(100) ' +
') ' +
'AS ' +
'BEGIN ' +
'FOR SELECT RDB$RELATION_NAME AS TABELA FROM RDB$RELATIONS ' +
'WHERE RDB$RELATION_NAME LIKE :N_TABELA ' +
'INTO :TABELA ' +
'DO ' +
'BEGIN ' +
'suspend; ' +
'END ' +
'END';
QAux.ExecSQL;

Obs.: Acredito que o problema esteja no comando em vermelho pois quando não o 
executo a SP é criada perfeitamente. Utilizo o Delphi7 e Firebird1.5.

Atenciosamente,

Schinayder

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



Re: [delphi-br] Re: Ajustar coluna(urgente)

2009-06-10 Por tôpico Ricardo César Cardoso
Blz! Sempre que o tempo permitir a gente tenta ajudar...



[]'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 ter, 9/6/09, nilmahtavares nilmahtava...@terra.com.br escreveu:













Com certeza nao foi ironia,  eu pesquisei como vc sugeriu e consegui resolver.



obrigada



--- Em delphi...@yahoogrup os.com.br, Ricardo César Cardoso ricardo_engsoft@ 
... escreveu



 Mas o mais importante; conseguiu resolver o problema? Não deu pra ser muito 
 específico pois seu problema estava muito claro e principalmente, o fator 
 tempo atrapalhou um pouco durante o dia.

 

 Espero não ter sido nenhuma ironia. Eu iria ficar... indiferente.

 

 Atenciosamente,

 Ricardio

 

 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 ter, 9/6/09, nilmahtavares nilmahtavares@ ... escreveu:



 Obrigada Ricardo,

 

 

 

 vc  realmente me ajudou muito,  e tambem e muito paciencioso

 

  com quem esta comencando.

 

 

 

 --- Em delphi...@yahoogrup os.com.br, Ricardo César Cardoso ricardo_engsoft@ 
 ... escreveu

 

 

 

  Você já perguntou isso ontem, mas vá lá... 

 

  

 

  Quando você se refere a tamanho o que exatamente quer dizer? Tamanho 
  físico ou apenas o visual da tabela? Se for apenas o visual, bastaria 
  procurar alguma rotina que automaticamente regule a largura das colunas de 
  um DBGrid. Existem dicas para isso.

 

  

 

  Agora se for no tamanho fisíco, ou seja, um campo que deveria armazenar 200 
  caracteres, por exemplo, mas está truncando com por exemplo 100 caracteres, 
  aí seria o caso de verificar a configuração dos componentes que refletem a 
  tabela (ADOTable, ADOQuery por exemplo)

 

  

 

  []'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 ter, 9/6/09, nilmahtavares nilmahtavares@ ... escreveu:

  
  bom dia pessoal !!!

  estou fazendo uma importacao de dados do excel usando o Adoconnection, 
  Adoquery e dbgrid,  a planilha excel ja abre no dbgrid, mas as colunas 

 

  

 

  do dbgrid tem tamanho maior do que a planilha excel,  alguem saberia me 
  dizer como resolver esse problema.

 
  obrigada

 


 

















  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]



Res: [delphi-br] Criando Stored Procedure via TQuery

2009-06-10 Por tôpico Berdam
desmarque a propriedade paramscheck da tqsqlquery

 

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







De: Schinayder schin...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quarta-feira, 10 de Junho de 2009 10:05:00
Assunto: [delphi-br] Criando Stored Procedure via TQuery





Bom dia amigos,

Estou tentando criar uma SP via TQuery no Delphi... abaixo segue script da 
SP... caso alguém possa me ajudar! Desde já agradecido.

qaux.sql.text := 'CREATE PROCEDURE SP_TABELA  ' +
'( ' +
'  N_TABELA VARCHAR(100) ' +
') ' +
'RETURNS ' +
'( ' +
'  TABELA VARCHAR(100) ' +
') ' +
'AS ' +
'BEGIN ' +
'FOR SELECT RDB$RELATION_ NAME AS TABELA FROM RDB$RELATIONS ' +
'WHERE RDB$RELATION_ NAME LIKE :N_TABELA ' +
'INTO :TABELA ' +
'DO ' +
'BEGIN ' +
'suspend; ' +
'END ' +
'END';
QAux.ExecSQL;

Obs.: Acredito que o problema esteja no comando em vermelho pois quando não o 
executo a SP é criada perfeitamente. Utilizo o Delphi7 e Firebird1.5.

Atenciosamente,

Schinayder

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


   


  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] Criando Stored Procedure via TQuery

2009-06-10 Por tôpico Schinayder
Berdam... obrigado pela dica... é exatamente isto que faltava pra dar certo.

Atenciosamente,

Schinayder.

  - Original Message - 
  From: Berdam 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, June 10, 2009 10:27 AM
  Subject: Res: [delphi-br] Criando Stored Procedure via TQuery





  desmarque a propriedade paramscheck da tqsqlquery

  --
  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
  --

  
  De: Schinayder schin...@yahoo.com.br
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Quarta-feira, 10 de Junho de 2009 10:05:00
  Assunto: [delphi-br] Criando Stored Procedure via TQuery

  Bom dia amigos,

  Estou tentando criar uma SP via TQuery no Delphi... abaixo segue script da 
SP... caso alguém possa me ajudar! Desde já agradecido.

  qaux.sql.text := 'CREATE PROCEDURE SP_TABELA ' +
  '( ' +
  ' N_TABELA VARCHAR(100) ' +
  ') ' +
  'RETURNS ' +
  '( ' +
  ' TABELA VARCHAR(100) ' +
  ') ' +
  'AS ' +
  'BEGIN ' +
  ' FOR SELECT RDB$RELATION_ NAME AS TABELA FROM RDB$RELATIONS ' +
  ' WHERE RDB$RELATION_ NAME LIKE :N_TABELA ' +
  ' INTO :TABELA ' +
  ' DO ' +
  ' BEGIN ' +
  ' suspend; ' +
  ' END ' +
  'END';
  QAux.ExecSQL;

  Obs.: Acredito que o problema esteja no comando em vermelho pois quando não o 
executo a SP é criada perfeitamente. Utilizo o Delphi7 e Firebird1.5.

  Atenciosamente,

  Schinayder

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

  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]



Re: [delphi-br] Thread, como saber se ainda está se ndo executada?

2009-06-10 Por tôpico José Mário Silva Guedes
A forma mais correta na minha opinião é um código mais ou menos como o
abaixo:
MinhaThread.Terminate;
MInhaThread.WaitFor;
FreeAndNil(MinhaThread);

Porém há um macete que demorei a entender. A classe TThread possui um evento
denominado OnTerminate. Para o WaitFor funcionar a contento, este evento tem
que estar setado, nem que seja para dar um simples Sleep(10) ou algo assim.

É como faço por aqui.


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



Re: [delphi-br] Arquivo de LOG Pasdoc

2009-06-10 Por tôpico Evaldo


 Consegui resolver da seguinte forma:

inclui a unit JclSysUtils da JVCL, ela possui a seguinte função :

{ TODO -cHelp :
RawOutput: Do not process isolated carriage returns (#13).
That is, for RawOutput = False, lines not terminated by a line feed (#10) are 
deleted from Output. }

function Execute(const CommandLine: string; var Output: string; RawOutput: 
Boolean = False;
  AbortPtr: PBoolean = nil): Cardinal;
begin
  Result := InternalExecute(CommandLine, Output, nil, RawOutput, AbortPtr);
end;

e ultilizando mais uma função de apoio:

procedure ShowPasDocMessage(const Text: string);
const
  Misspell = 'Warning[2]: Word misspelled ';
var
  MisspellLength  : integer;
  WrongWord: string;
begin
  MisspellLength := Length(Misspell);
  MemoLog.Lines.Add(Text);
  if Pos(Misspell, Text) = 1 then
  begin
WrongWord := Copy(Text, MisspellLength+1, MAXINT);
if Length(WrongWord)  0 then
begin
  SetLength(WrongWord, Length(WrongWord)-1);
//  MisspelledWords.Add(WrongWord);
end;
  end;

  Application.ProcessMessages;
end;

Consegui capturar a saída gerada  pelo pasdoc.

 Execute(exe + ' ' +parametros,ShowPasDocMessage  );

Obrigado pela atenção.


  

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



Re: [delphi-br] Thread, como sabe r se ainda está sendo executada?

2009-06-10 Por tôpico Alexandre Rodrigues
Pode-se usar também a propriedade FreeOnTerminate, ai não é necessário 
usar o WaitFor.

José Mário Silva Guedes escreveu:
 
 
 
 A forma mais correta na minha opinião é um código mais ou menos como o
 abaixo:
 MinhaThread.Terminate;
 MInhaThread.WaitFor;
 FreeAndNil(MinhaThread);
 
 Porém há um macete que demorei a entender. A classe TThread possui um evento
 denominado OnTerminate. Para o WaitFor funcionar a contento, este evento tem
 que estar setado, nem que seja para dar um simples Sleep(10) ou algo assim.
 
 É como faço por aqui.
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 



Re: [delphi-br] Thread, como saber se ainda está se ndo executada?

2009-06-10 Por tôpico José Mário Silva Guedes
Isso é verdade, porém o Terminate não garante que o Thread terminou, apenas
seta o Terrminated para True. Ou seja, o programa pode ser fechada com a
Thread ainda em execução e dependendo do código isso pode ser ruim.
O WaitFor vai garantir que a Thread realmente saiu do ar, podendo-se
encerrar a aplicação com tranquilidade.


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



Re: [delphi-br] Thread, como sabe r se ainda está sendo executada?

2009-06-10 Por tôpico Alexandre Rodrigues
Verdade José

Dependendo que como a thread foi implementada, se ela acessar alguma 
coisa do resto do programa, pode ser um grande problema.

José Mário Silva Guedes escreveu:
 
 
 
 Isso é verdade, porém o Terminate não garante que o Thread terminou, apenas
 seta o Terrminated para True. Ou seja, o programa pode ser fechada com a
 Thread ainda em execução e dependendo do código isso pode ser ruim.
 O WaitFor vai garantir que a Thread realmente saiu do ar, podendo-se
 encerrar a aplicação com tranquilidade.
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 



Re: [delphi-br] Fit Area Imagem

2009-06-10 Por tôpico Edelson Regis de Lima
Olá Alex.

Você está dizendo tipo ancorar o tamanho, para quando aumentar a largura,
a figura também aumentar a autura proporcionalmente?
Se for isso, eu acho que dá para voce fazer uma regrinha de 3 com as
propriedades Width e Height do objeto que voce estiver trabalhando.
Exemplo:
Ao redimensionar a largura da imagem (Width), voce primeiro quarda a posição
inicial do Width em alguma variável, e executa a formula:
MinhaImagem.Height := (MinhaImagem.Height * MinhaImagem.Width) /
varWidthInicial;
E pode fazer o inverso quando for redimensionar a altura...

Edelson.



2009/6/10 Alexandre alexandresoare...@yahoo.com.br



 Pessoal alguem sabe como faço para dimensionar uma imagem jpg (via delphi)
 proporcionalmente de acordo com a altura e largura que eu definir?igual no
 Adobe Photoshop?

 Alex

 __ Information from ESET NOD32 Antivirus, version of virus
 signature database 4141 (20090609) __

 The message was checked by ESET NOD32 Antivirus.

 http://www.eset.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] Simular uma área de trabalho com o delphi

2009-06-10 Por tôpico Evandro Siqueira
Olá pessoal,

Vi em nosso sistema ERP um recurso que achei interessante. Eles tem na 
tela principal vários ícones para os módulos do sistema. Igual aos 
atalhos na área de trabalho do windows, que vc pode arrastar dentro da 
área. pra cada ícone que vc clica, ele abre a barra de menu do módulo 
selecionado.

A pergunta é: alguém sabe como eu poderia fazer isso? Existe algum 
componente específico? Esse ERP foi feito em FoxPro e eu pensei. se no 
FoxPro eles conseguem, no Delphi é moleza. Só que até agora não vi nada 
que chegasse perto. Alguem tem uma luz?

-- 
[]’s.

Evandro Siqueira
Programador de Sistemas
L’essentiel Lingerie
(79) 3254-5511 Ramal 218
skype: evandro.lessentiel





-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

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

* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

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

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

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




Re: [delphi-br] Simular uma área de trabalho com o delphi

2009-06-10 Por tôpico Daniel Sobrinho Laporte
Procure por RTTI e Drag and Drop no Delphi!

[]'s
Daniel

2009/6/10 Rafael Jorge rafael.jo...@gmail.com

 hum.. eu tenho um form que o usuario pode ficar movendo alguns panels pra
 onde ele quizer...
 eu habilitei esse recurso com uma dica que eu procurei na net so nao lembro
 onde.
 ja a questao dos menu e so colocar um popup.. ou seja..
 procure essa dica.. no form coloce alguns timagens..
 coloquei popupvinculados a ele (nem sei se pode) e pronto.
 t+


 2009/6/10 Evandro Siqueira vans...@gmail.com

  Olá pessoal,
 
  Vi em nosso sistema ERP um recurso que achei interessante. Eles tem na
  tela principal vários ícones para os módulos do sistema. Igual aos
  atalhos na área de trabalho do windows, que vc pode arrastar dentro da
  área. pra cada ícone que vc clica, ele abre a barra de menu do módulo
  selecionado.
 
  A pergunta é: alguém sabe como eu poderia fazer isso? Existe algum
  componente específico? Esse ERP foi feito em FoxPro e eu pensei. se no
  FoxPro eles conseguem, no Delphi é moleza. Só que até agora não vi nada
  que chegasse perto. Alguem tem uma luz?
 
  --
  []’s.
 
  Evandro Siqueira
  Programador de Sistemas
  L’essentiel Lingerie
  (79) 3254-5511 Ramal 218
  skype: evandro.lessentiel
 
 
 
  
 
  --
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 
 
 
 
 


 --
 _
 Rafael jorge alves
 Desenvolvedor/analista
 Ativa Soluções em TI.
 Recife - PE


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



 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






-- 
Daniel Sobrinho Laporte
Analista de Sistemas e Desenvolvedor Delphi + Firebird.
Colunista e Editor Técnico ClubeDelphi - DevMedia.


[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:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

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

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

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




Re: [delphi-br] Simular uma área de trabalho com o delphi

2009-06-10 Por tôpico Rafael Jorge
hum.. eu tenho um form que o usuario pode ficar movendo alguns panels pra
onde ele quizer...
eu habilitei esse recurso com uma dica que eu procurei na net so nao lembro
onde.
ja a questao dos menu e so colocar um popup.. ou seja..
procure essa dica.. no form coloce alguns timagens..
coloquei popupvinculados a ele (nem sei se pode) e pronto.
t+


2009/6/10 Evandro Siqueira vans...@gmail.com

 Olá pessoal,

 Vi em nosso sistema ERP um recurso que achei interessante. Eles tem na
 tela principal vários ícones para os módulos do sistema. Igual aos
 atalhos na área de trabalho do windows, que vc pode arrastar dentro da
 área. pra cada ícone que vc clica, ele abre a barra de menu do módulo
 selecionado.

 A pergunta é: alguém sabe como eu poderia fazer isso? Existe algum
 componente específico? Esse ERP foi feito em FoxPro e eu pensei. se no
 FoxPro eles conseguem, no Delphi é moleza. Só que até agora não vi nada
 que chegasse perto. Alguem tem uma luz?

 --
 []’s.

 Evandro Siqueira
 Programador de Sistemas
 L’essentiel Lingerie
 (79) 3254-5511 Ramal 218
 skype: evandro.lessentiel



 

 --
  FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






-- 
_
Rafael jorge alves
Desenvolvedor/analista
Ativa Soluções em TI.
Recife - 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:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos

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

* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br

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




[delphi-br] Unir sentenças SQL

2009-06-10 Por tôpico tetraetila®
Olá Pessoal

Eu tenho a seguinte sentença que faz um insert a partir de um select, Ok!

insert into bal_patri ( a004_redu, a004_tipo, a004_estr1, a004_estr, a004_desc 
) select a004_redu, a004_tipo, a004_estr as a004_estr1, a004_estr, a004_desc 
from a029004_tbl where a004_tipo = 'A'

Ok! Gero um arquivo com os dados.

Em outra sentença eu apuro o valor dos débitos:

select a005_debi, sum( a005_valo ) as DEBITO from a029005_tbl where a005_data 
= '31.01.2008' group by a005_debi

e da mesma forma eu apuro os créditos:

select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl where a005_data 
= '31.01.2008' group by a005_cred

e SAL_F = crédito - débito

Gero mais arquivos...

Eu gostaria de unir a primeira sentença um update com a segunda e terceira 
sentenças, ou seja fazer o insert com o select e
em seguinte o update de VR_DEBI e VR_CRED e SAL_F ( SAL_F equivale a VR_CRED - 
VR_DEBI ).

update bal_patri set VR_DEBI = ( 
select a005_debi, sum( a005_valo ) as DEBITO from a029005_tbl where a005_data 
= '31.01.2008' group by a005_debi )

update bal_patri set VR_CRED = ( 
select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl where a005_data 
= '31.01.2008' group by a005_cred )

update bal_patri set SAL_F = ( VR_CRED - VR_DEBI )

Isto tudo em uma única sentença, pois eu gero um arquivo tipo DBF para cada 
sentença e poderia gerar apenas um para a sentença inteira diminuiria bem as 
linhas de código.


Algo assim. Obrigado!

Adilson

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



[delphi-br] OFF TOPIC AGRADECIMENTO PROGRAMA DELPHI 7 NAO FUNCIONA NO WINDOWS VISTA

2009-06-10 Por tôpico Adevaldo Oliveira
Ola, pessoal o problema foi resolvido, eu uso o paradox, e no dbadmin tinha que 
trocar a net dir de c: para a pasta onde fica os dados, muito obrigado a todos 
pela colaboracao, e bom saber que essa lista funciona.
 
Um forte abraco a todos
 
Adevaldo
 


  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] Ajuda com Relatorio

2009-06-10 Por tôpico izaias_gomes
se possivel me tirar duas dúvidas que não consegui resolver com ninguem, desde
já envio meus votos de gratidão por estar me dando sua atenção uma vez que tenho
certeza que estão sempre muito ocupados. Bem segue abaixo as Dúvidas, mais uma
vez MUITO OBRIGADO!

Atenciosamente,

Izaias Gomes Bezerra
Batalha-Alagoas

Delphi 7.0
Firebird 1.5
ClientDataSet
DBExpress
FastReport 4.3

Dúvidas:

1:
No Evento OnBeforePrint uso o comando :
Memo1.Font.Style := fsBold;
ou seja coloco o Memo1 no Style Negrito, até ai tudo bem mas no meu caso eu
preciso colocar uma linha o memo negrito em outra linha o memo normal, é ai que
mora o problema, uma vez configurado para negrito eu já tentei todo tipo de
comando para tirar o negrito mas não consegui, ou seja assim como estou
conseguindo colocar o negrito via código preciso também tirar o negrito via
código.

2:
No Evento BeforePrint da Banda Detail do QuickReport eu podia fazer um loop em
uma determinada tabela e somar um campo númerico por exemplo:
cdsVendas.First;
While Not cdsVendas.Eof do
begin
Variavel_Total :=Variavel_Total + cdsVendasValor_Venda.AsFloat;
cdsVendas.Next;
end;
já no FastReport não consigo dar um loop na banda OnBeforePrint.




[delphi-br] OFF-TOPIC - Liga��o inusitada

2009-06-10 Por tôpico Jackson Gomes - ToolsComps
Hoje recebi uma ligação um pouco inusitada. Alguém me ligou perguntando se eu 
programava em Delphi. Achei até que era proposta de trabalho :-).

A pessoa disse estar começando a programar em Delphi, recebeu de um amigo um 
programa de estoque, o mesmo não compilava por causa de uma unit de nome spin 
não sei o quê.dcu, e se eu podia ajudá-lo a resolver isso.

Falei que não podia ajudá-lo por telefone e que iria passar o endereço da lista 
para ele pedir ajuda. Pedi pra pessoa me mandar um email mas até agora nada.

Alguém mais aqui recebeu essa ligação? Acredito que essa pessoa deve ter pego 
meu tel comercial aqui ou em outra lista, já que o mesmo está disponível na 
minha assinatura (para assuntos comerciais, claro!!!).

Bizarro :-)

--
Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: jack...@toolsandcomps.com
Fone: 27 3389 1138 - 8811 0324

http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc

Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
devh...@devhost.com.br





Res: [delphi-br] Re: agenda médica

2009-06-10 Por tôpico asandro1501
Olá Pessoal

Obrigado pelas dicas, o problema agora nem é esse, eu tinha feito uma base em 
access pois achei que era tudo pequeno mas tive que fzer uma nova base em 
firebird 1.5. Agora estou tentanto implementar tudo, estou usando os 
componentes sqldataset da paleta dbexpress, clientdatase, datasetprovider e 
datasource da paleta dataaccess, preciso fazer um filtro sql que retorne 
somente os campos com nome fulano por exemplo, pra isso utilizo uma variavel 
do tipo string que recebe o nome desejado e na instrução sql utilizo os 
parametros where nome like varialvel mas sempre acusa um erro. em access 
funciona belezinha mas no firebird não. Será que o problema está na utilização 
do sqldataset? Alguém pode me dar uma dica de como fazer isso e qual componente 
utilizar.

Grato

Deus abençoe a todos

Alex






--- Em delphi-br@yahoogrupos.com.br, Jose Ferreira joseffi...@... escreveu

 Caro Alex,
 
 Eu tenho um sistema de agenda médica, e eu coloquei um gerador de horários
 de acordo com as necessidades do médico, tanto ele pode escolher os dias 
 que atende como a quantidade de consultas entre horas.
 
 José Ferreira
 
  
 
 
 
 
 De: Joao Henrique Levada joaolev...@...
 Para: delphi-br@yahoogrupos.com.br
 Enviadas: Quinta-feira, 4 de Junho de 2009 23:13:47
 Assunto: [delphi-br] Re: agenda médica
 
 
 
 
 
 Alex, acho que a maneira mais rápida de cumprir sua meta é usar um 
 TClientDataset como uma tabela em memória.
 
 Certamente você terá na interface do programa, um filtro por dia, monte então 
 no dataset todos os horários possíveis, carregando da tabela do banco, apenas 
 os horários marcados.
 
 Neste ClientDataset você poderá aplicar filtros e emitir relatórios.
 
 Esta é minha visão mais simplista.
 
 Agora... pense em ter uma classe, sua TCompromisso, dentro de uma lista: 
 TCompromissoLista você poderia gerar compromissos à vontade, então, salvar os 
 horários preenchidos no banco de dados e liberar a memória dos compromissos 
 que não fossem utilizados.. .
 
 Algo como Compromisso. Save e Compromisso. Free.
 
 Mas essa é outra história... pense em estudar Programação Orientada a Objetos.
 
 Abraços;
 
 
 
 
 
   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] Ajuda com Relatorio

2009-06-10 Por tôpico Moacir - GMail
Izaias,

Tente assim:

//-- Com Negrito

Memo1.Font.Style := Memo1.Font.Style + [fsBold];


//-- Sem Negrito

Memo1.Font.Style := Memo1.Font.Style - [fsBold];


Sucesso !!

Moacir

izaias_gomes escreveu:
 se possivel me tirar duas dúvidas que não consegui resolver com ninguem, desde
 já envio meus votos de gratidão por estar me dando sua atenção uma vez que 
 tenho
 certeza que estão sempre muito ocupados. Bem segue abaixo as Dúvidas, mais uma
 vez MUITO OBRIGADO!

 Atenciosamente,

 Izaias Gomes Bezerra
 Batalha-Alagoas

 Delphi 7.0
 Firebird 1.5
 ClientDataSet
 DBExpress
 FastReport 4.3

 Dúvidas:

 1:
 No Evento OnBeforePrint uso o comando :
 Memo1.Font.Style := fsBold;
 ou seja coloco o Memo1 no Style Negrito, até ai tudo bem mas no meu caso eu
 preciso colocar uma linha o memo negrito em outra linha o memo normal, é ai 
 que
 mora o problema, uma vez configurado para negrito eu já tentei todo tipo de
 comando para tirar o negrito mas não consegui, ou seja assim como estou
 conseguindo colocar o negrito via código preciso também tirar o negrito via
 código.

 2:
 No Evento BeforePrint da Banda Detail do QuickReport eu podia fazer um loop em
 uma determinada tabela e somar um campo númerico por exemplo:
 cdsVendas.First;
 While Not cdsVendas.Eof do
 begin
 Variavel_Total :=Variavel_Total + cdsVendasValor_Venda.AsFloat;
 cdsVendas.Next;
 end;
 já no FastReport não consigo dar um loop na banda OnBeforePrint.




 

   


[delphi-br] sala consultoria / cursos

2009-06-10 Por tôpico chsistemas2

Olá pessoal,

moro em Campinas S.P. e estou procurando sala comercial para meu trabalho de 
consultoria e treinamento.
Alguém tem sala e gostaria de conversar ? Pode ser dentro da regiao de 
Campinas.

Obrigado pela atenção.

At.
Carlos Henrique
Analista Sistemas



Re: [delphi-br] Unir sentenças SQL

2009-06-10 Por tôpico humberto sales
se entedi direitinho tente dessa forma:
 
update bal_patri set VR_DEBI = ( select a005_debi, sum( a005_valo ) as DEBITO 
from a029005_tbl where a005_data = '31.01.2008' group by a005_debi ) ,
VR_CRED = ( select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl 
where a005_data = '31.01.2008' group by a005_cred ),
SAL_F = ( VR_CRED - VR_DEBI )


 
 

De: tetraetila® tetraet...@gmail.com
Assunto: [delphi-br] Unir sentenças SQL
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 10 de Junho de 2009, 15:18








Olá Pessoal

Eu tenho a seguinte sentença que faz um insert a partir de um select, Ok!

insert into bal_patri ( a004_redu, a004_tipo, a004_estr1, a004_estr, a004_desc 
) select a004_redu, a004_tipo, a004_estr as a004_estr1, a004_estr, a004_desc 
from a029004_tbl where a004_tipo = 'A'

Ok! Gero um arquivo com os dados.

Em outra sentença eu apuro o valor dos débitos:

select a005_debi, sum( a005_valo ) as DEBITO from a029005_tbl where a005_data 
= '31.01.2008' group by a005_debi

e da mesma forma eu apuro os créditos:

select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl where a005_data 
= '31.01.2008' group by a005_cred

e SAL_F = crédito - débito

Gero mais arquivos...

Eu gostaria de unir a primeira sentença um update com a segunda e terceira 
sentenças, ou seja fazer o insert com o select e
em seguinte o update de VR_DEBI e VR_CRED e SAL_F ( SAL_F equivale a VR_CRED - 
VR_DEBI ).

update bal_patri set VR_DEBI = ( 
select a005_debi, sum( a005_valo ) as DEBITO from a029005_tbl where a005_data 
= '31.01.2008' group by a005_debi )

update bal_patri set VR_CRED = ( 
select a005_cred, sum( a005_valo ) as CREDITO from a029005_tbl where a005_data 
= '31.01.2008' group by a005_cred )

update bal_patri set SAL_F = ( VR_CRED - VR_DEBI )

Isto tudo em uma única sentença, pois eu gero um arquivo tipo DBF para cada 
sentença e poderia gerar apenas um para a sentença inteira diminuiria bem as 
linhas de código.

Algo assim. Obrigado!

Adilson

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

















  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] Ocultar registros na navegação - não excluir

2009-06-10 Por tôpico nillgolv

Pessoal, criei um campo na tabela de clientes para checar [x]sim ou não.

Para isto tenho um formulário de manutenção onde tenho esta possibilidade para 
checar este campo.

O que preciso é que ao navegar nos registros de clientes apareça somente os 
registros que estão com o campo nulo, não checado.


Como faço este código para a navegação nos botões [] [] [] [], ou mesmo 
no TDBNavigator.

Uso delphi 7 - paradox

Grato


Re: [delphi-br] Ocultar registros na navegaçã o - não excluir

2009-06-10 Por tôpico O2 Tecnologia (aJato)

Use a propriedade FILTER do componente.



nillgolv escreveu:



 Pessoal, criei um campo na tabela de clientes para checar [x]sim ou não.

 Para isto tenho um formulário de manutenção onde tenho esta 
 possibilidade para checar este campo.

 O que preciso é que ao navegar nos registros de clientes apareça 
 somente os registros que estão com o campo nulo, não checado.

 Como faço este código para a navegação nos botões [] [] [] 
 [], ou mesmo no TDBNavigator.

 Uso delphi 7 - paradox

 Grato

 


 __ Information from ESET NOD32 Antivirus, version of virus 
 signature database 4145 (20090610) __

 The message was checked by ESET NOD32 Antivirus.

 http://www.eset.com



__ Information from ESET NOD32 Antivirus, version of virus signature 
database 4145 (20090610) __

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



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



[delphi-br] Novo arquivo carregado em delphi-br

2009-06-10 Por tôpico delphi-br

Olá,

Esta mensagem é uma notificação para informá-lo que um novo arquivo foi 
adicionado no grupo delphi-br.

  Arquivo : /MVP-Articles-and-Sample.zip 
  Carregado por   : silvioprog silviop...@yahoo.com.br 
  Descrição   : A Delphi Implementation of the Model View Presenter 
Framework. 

Você pode acessar o arquivo pela URL:

http://br.groups.yahoo.com/group/delphi-br/files/MVP-Articles-and-Sample.zip 

Para saber mais sobre compartilhamento de arquivos no grupo, leia:

http://help.yahoo.com/help/br/groups/files

Atenciosamente,

silvioprog silviop...@yahoo.com.br
 





Re: [delphi-br] OFF-TOPIC - Ligação inusitada

2009-06-10 Por tôpico Ricardo César Cardoso
Recebi uma mensagem no meu e-mail particular exatamente sobre esse assunto. A 
mesma coisa, mas não respondi pois costumo resolver esse tipo de questão pela 
lista. Acaba sendo mais produtivo.

Mas ligação não recebi, até pq dificilmente divulgo telefones de contato.

[]'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 qua, 10/6/09, Jackson Gomes - ToolsComps jack...@toolsandcomps.com 
escreveu:

De: Jackson Gomes - ToolsComps jack...@toolsandcomps.com
Assunto: [delphi-br] OFF-TOPIC - Ligação inusitada
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 10 de Junho de 2009, 16:35
















  
  Hoje recebi uma ligação um pouco inusitada. Alguém me ligou perguntando 
se eu 

programava em Delphi. Achei até que era proposta de trabalho :-).



A pessoa disse estar começando a programar em Delphi, recebeu de um amigo um 

programa de estoque, o mesmo não compilava por causa de uma unit de nome spin 

não sei o quê.dcu, e se eu podia ajudá-lo a resolver isso.



Falei que não podia ajudá-lo por telefone e que iria passar o endereço da lista 

para ele pedir ajuda. Pedi pra pessoa me mandar um email mas até agora nada.



Alguém mais aqui recebeu essa ligação? Acredito que essa pessoa deve ter pego 

meu tel comercial aqui ou em outra lista, já que o mesmo está disponível na 

minha assinatura (para assuntos comerciais, claro!!!).



Bizarro :-)



--

Jackson Gomes

ToolsComps - Controle de Usuários para Desenvolvedores CodeGear

Web Site: http://www.toolsand comps.com

Nosso Fórum: http://groups. yahoo.com/ group/toolsandco mps

e-mail: jack...@toolsandcom ps.com

Fone: 27 3389 1138 - 8811 0324

 - - - - - -

http://jacklovesdel phi.blogspot. com - Delphi, Intraweb, etc

 - - - - - -

Devhost - Webhost para desenvolvedores Delphi

http://www.devhost. com.br

devh...@devhost. com.br




 

  




 

















  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]



RES: [delphi-br] Re: agenda médica

2009-06-10 Por tôpico marcelo
Qual erro, eu particularmente passo os comando SQL pela propriedade
commandText do  Clientdataset , não esquece de marcar o poAllowcommandText
para true. Qualquer duvida posta ai. Tambem tenho um sistema de clinica
médica.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de asandro1501
Enviada em: quarta-feira, 10 de junho de 2009 16:45
Para: delphi-br@yahoogrupos.com.br
Assunto: Res: [delphi-br] Re: agenda médica

 






Olá Pessoal

Obrigado pelas dicas, o problema agora nem é esse, eu tinha feito uma base
em access pois achei que era tudo pequeno mas tive que fzer uma nova base em
firebird 1.5. Agora estou tentanto implementar tudo, estou usando os
componentes sqldataset da paleta dbexpress, clientdatase, datasetprovider e
datasource da paleta dataaccess, preciso fazer um filtro sql que retorne
somente os campos com nome fulano por exemplo, pra isso utilizo uma
variavel do tipo string que recebe o nome desejado e na instrução sql
utilizo os parametros where nome like varialvel mas sempre acusa um
erro. em access funciona belezinha mas no firebird não. Será que o problema
está na utilização do sqldataset? Alguém pode me dar uma dica de como fazer
isso e qual componente utilizar.

Grato

Deus abençoe a todos

Alex

--- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
, Jose Ferreira joseffi...@... escreveu

 Caro Alex,
 
 Eu tenho um sistema de agenda médica, e eu coloquei um gerador de horários
 de acordo com as necessidades do médico, tanto ele pode escolher os dias 
 que atende como a quantidade de consultas entre horas.
 
 José Ferreira
 
  
 
 
 
 
 De: Joao Henrique Levada joaolev...@...
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br

 Enviadas: Quinta-feira, 4 de Junho de 2009 23:13:47
 Assunto: [delphi-br] Re: agenda médica
 
 
 
 
 
 Alex, acho que a maneira mais rápida de cumprir sua meta é usar um
TClientDataset como uma tabela em memória.
 
 Certamente você terá na interface do programa, um filtro por dia, monte
então no dataset todos os horários possíveis, carregando da tabela do banco,
apenas os horários marcados.
 
 Neste ClientDataset você poderá aplicar filtros e emitir relatórios.
 
 Esta é minha visão mais simplista.
 
 Agora... pense em ter uma classe, sua TCompromisso, dentro de uma lista:
TCompromissoLista você poderia gerar compromissos à vontade, então, salvar
os horários preenchidos no banco de dados e liberar a memória dos
compromissos que não fossem utilizados.. .
 
 Algo como Compromisso. Save e Compromisso. Free.
 
 Mas essa é outra história... pense em estudar Programação Orientada a
Objetos.
 
 Abraços;
 
 
 
 
 
 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]




No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.5.339 / Virus Database: 270.12.62/2168 - Release Date: 06/10/09
18:30:00



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



Re: [delphi-br] OFF-TOPIC - Ligação inusitada

2009-06-10 Por tôpico Valfrid-Ly Silva Couto
Tem gente que encara a lista como suporte gratuito!



--- Em qua, 10/6/09, Jackson Gomes - ToolsComps jack...@toolsandcomps.com 
escreveu:

De: Jackson Gomes - ToolsComps jack...@toolsandcomps.com
Assunto: [delphi-br] OFF-TOPIC - Ligação inusitada
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 10 de Junho de 2009, 16:35

Hoje recebi uma ligação um pouco inusitada. Alguém me ligou perguntando se eu 
programava em Delphi. Achei até que era proposta de trabalho :-).

A pessoa disse estar começando a programar em Delphi, recebeu de um amigo um 
programa de estoque, o mesmo não compilava por causa de uma unit de nome spin 
não sei o quê.dcu, e se eu podia ajudá-lo a resolver isso.

Falei que não podia ajudá-lo por telefone e que iria passar o endereço da lista 
para ele pedir ajuda. Pedi pra pessoa me mandar um email mas até agora nada.

Alguém mais aqui recebeu essa ligação? Acredito que essa pessoa deve ter pego 
meu tel comercial aqui ou em outra lista, já que o mesmo está disponível na 
minha assinatura (para assuntos comerciais, claro!!!).

Bizarro :-)

--
Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: jack...@toolsandcomps.com
Fone: 27 3389 1138 - 8811 0324

http://jacklovesdelphi.blogspot.com - Delphi, Intraweb, etc

Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
devh...@devhost.com.br







-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 






  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]