[delphi-br] Voltar ao Form que chamou...

[Otávio Barreto]

Como faço para voltar ao form que chamou um novo form.
 
eu chamo um form e o form que chamou eu retiro da memoria como faço para
ao clicar em fechar no form que foi chamado abrir o form chamador tendo
em vista que N forms chamam 1 form.
 
Desde já agradeço.
 
=
Otávio Barreto de Melo
Programador
Tel: +55 21 3159-2381
Cel: +55 21 8879-5021
MSN: [EMAIL PROTECTED]
ICQ: 33276
=
 


[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] Propriedades

[Douglas - CPD]

Criei um componente, nesse componente criei uma propriedade: Tipo
(string). Nessa propriedade digito alguns valores, onde comparo dentro do
componente, para saber o que validar.
Valores da propriedade tipo :

 -LOTEOP
 -CODIGOPRODUTO
 -NUMEROPEDIDO

Gostaria de saber como faço para aparecer aquela lista, como por exemplo a
propriedade:

Align -> que tem a lista { alTop, alBottom, alNone }

Onde preciso incluir essa lista em meu componente ??

Obrigado.
Douglas - CPD
--
¿ e-mail enviado sem vírus ?
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.3.1 - Release Date: 15/11/2004

  --

¿ e-mail enviado sem vírus ?
Checked by AVG Anti-Virus.
Version: 7.0.289 / Virus Database: 265.3.1 - Release Date: 15/11/2004


[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] Palm ou Pocket ? Qual o melhor ?

[Rodrigo Americo]

Acho que existe um problema filosófico e outro doutrinário ao se
comparar Palm e Pocket PC. O filosófico está no fato de este se
utilizar de um SO da Microsoft enquanto aquele, um SO proprietário. A
questão doutrinária é basicamente a aplicação de cada um deles.

O Palm OS é um sistema bastante interessante e que, de forma alguma,
está fadado ao fracasso. Ele nasceu para ser, digamos, fitness e para
ser utilizado em uma tela pequena de um aparelho de recursos
limitados. No entanto ele cresceu! Hoje os Palms trabalham com milhões
de cores, tiram fotografia digital, tocam MP3, leêm arquivos PDF e
comunicam-se via bluetooth
 através de acessórios
e nativamente http://www.palmone.com/us/products.

Por sua vez os pockets pcs correram atrás do prejuízo e contam com uma
algumas parafernalhas embutidas (bluetooth, wi-fi) além de com um
sistema com cara de Windows. O preço já não é o grande problema porque
a Dell, por exemplo, tem handhelds por preços abaixo dos 400 dólares.

O que vai dar no final da briga é uma incognita?

E só para levantar uma última coisa: PDA, pocket pc, handheld são
termos genéricos para um mesmo tipo de aparelho e nenhum deles
identifica o SO. Navegando por aí, pude constatar que a própria Palm
tem chamado seu aparelho de handheld (com Palm OS), bem como o Compaq
no seu Aero (com Windows Pocket) e a Dell no seu Axim (com Windows
Mobile).

Inté

Rodrigo Américo


-- 
< 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] Firebird Embutido

[Alexandre Pedroto ®]

Amigos,

Estou usando o Firebird 1.5 (o último) embutido, numa aplicação com
DBExpress.

Está funcionando normalmente, exceto...

No componente TSQLConnection, quando deixo o parâmetro KeepConnection em
false, após uma inclusão, o aplicativo inteiro cai. Quando retorno para
true, volta ao "normal" .

Provavelmente é um bug, concordam? Pois o servidor não deveria derrubar o
aplicativo.

Gostaria, se possível, que alguém fizesse o teste.

Grato,

Alexandre.
---
Email sem vírus
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.797 / Virus Database: 541 - Release Date: 15/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] Manipulacao de Arquivo Binario

[gilbertoloss]

Ola, sou iniciante em Delphi  e tenho o seguinte problema:
Tenho um arquivo de dados em formato desconhecido e quero criar uma 
rotina para localizar uma determinada string nele e inserir uma 
quebra de linha nesse ponto. 
Exemplo: esse arquivo de dados tem cerca de 6Mb e apresenta seus 
registros sempre iniciados com A000 + codigo do produto. Usando 
Wordpad e editando este arquivo, eu consigo alinhar cada registro 
numa linha, o que me permitiria depois salva-lo e trabalha-lo.
So que sao 12mil itens de cadastro. Assim queria desenvolver uma 
rotina que localizasse cada sequencia de A00 e inserisse nesse 
ponto um ENTER (CR + LF).
Alguem pode me dar uma ideia de como implementar isso?!
Gilberto.

[EMAIL PROTECTED]
[EMAIL PROTECTED]






-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

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

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

[Nilson Chagas]

Tenta assim:
 
var
  Componente: TComponent;
begin
  Strin := 'Frm' + DBLkpCmbBxPrincipal.Text;
  Componente := Application.FindComponent(Strin);
  if Componente <> nil then  
(Componente as TForm).showmodal;
end;

Ai vc ve como vai ficar melhor.
 
[]s
Nilson Chagas
"E Jesus, respondendo, disse-lhes: Porventura não errais vós em razão de não 
saberdes as Escrituras nem o poder de Deus?" Mc 12v24

Fernando Assunção <[EMAIL PROTECTED]> wrote:
O que existe de errado neste código?

Estou tentando pegar a propriedade text de um combobox e concatenar a Frm, 
resultando no nome de um formulario, porém quando executo o showmodal da uma 
mensagem de erro. Alguém pode me ajudar?

Código
Strin := 'Frm' + DBLkpCmbBxPrincipal.Text;
Strin.showmodal;

O sistema gera a seguinte mensagem de erro:
[Error] UntPrincipal.pas(36): Record, object or class type required
[Fatal Error] ERP.dpr(7): Could not compile used unit 'UntPrincipal.pas' 




-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!

[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] Acessar arquivos do Cobol?

[Joubert Rinaldi]

Amigos,

Alguem conhece algum componente ou forma de acessar arquivos de dados do Cobol?

-- 
MSN: [EMAIL PROTECTED]


-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

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

<*> 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 a cor de uma coluna do DBgrid Conforme Condição

[Nilson Chagas]

Eu tenho um exemplo muito bom, mas a internet aqui tah uma porcaria, male male 
consigo mandar mensagem, entaum se depois vc se interessar me manda um email em 
pvt.
 
Valeu,
 
Nilson Chagas

Marcos Fonseca <[EMAIL PROTECTED]> wrote:
Colegas do grupo , gostaria de saber como faço para
mudar a cor de uma determinada coluna num Dbgrid em
tempo de execução de acordo com uma condição ?

Desde já agradeços a vossa colaboração.


-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!

[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] duvida entre table e query no zeos

[Otavio Gasparovic do Nascimento]

Pessoal,

trabalho com delphi 5 + mysql + zeos em uma rede de 4 micros e um servidor

algum tempo estou com um problema o qual solicitei a ajuda ao grupo na
seguinte mensagem

ERROR WHILE POSTING

este erro continua em uma unica maquina unica maquina com windows 98

estou utilizando o componente ZMySqlTable por ecomonia de tempo assim
utilizo o componente dbnavigator.

Fiz um modulo a parte acessando a mesma base de dados e mesma tabela só que
utilizando o componente ZMySqlquery, e montando os insert e update na mão,
neste módulo nao acontece o erro,
e acessando o executavel do sistema mostra o mesmo erro.

SERÁ QUE O PROBLEMA É NO TABLE DO ZEOS OU ALGUMA PROPRIEDADE DELE ESTA
SETADO ERRADO.

O QUE VCS ACHAM?


Otavio
Cidreira/RS







"A vida só pode ser compreendida olhando-se para tráz;
mas só pode ser vivida olhando-se para frente."
(Soren Kierkegaard)
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.797 / Virus Database: 541 - Release Date: 15/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] Re: Manipulando Arquivo texto

[denjabr]

A todos que ajudaram , informo que o amigo Daniel de uma outra lista 
matou o problema:
para que quizer lá vai..
procedure TFexportar.BitBtnPesClick(Sender: TObject);
var
  Path, NomArquivo: String;
  Arquivo: TextFile;
  Handle: Integer;
begin
if RadioGroup1.ItemIndex = 0 then
   begin
  try
Screen.cursor:=CRSQLwait;
ExportaDados.Close;
ExportaDados.Parambyname('Pdata1').AsDate:= strtodate
(dateedit2.Text);
ExportaDados.Parambyname('Pdata2').AsDate:= strtodate
(dateedit3.Text);
ExportaDados.Parambyname('Pcodcolab').Asstring:= 
glbcodigocolab;
if  not (ExportaDados.Prepared)then
   ExportaDados.prepare;
ExportaDados.open;

path:= 'C:\BaseAudi\Arquivos Exportados\';
if not DirectoryExists(Path) then
CreateDir(Path);

NomArquivo:= glbCodigocolab +' '+combobox1.text+'-
'+combobox2.text+ '.txt';

if not FileExists(Path + NomArquivo) then
   Handle := FileCreate(Path + NomArquivo);
fileclose(handle);

AssignFile(Arquivo, Path + NomArquivo);
Rewrite(Arquivo);
Exportadados.First;
while not exportadados.Eof do


--- Em [EMAIL PROTECTED], "denjabr" <[EMAIL PROTECTED]> escreveu
> 
> sim estou fechando o arquivo, vou colocar todo código e a linha que 
> esta com a seta é que gera erro.
> 
> procedure TFexportar.BitBtnPesClick(Sender: TObject);
> var
>   Path, NomArquivo: String;
>   Arquivo: TextFile;
> begin
> if RadioGroup1.ItemIndex = 0 then
>begin
>   try
> Screen.cursor:=CRSQLwait;
> ExportaDados.Close;
> ExportaDados.Parambyname('Pdata1').AsDate:= strtodate
> (dateedit2.Text);
> ExportaDados.Parambyname('Pdata2').AsDate:= strtodate
> (dateedit3.Text);
> ExportaDados.Parambyname('Pcodcolab').Asstring:= 
> glbcodigocolab;
> if  not (ExportaDados.Prepared)then
>ExportaDados.prepare;
> ExportaDados.open;
> 
> path:= 'C:\BaseAudi\Arquivos Exportados\';
> if not DirectoryExists(Path) then
> CreateDir(Path);
> 
> NomArquivo:= glbCodigocolab +' '+combobox1.text+'-
> '+combobox2.text+ '.txt';
> 
> if not FileExists(Path + NomArquivo) then
> FileCreate(Path + NomArquivo);
> 
> AssignFile(Arquivo, Path + NomArquivo);
> 
>  >  Rewrite(Arquivo); // aqui é que da erro
> Exportadados.First;
> while not exportadados.Eof do
>begin
> Write ( arquivo, AjustaStr( 
ExportaDadosCENTRAL.AsString, 
> 20));
> Write ( arquivo, AjustaStr( 
ExportaDadosCoop.AsString,
> 20));
> Write ( arquivo, AjustaStr( 
ExportaDadosUA.AsString,  
> 20));
> Write ( arquivo, AjustaStr( 
ExportaDadosArea.AsString,
> 20));
> Write ( arquivo, AjustaStr( 
ExportaDadosData.AsString,
> 15));
> Write ( arquivo, AjustaStr( 
ExportaDadosAno.AsString, 
> 10));
> Write ( arquivo, AjustaStr( 
ExportaDadosHoras.AsString,   
> 10));
> Write ( arquivo, AjustaStr( 
ExportaDadosColab.AsString,   
> 16));
> Write ( arquivo, AjustaStr( 
ExportaDadosOBS.AsString,
> 300));
> WriteLn ( arquivo );
> exportadados.Next;
>end;
> CloseFile ( arquivo );
> Showmessage('Exportação concluída.');
>finally
> screen.cursor:=crdefault;
>   end;
>end
> else
> 
> --- Em [EMAIL PROTECTED], "Eduardo Galvão" 
<[EMAIL PROTECTED]> 
> escreveu
> > Olá,
> > 
> > >Não é este o problema, ja'fiz isto e continua dando erro.
> > >Parece que ele não atualiza a pasta antes de buscar o arquivo e 
ai
> > >ele nao o encontra . Só depois de dar um f5 com a aplicação 
fechada
> > >que resolve.
> > 
> > Você está dando um arquivo.closefile quando termina a gravação
> > no arquivo ??
> > 
> > Se não fizer isto, só vai funcionar da 1a vez. Na 2a vez,
> > o arquivo vai estar aberto e vai dar um erro.
> > 
> > Saudações,
> > Eduardo Paci Galvão
> > Engenheiro UFMG 1990
> > Belo Horizonte - Brasil
> > www.egalvao.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] Componente FTP para D3

[angela_cristinaa]

Ola a todos da lista.
Por acaso alguem tem algum bom componente de FTP para o jurassico 
Delphi 3?
To necessitada de um.

Obrigada.





-- 
< 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: Manipulando Arquivo texto

[denjabr]

sim estou fechando o arquivo, vou colocar todo código e a linha que 
esta com a seta é que gera erro.

procedure TFexportar.BitBtnPesClick(Sender: TObject);
var
  Path, NomArquivo: String;
  Arquivo: TextFile;
begin
if RadioGroup1.ItemIndex = 0 then
   begin
  try
Screen.cursor:=CRSQLwait;
ExportaDados.Close;
ExportaDados.Parambyname('Pdata1').AsDate:= strtodate
(dateedit2.Text);
ExportaDados.Parambyname('Pdata2').AsDate:= strtodate
(dateedit3.Text);
ExportaDados.Parambyname('Pcodcolab').Asstring:= 
glbcodigocolab;
if  not (ExportaDados.Prepared)then
   ExportaDados.prepare;
ExportaDados.open;

path:= 'C:\BaseAudi\Arquivos Exportados\';
if not DirectoryExists(Path) then
CreateDir(Path);

NomArquivo:= glbCodigocolab +' '+combobox1.text+'-
'+combobox2.text+ '.txt';

if not FileExists(Path + NomArquivo) then
FileCreate(Path + NomArquivo);

AssignFile(Arquivo, Path + NomArquivo);

 >  Rewrite(Arquivo); // aqui é que da erro
Exportadados.First;
while not exportadados.Eof do
   begin
Write ( arquivo, AjustaStr( ExportaDadosCENTRAL.AsString, 
20));
Write ( arquivo, AjustaStr( ExportaDadosCoop.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosUA.AsString,  
20));
Write ( arquivo, AjustaStr( ExportaDadosArea.AsString,
20));
Write ( arquivo, AjustaStr( ExportaDadosData.AsString,
15));
Write ( arquivo, AjustaStr( ExportaDadosAno.AsString, 
10));
Write ( arquivo, AjustaStr( ExportaDadosHoras.AsString,   
10));
Write ( arquivo, AjustaStr( ExportaDadosColab.AsString,   
16));
Write ( arquivo, AjustaStr( ExportaDadosOBS.AsString,
300));
WriteLn ( arquivo );
exportadados.Next;
   end;
CloseFile ( arquivo );
Showmessage('Exportação concluída.');
   finally
screen.cursor:=crdefault;
  end;
   end
else

--- Em [EMAIL PROTECTED], "Eduardo Galvão" <[EMAIL PROTECTED]> 
escreveu
> Olá,
> 
> >Não é este o problema, ja'fiz isto e continua dando erro.
> >Parece que ele não atualiza a pasta antes de buscar o arquivo e ai
> >ele nao o encontra . Só depois de dar um f5 com a aplicação fechada
> >que resolve.
> 
> Você está dando um arquivo.closefile quando termina a gravação
> no arquivo ??
> 
> Se não fizer isto, só vai funcionar da 1a vez. Na 2a vez,
> o arquivo vai estar aberto e vai dar um erro.
> 
> Saudações,
> Eduardo Paci Galvão
> Engenheiro UFMG 1990
> Belo Horizonte - Brasil
> www.egalvao.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

 

Re: [delphi-br] Re: Manipulando Arquivo texto

[Eduardo Galvão]

Olá,

>Não é este o problema, ja'fiz isto e continua dando erro.
>Parece que ele não atualiza a pasta antes de buscar o arquivo e ai
>ele nao o encontra . Só depois de dar um f5 com a aplicação fechada
>que resolve.

Você está dando um arquivo.closefile quando termina a gravação
no arquivo ??

Se não fizer isto, só vai funcionar da 1a vez. Na 2a vez,
o arquivo vai estar aberto e vai dar um erro.

Saudações,
Eduardo Paci Galvão
Engenheiro UFMG 1990
Belo Horizonte - Brasil
www.egalvao.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

 

Re: [delphi-br]

[Fabiano Arndt]

Olá,

isso q vc tá tentando fazer nao é possível. , vc não pode concatenar o 
nome
de um form em uma string e querer chamar o metodo showmodal do form.

string é string e form é form (uma coisa é uma coisa outra coisa é outra 
coisa...)

vc vai ter q fazer um if verificando o que tá no combobox, por ex.

supondo q no seu combobox vc tenha

TELA1
TELA2
TELA3

aí vc faz seu código assim:

if DBLkpCmbBxPrincipal.text = 'TELA1' then
  frmTELA1.showmodal;

if DBLkpCmbBxPrincipal.text = 'TELA2' then
  frmTELA2.showmodal;

if DBLkpCmbBxPrincipal.text = 'TELA3' then
  frmTELA3.showmodal;

espero q tenha ajudado.

Fabiano.


>O que existe de errado neste código?
>
>Estou tentando pegar a propriedade text de um combobox e concatenar a Frm,
>resultando no nome de um formulario, porém quando executo o showmodal da 
>uma
>mensagem de erro. Alguém pode me ajudar?
>
>Código
>Strin := 'Frm' + DBLkpCmbBxPrincipal.Text;
>Strin.showmodal;
>
>O sistema gera a seguinte mensagem de erro:
>[Error] UntPrincipal.pas(36): Record, object or class type required
>[Fatal Error] ERP.dpr(7): Could not compile used unit 'UntPrincipal.pas'
>

_
MSN Messenger: converse com os seus amigos online.  
http://messenger.msn.com.br



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

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

<*> 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] Conta telefonica

[Fabrício (Listas)]

Olá Francieli!

Primeiramente, vamos chamar de sistema ou programa. "sisteminha" desvaloriza
o trabalho. OK? :-)

A sua questão é bem genérica, mas aí vai um escopo da tarefa:

- coloque todo o processo em um DFD ou modelo gráfico de representação, para
vc conseguir visualizar melhor o que terá que fazer. Sinceramente, só fiz
isto na universidade, mas ajuda quando não se sabe por onde começar.

- crie um objeto que receberá as variáveis e as constantes.

- crie o procedimento de cálculo para o objeto

- crie o form com os combos

- agora, só carregar, executar e exibir o resultado

É provável que vc tenha novas dúvidas durante o processo, porém serão
dúvidas mais específicas, onde poderemos ajudar com mais precisão.

[]s

Fabrício Veloso Ramos

-Mensagem original-
De: Francieli A. Persch [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 18 de novembro de 2004 14:32
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Conta telefonica




Boa tarde lista!! Cá estou eu de volta pedindo a ajuda e
coolaboração de quem puder. Pode ser simples fazer isso mas não
lembro mesmooo...gostaria da ajuda de vcs. Vou explicar o que é.
Bom, é um sisteminha bem simples, sem banco nem nada...é assim:
Tenho um form com dois combobox, um combo chamado origem e o outro
destino. Que irão ser a origem e o destinho de ligações telefonicas
(só do sul e sudeste, ou seja RS, SC, PR, SP, RJ, MG, ES) ok.
Vou ter um radio list com o tipo da tarifa (normal, diferenciada,
reduzida ou super reduzida) e tb um campo maskedit para colocar o
tempo da ligação. Quero que ao clicar em calcular tarifa o programa
calcule para mim o valor das tarifas (De um estado para o mesmo
estado R$ 0,10 o minuto, de um estado para outro estado da mesma
região R$ 0,20 o minuto e de um estado para outro estado de outra
região R$ 0,30 o minuto), e tb quero que nos casos de ligações com
menos de 30 segundos, o número de minutos seja arredondado para
baixo. Caso contrário seja arredondado para cima. Assim, em uma
ligação de 1 minuto e 28 segundos é considerado apenas 1 minuto para
o cálculo da tarifa e em uma ligação de 1 minuto e 34 segundos, são
considerados 2 minutos. e tb tem a questão de desconto das tarifas
(normal 0%, diferenciada 5%, reduzida 10% e super reduzida 50% de
desconto)...
Alguém pode me ajudar a começar isso??? por onde começo??

valeu!!

Francieli
[EMAIL PROTECTED]









-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

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




 






-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

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

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

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

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

 

[delphi-br] Re: Manipulando Arquivo texto

[denjabr]

Não é este o problema, ja'fiz isto e continua dando erro.
Parece que ele não atualiza a pasta antes de buscar o arquivo e ai 
ele nao o encontra . Só depois de dar um f5 com a aplicação fechada 
que resolve.

--- Em [EMAIL PROTECTED], "Depto de Informatica" 
<[EMAIL PROTECTED]> escreveu
> Pode ser por causa do nome da pasta "\Arquivos Exportados" tive 
problemas com nome-composto para a pasta destino. Experimente deixar 
esta pasta com um nome simples (Ex.: ArquivosExportados).
> 
> Espero ter ajudado.
> 
> Luiz Carlos
>   - Original Message - 
>   From: MEB 
>   To: firebase-br ; [EMAIL PROTECTED] ; Delphi / 
Lista ; delphi-br 
>   Sent: Thursday, November 18, 2004 4:37 PM
>   Subject: [delphi-br] Manipulando Arquivo texto
> 
> 
>   To nisso desde as 11:00 e nao consegui resolver, preciso criar um 
arquivo texto para gravar dados da minha base, ele cria o 
arquivo ,mas ele não consegue gravar(da erro na linha que esta 
marcada com **), somente deposi de fechar a aplicacao e abrir 
novamente é que ele consegue gravar no arquivo gerado.
> 
>   Segue parte do código,
> 
>   ...if  not (ExportaDados.Prepared)then
>  ExportaDados.prepare;
>   ExportaDados.open;
> 
>   path:= 'C:\BaseAudi\Arquivos Exportados\';
>   if not DirectoryExists(Path) then
>   CreateDir(Path);
> 
>   NomArquivo:= glbCodigocolab +' '+combobox1.text+'-
'+combobox2.text+ '.txt';
> 
>   if not FileExists(Path + NomArquivo) then
>   FileCreate(Path + NomArquivo);
> 
>   AssignFile(Arquivo, Path + NomArquivo);
>   **Rewrite(Arquivo);
>   Exportadados.First;
>   while not exportadados.Eof do
>  begin...
>   sds
> 
>   Denis
> 
>   [As partes desta mensagem que não continham texto foram removidas]
> 
> 
> 
> 
> [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] Manipulando Arquivo texto

[Depto de Informatica]

Pode ser por causa do nome da pasta "\Arquivos Exportados" tive problemas com 
nome-composto para a pasta destino. Experimente deixar esta pasta com um nome 
simples (Ex.: ArquivosExportados).

Espero ter ajudado.

Luiz Carlos
  - Original Message - 
  From: MEB 
  To: firebase-br ; [EMAIL PROTECTED] ; Delphi / Lista ; delphi-br 
  Sent: Thursday, November 18, 2004 4:37 PM
  Subject: [delphi-br] Manipulando Arquivo texto


  To nisso desde as 11:00 e nao consegui resolver, preciso criar um arquivo 
texto para gravar dados da minha base, ele cria o arquivo ,mas ele não consegue 
gravar(da erro na linha que esta marcada com **), somente deposi de fechar a 
aplicacao e abrir novamente é que ele consegue gravar no arquivo gerado.

  Segue parte do código,

  ...if  not (ExportaDados.Prepared)then
 ExportaDados.prepare;
  ExportaDados.open;

  path:= 'C:\BaseAudi\Arquivos Exportados\';
  if not DirectoryExists(Path) then
  CreateDir(Path);

  NomArquivo:= glbCodigocolab +' '+combobox1.text+'-'+combobox2.text+ 
'.txt';

  if not FileExists(Path + NomArquivo) then
  FileCreate(Path + NomArquivo);

  AssignFile(Arquivo, Path + NomArquivo);
  **Rewrite(Arquivo);
  Exportadados.First;
  while not exportadados.Eof do
 begin...
  sds

  Denis

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




[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] Manipulando Arquivo texto

[MEB]

To nisso desde as 11:00 e nao consegui resolver, preciso criar um arquivo texto 
para gravar dados da minha base, ele cria o arquivo ,mas ele não consegue 
gravar(da erro na linha que esta marcada com **), somente deposi de fechar a 
aplicacao e abrir novamente é que ele consegue gravar no arquivo gerado.

Segue parte do código,

...if  not (ExportaDados.Prepared)then
   ExportaDados.prepare;
ExportaDados.open;

path:= 'C:\BaseAudi\Arquivos Exportados\';
if not DirectoryExists(Path) then
CreateDir(Path);

NomArquivo:= glbCodigocolab +' '+combobox1.text+'-'+combobox2.text+ 
'.txt';

if not FileExists(Path + NomArquivo) then
FileCreate(Path + NomArquivo);

AssignFile(Arquivo, Path + NomArquivo);
**Rewrite(Arquivo);
Exportadados.First;
while not exportadados.Eof do
   begin...
sds

Denis

[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] Conta telefonica

[Francieli A. Persch]

Boa tarde lista!! Cá estou eu de volta pedindo a ajuda e
coolaboração de quem puder. Pode ser simples fazer isso mas não
lembro mesmooo...gostaria da ajuda de vcs. Vou explicar o que é.
Bom, é um sisteminha bem simples, sem banco nem nada...é assim:
Tenho um form com dois combobox, um combo chamado origem e o outro
destino. Que irão ser a origem e o destinho de ligações telefonicas
(só do sul e sudeste, ou seja RS, SC, PR, SP, RJ, MG, ES) ok.
Vou ter um radio list com o tipo da tarifa (normal, diferenciada,
reduzida ou super reduzida) e tb um campo maskedit para colocar o
tempo da ligação. Quero que ao clicar em calcular tarifa o programa
calcule para mim o valor das tarifas (De um estado para o mesmo
estado R$ 0,10 o minuto, de um estado para outro estado da mesma
região R$ 0,20 o minuto e de um estado para outro estado de outra
região R$ 0,30 o minuto), e tb quero que nos casos de ligações com
menos de 30 segundos, o número de minutos seja arredondado para
baixo. Caso contrário seja arredondado para cima. Assim, em uma
ligação de 1 minuto e 28 segundos é considerado apenas 1 minuto para
o cálculo da tarifa e em uma ligação de 1 minuto e 34 segundos, são
considerados 2 minutos. e tb tem a questão de desconto das tarifas
(normal 0%, diferenciada 5%, reduzida 10% e super reduzida 50% de
desconto)...
Alguém pode me ajudar a começar isso??? por onde começo??

valeu!!

Francieli
[EMAIL PROTECTED]









-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

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

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

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

[Gustavo Führ - RDC]

O strin é um form certo?
Se tu tah querendo jogar isso
para o caption dele tu faz assim:

Strin.Caption := 'Frm' + DBLkpCmbBxPrincipal.Text;

Caso tu queira fazer uma abertura genéria de form é um
pouco mais complicado que isso. Se isso que tu
quer eu boto aqui


Führ


Fernando Assunção wrote:

>O que existe de errado neste código?
>
>Estou tentando pegar a propriedade text de um combobox e concatenar a Frm, 
>resultando no nome de um formulario, porém quando executo o showmodal da uma 
>mensagem de erro. Alguém pode me ajudar?
>
>Código
>Strin := 'Frm' + DBLkpCmbBxPrincipal.Text;
>Strin.showmodal;
>
>O sistema gera a seguinte mensagem de erro:
>[Error] UntPrincipal.pas(36): Record, object or class type required
>[Fatal Error] ERP.dpr(7): Could not compile used unit 'UntPrincipal.pas' 
>
>
>
>  
>



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

[Fernando Assunção]

O que existe de errado neste código?

Estou tentando pegar a propriedade text de um combobox e concatenar a Frm, 
resultando no nome de um formulario, porém quando executo o showmodal da uma 
mensagem de erro. Alguém pode me ajudar?

Código
Strin := 'Frm' + DBLkpCmbBxPrincipal.Text;
Strin.showmodal;

O sistema gera a seguinte mensagem de erro:
[Error] UntPrincipal.pas(36): Record, object or class type required
[Fatal Error] ERP.dpr(7): Could not compile used unit 'UntPrincipal.pas' 



-- 
< 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] Palm ou Pocket ? Qual o melhor ?

[Vinicius Barreira]

Aproveitando o contexto, nós temos um Pocket HP aqui, e ele navega na 
internet normalmente. SE nós fizessemos a comanda eletronica para "intranet" 
rodando com um apache leve em rede local, nós poderíamos fazer tudo com 
delphi + CGI e futuramente em .net, certo ? Essa mesma rotina poderia ser 
usada até mesmo por um micro com Linux + Mozzilla para lançamentos. É só 
fazer as páginas em tamanho reduzido pra caber na tela do Pocket.

Ainda neste contexto, o Palm Os possue recurso de navegar na internet ? nós 
ainda não compramos um Palm Os para fazer os testes; isso seria possível ?

Abraços;

Vinicius Barreira
São Bernardo do Campo - SP
Delphi 7 + Firebird + IBX
Software para Hoteis
Skipe: vinibarr
Icq 74495946



- Original Message - 
From: "Gustavo Führ - RDC" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, November 18, 2004 1:49 PM
Subject: Re: [delphi-br] Palm ou Pocket ? Qual o melhor ?


>
> Especulações da Microsoft devem ser consideradas
> piadas. Hoje mesmo há uma notícia de que o Steve Ballmer
> disse que quem usar linux poder se fuder com patentes.
> O interessante que ele disso isso em Singapura que não tem lei
> de patente de software e que a própria Microsoft sofre processos
> de referente patentes de software enquanto o Linux não.
> (Saber mais:
> http://br-linux.org/main/noticia-microsoft_lanca_nova_cortina_d.html)
> O custo do Palm é bem mais em conta que o do Pocket Pc.
> Em termos de sistema operacional ele é bem robusto
> mas em performance é limitado mesmo...
>
> ps.: também sou pinguim de carterinha! (http://linux.fuhrfoda.org)
>
> Führ
>
> Vinicius Barreira wrote:
>
>>Nós terceirizamos o desenvolvimento duma comanda eletronica para PDA para
>>integrar com o nosso software hoteleiro; quando estavamos selecionando os
>>desenvolvedores, os dois que nós identificamos fizeram questão absoluta de
>>desenvolver para Pocket usando esse argumento. Naturalmente existe a
>>hipótese séria deles serem "Microsoft-nautas", nós sabemos como isso
>>funciona.
>>
>>Pelo que saiu na Gartner Group (que não é a dona da verdade) o Pocket está
>>aumentando seu "market share", mas não superou ainda o Palm Os.
>>
>>Em tempo: sou pinguim de carteirinha e não gosto da forma como  a 
>>Micro$oft
>>conduz as coisas.
>>
>>Abraços;
>>
>>Vinicius Barreira
>>São Bernardo do Campo - SP
>>Delphi 7 + Firebird + IBX
>>Software para Hoteis
>>Skipe: vinibarr
>>Icq 74495946
>>
>>
>>
>
> --
> < 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
>
>
>
>
>
>
> **
> Scanned by  eScan  Anti-Virus  and  Content Security Software.
> Visit http://www.mwti.net for more info on eScan and MailScan.
> **
>
> 



-- 
< 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] Ajudem por favor! Interagir c/ Windows!

[Cláudio Henrique]

Pessoal estou terminado um programa no qual ele grava todas as
teclas pressionadas no "Ambiente Windows". Obs.: Não só as teclas
que ele pressionar enquanto estiver com o form aberto mas também
todas as teclas que forem pressionadas com o form minimizado ou em
segundo plano. Já vi como fazer isso antes, mas como não era de meu
interesse no momento não peguei, agora que preciso não acho.
Quem puder me ajudar serei muito agradecido.

Cláudio Henrique








-- 
< 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] Colorir coluna e linha do string Grid

[Fabio Giro]

// pinta o fundo da celula
  if (row > 0) and (col > 0) then
   begin
 stringgrid2.Canvas.Brush.Color:=clYellow;
 stringgrid2.Canvas.FillRect(Rect);

stringgrid2.Canvas.TextOut(Rect.Left+2,Rect.Top+1,stringgrid2.Cells[Col,Row]
);
   end;

Espero ter ajudado.

- Original Message -
From: "nrr_joi" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, November 16, 2004 5:55 PM
Subject: [delphi-br] Colorir coluna e linha do string Grid




Pessoal,

Como faço para colorir coluna e linha do String Grid?
Colorir a fonte eu consegui, mas a coluna não.







--
< 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] Palm ou Pocket ? Qual o melhor ?

[Gustavo Führ - RDC]

Especulações da Microsoft devem ser consideradas
piadas. Hoje mesmo há uma notícia de que o Steve Ballmer
disse que quem usar linux poder se fuder com patentes.
O interessante que ele disso isso em Singapura que não tem lei
de patente de software e que a própria Microsoft sofre processos
de referente patentes de software enquanto o Linux não.
(Saber mais: 
http://br-linux.org/main/noticia-microsoft_lanca_nova_cortina_d.html)
O custo do Palm é bem mais em conta que o do Pocket Pc.
Em termos de sistema operacional ele é bem robusto
mas em performance é limitado mesmo...

ps.: também sou pinguim de carterinha! (http://linux.fuhrfoda.org)


Führ



Vinicius Barreira wrote:

>Nós terceirizamos o desenvolvimento duma comanda eletronica para PDA para 
>integrar com o nosso software hoteleiro; quando estavamos selecionando os 
>desenvolvedores, os dois que nós identificamos fizeram questão absoluta de 
>desenvolver para Pocket usando esse argumento. Naturalmente existe a 
>hipótese séria deles serem "Microsoft-nautas", nós sabemos como isso 
>funciona.
>
>Pelo que saiu na Gartner Group (que não é a dona da verdade) o Pocket está 
>aumentando seu "market share", mas não superou ainda o Palm Os.
>
>Em tempo: sou pinguim de carteirinha e não gosto da forma como  a Micro$oft 
>conduz as coisas.
>
>Abraços;
>
>Vinicius Barreira
>São Bernardo do Campo - SP
>Delphi 7 + Firebird + IBX
>Software para Hoteis
>Skipe: vinibarr
>Icq 74495946
>
>  
>


-- 
< 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: RES: [delphi-br] Palm ou Pocket ? Qual o melhor ?

[Gustavo Führ - RDC]

Também acho e também nunca ouvi falar nisso.
A Palm é lider absoluta de mercado. E por sinal, o Windows CE
é uma merda sem igual. Recomendo o Linux pro Pocket PC
que fica show de bola!
Pra programação pra Palm tem o PocketStudio que é
baum

Führ



Walter Alves Chagas Junior wrote:

>Nunca ouvi falar disto, de que o palm não tem futuro garantido. Isto é pura
>especulação.  
> 
> 
> []s
>
> Walter Alves Chagas Junior
> Projeto e desenvolvimento
> Telemont Engenharia de telecomunicações
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
> 
> 
>
>  
>
>>-Mensagem original-
>>De: Gustavo Führ - RDC [mailto:[EMAIL PROTECTED]
>>Enviada em: quinta-feira, 18 de novembro de 2004 13:03
>>Para: [EMAIL PROTECTED]
>>Assunto: Re: [delphi-br] Palm ou Pocket ? Qual o melhor ?
>>
>>
>>
>>Vinicius Barreira wrote:
>>
>>
>>
>>>Há quem diga que o Palm é sistema operacional sem futuro 
>>>  
>>>
>>garantido; mas não 
>>
>>
>>>dá pra ter certeza absoluta, até mesmo porque a própria 
>>>  
>>>
>>Microsoft vive 
>>
>>
>>>soltando boatos negativos a respeito do Linux e o Delphi.
>>> 
>>>
>>>  
>>>
>>Que boatos?
>>
>>Führ
>>
>>
>>-- 
>>< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>>
>>Para ver as mensagens antigas, acesse:
>> http://br.groups.yahoo.com/group/delphi-br/messages
>>
>>Para falar com o moderador, envie um e-mail para:
>> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>> 
>>Links do Yahoo! Grupos
>>
>>
>>
>>
>> 
>>
>>
>>
>>
>>
>
>
>[As partes desta mensagem que 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

 

RES: [delphi-br] Palm ou Pocket ? Qual o melhor ?

[Walter Alves Chagas Junior]

O problema do Pocket é que ele é caro
O problema do Palm é que ele é limitado
O problema do Usuário é que ele acha que Portátil é um PC de mão.

E o problema do Cartola é que ele acha que é tudo a mesma coisa e que o que
pode ser feito num, dá pra fazer no outro também.

 
 
 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia de telecomunicações
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200
 
 

> -Mensagem original-
> De: Vinicius Barreira [mailto:[EMAIL PROTECTED]
> Enviada em: quinta-feira, 18 de novembro de 2004 14:28
> Para: [EMAIL PROTECTED]
> Assunto: Re: [delphi-br] Palm ou Pocket ? Qual o melhor ?
> 
> 
> 
> Nós terceirizamos o desenvolvimento duma comanda eletronica 
> para PDA para 
> integrar com o nosso software hoteleiro; quando estavamos 
> selecionando os 
> desenvolvedores, os dois que nós identificamos fizeram 
> questão absoluta de 
> desenvolver para Pocket usando esse argumento. Naturalmente existe a 
> hipótese séria deles serem "Microsoft-nautas", nós sabemos como isso 
> funciona.
> 
> Pelo que saiu na Gartner Group (que não é a dona da verdade) 
> o Pocket está 
> aumentando seu "market share", mas não superou ainda o Palm Os.
> 
> Em tempo: sou pinguim de carteirinha e não gosto da forma 
> como  a Micro$oft 
> conduz as coisas.
> 
> Abraços;
> 
> Vinicius Barreira
> São Bernardo do Campo - SP
> Delphi 7 + Firebird + IBX
> Software para Hoteis
> Skipe: vinibarr
> Icq 74495946
> 
> - Original Message - 
> From: "Gustavo Führ - RDC" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, November 18, 2004 1:02 PM
> Subject: Re: [delphi-br] Palm ou Pocket ? Qual o melhor ?
> 
> 
> >
> > Vinicius Barreira wrote:
> >
> >>Há quem diga que o Palm é sistema operacional sem futuro 
> garantido; mas 
> >>não
> >>dá pra ter certeza absoluta, até mesmo porque a própria 
> Microsoft vive
> >>soltando boatos negativos a respeito do Linux e o Delphi.
> >>
> >>
> > Que boatos?
> >
> > Führ
> >
> > --
> > < 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
> >
> >
> >
> >
> >
> >
> > **
> > Scanned by  eScan  Anti-Virus  and  Content Security Software.
> > Visit http://www.mwti.net for more info on eScan and MailScan.
> > **
> >
> > 
> 
> 
> 
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
> 
> Para ver as mensagens antigas, acesse:
>  http://br.groups.yahoo.com/group/delphi-br/messages
> 
> Para falar com o moderador, envie um e-mail para:
>  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>  
> Links do Yahoo! Grupos
> 
> 
> 
> 
>  
> 
> 
> 


[As partes desta mensagem que 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] Palm ou Pocket ? Qual o melhor ?

[Vinicius Barreira]

Nós terceirizamos o desenvolvimento duma comanda eletronica para PDA para 
integrar com o nosso software hoteleiro; quando estavamos selecionando os 
desenvolvedores, os dois que nós identificamos fizeram questão absoluta de 
desenvolver para Pocket usando esse argumento. Naturalmente existe a 
hipótese séria deles serem "Microsoft-nautas", nós sabemos como isso 
funciona.

Pelo que saiu na Gartner Group (que não é a dona da verdade) o Pocket está 
aumentando seu "market share", mas não superou ainda o Palm Os.

Em tempo: sou pinguim de carteirinha e não gosto da forma como  a Micro$oft 
conduz as coisas.

Abraços;

Vinicius Barreira
São Bernardo do Campo - SP
Delphi 7 + Firebird + IBX
Software para Hoteis
Skipe: vinibarr
Icq 74495946

- Original Message - 
From: "Gustavo Führ - RDC" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, November 18, 2004 1:02 PM
Subject: Re: [delphi-br] Palm ou Pocket ? Qual o melhor ?


>
> Vinicius Barreira wrote:
>
>>Há quem diga que o Palm é sistema operacional sem futuro garantido; mas 
>>não
>>dá pra ter certeza absoluta, até mesmo porque a própria Microsoft vive
>>soltando boatos negativos a respeito do Linux e o Delphi.
>>
>>
> Que boatos?
>
> Führ
>
> --
> < 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
>
>
>
>
>
>
> **
> Scanned by  eScan  Anti-Virus  and  Content Security Software.
> Visit http://www.mwti.net for more info on eScan and MailScan.
> **
>
> 



-- 
< 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] Verificar se data está dentro de intervalo

[Gustavo Führ - RDC]

EU faria + ou - assim...

Sql1.CommandText := 'select DATA_INICIO, DATA_FINAL from tab1';
sql2.CommandText := 'select DATA from tab2';

if  Sql1Data_Inicio.AsDateTime < Sql2DATA.AsDateTime and
Sql2DATA.AsDateTime < SqlData_Final.AsDateTime then
  begin
 beleza
  end
else
  pau

Que tu acha?

Führ


er83pet04 wrote:

>Como posso fazer p/controlar que a data da tabela 2 deve estar entre 
>as datas de início e fim da tabela 1, se estiver dentro do intervalo 
>= ok senão exibe msg p/usuário dizendo que só pode ser incluída data 
>que esteja entre as datas de início e fim. Como posso fazer isso?
>
>Tenho as seguintes tabelas:
>
>TABELA 1 (COD(PK), DATA_INICIO, DATA_FINAL)
>TABELA 2 (COD_2(PK), DATA, COD(FK))
>
>Obrigada,
>
>
>
>
>
>  
>



-- 
< 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] Palm ou Pocket ? Qual o melhor ?

[Walter Alves Chagas Junior]

Nunca ouvi falar disto, de que o palm não tem futuro garantido. Isto é pura
especulação.  
 
 
 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia de telecomunicações
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200
 
 

> -Mensagem original-
> De: Gustavo Führ - RDC [mailto:[EMAIL PROTECTED]
> Enviada em: quinta-feira, 18 de novembro de 2004 13:03
> Para: [EMAIL PROTECTED]
> Assunto: Re: [delphi-br] Palm ou Pocket ? Qual o melhor ?
> 
> 
> 
> Vinicius Barreira wrote:
> 
> >Há quem diga que o Palm é sistema operacional sem futuro 
> garantido; mas não 
> >dá pra ter certeza absoluta, até mesmo porque a própria 
> Microsoft vive 
> >soltando boatos negativos a respeito do Linux e o Delphi.
> >  
> >
> Que boatos?
> 
> Führ
> 
> 
> -- 
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
> 
> Para ver as mensagens antigas, acesse:
>  http://br.groups.yahoo.com/group/delphi-br/messages
> 
> Para falar com o moderador, envie um e-mail para:
>  [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>  
> Links do Yahoo! Grupos
> 
> 
> 
> 
>  
> 
> 
> 


[As partes desta mensagem que 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] Palm ou Pocket ? Qual o melhor ?

[Gustavo Führ - RDC]

Vinicius Barreira wrote:

>Há quem diga que o Palm é sistema operacional sem futuro garantido; mas não 
>dá pra ter certeza absoluta, até mesmo porque a própria Microsoft vive 
>soltando boatos negativos a respeito do Linux e o Delphi.
>  
>
Que boatos?

Führ


-- 
< 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] RES: RES: RES: RES: [intraweb-lista] Dúvida Intraweb.

[Otávio Barreto]

No ScriptEvents do componente coloque history.back() no OnClick
E no ServerController HistoryEnabled coloque true.

Agora mais uma duvida quando eu clico no botão para chamar o novo form
eu preciso passar um parametro para uma procedure que criei.

private
I: Integer;
  public
procedure ChangeForm(AsTyle: Integer);

I:=AStyle;// variavel que recebe o valor
if AStyle = 1 then
  begin
Title:='Cadastrando Bairros';// muda o titulo da janela
lbstatus.Caption := 'Bairro';// muda o titulo do label
  end;

Eu estou fazendo a chamada assim

Tfrmcadbasico.Create(webapplication).ChangeForm(1);
Tfrmcadbasico.Create(webapplication).show;
release;

Porem só chamo o form e não passa o parametro pois o titulo da janela e
do label ficam vazios.

Desde já agradeço a ajuda.

=
Otávio Barreto de Melo
Programador
Tel: +55 21 3159-2381
Cel: +55 21 8879-5021
MSN: [EMAIL PROTECTED]
ICQ: 33276
=


-Mensagem original-
De: Mario Conglom [mailto:[EMAIL PROTECTED] 
Enviada em: quinta-feira, 18 de novembro de 2004 13:53
Para: [EMAIL PROTECTED]
Assunto: Re: RES: RES: RES: [intraweb-lista] Dúvida Intraweb.



Tem como me passar?

[]s,
Mario
[EMAIL PROTECTED]

Otávio Barreto wrote:

> Eu habilitei o voltar do navegador. E coloquei um script para voltar.
>
> =
> Otávio Barreto de Melo
> Programador
> Tel: +55 21 3159-2381
> Cel: +55 21 8879-5021
> MSN: [EMAIL PROTECTED]
> ICQ: 33276
> =
>
>
> -Mensagem original-
> De: Mario Conglom [mailto:[EMAIL PROTECTED]
> Enviada em: quinta-feira, 18 de novembro de 2004 13:21
> Para: [EMAIL PROTECTED]
> Assunto: Re: RES: RES: [intraweb-lista] Dúvida Intraweb.
>
>
>
> Para completar: coloque um botao "Retorna Tela Anterior". Voce 
> consegue usar o Voltar do navegador?
>
> []s,
> Mario.
>
>
> Otávio Barreto wrote:
>
> > É verdade, ate agora não consegui e acho que não vou, a solução mais

> > adequada na minha opinião é usar o back do navegador.
> >
> > Mesmo assim agradeço pelas soluções.
> >
> > -Mensagem original-
> > De: Mario Conglom [mailto:[EMAIL PROTECTED]
> > Enviada em: quarta-feira, 17 de novembro de 2004 18:03
> > Para: [EMAIL PROTECTED]
> > Assunto: Re: RES: [intraweb-lista] Dúvida Intraweb.
> >
> >
> > Pelo que EU conheço do IW, nao daria pois perde o controle da 
> > sessao, a qual é controlada internamente.
> > Como eu falei, a unica diferença é que nao trabalho com uma 2a
janela:
> > quando o usuario volta à tela anterior, NADA é perdido. Como voce
> quer:
> > sem perda de digitacao, ok?
> >
> > [/s,
> > Mario.
> >
> >
> > Otávio Barreto wrote:
> >
> > > Entendi a sua resposta mais precisa ser em uma nova janela.
> > >
> > > Pois o usuario estara cadastrando os dados e em algum momento eu 
> > > creio ele tera que fazer este cadastro pois é inexistente na 
> > > tabela,
>
> > > então eu chamaria o outro form em outra janela e ele iria 
> > > cadastrar depois fechava normalmente e pluft estaria lá o dado que

> > > acabou de cadastrar. Ai é só selecionar e continuar o 
> > > cadastro.
> > >
> > > =
> > > Otávio Barreto de Melo
> > > Programador
> > > Tel: +55 21 3159-2381
> > > Cel: +55 21 8879-5021
> > > MSN: [EMAIL PROTECTED]
> > > ICQ: 33276
> > > =
> > >
> > >
> > > -Mensagem original-
> > > De: Mario Conglom [mailto:[EMAIL PROTECTED] Enviada em: 
> > > terça-feira, 16 de novembro de 2004 22:12
> > > Para: [EMAIL PROTECTED]
> > > Assunto: Re: [intraweb-lista] Dúvida Intraweb.
> > >
> > >
> > >
> > > Precisa ser numa nova janela?
> > > Eu faço assim: crio as telas mais chamadas logo após o login do 
> > > usuario,
> > >
> > > chamo o form (.Show) passo os parametros (variaveis criadas na 
> > > Usersession). Para retornar ao form que chamou, .Hide. Se tiver 
> > > retorno, uso novamente Usersesion. Note que é 
> > > diferente da sua pergunta pois tudo fica no mesmo browser.
> > >
> > > Que acha?
> > >
> > > []s,
> > > Mario
> > >
> > > Otávio Barreto wrote:
> > >
> > > > Boa Tarde,
> > > >
> > > > Como faço para abrir um nova janela do navegador e nesta um
> > > > formulario(intraweb) para efetuar um cadastro basico.
> > > >
> > > > Segue melhor explicação:
> > > >
> > > > Na tela de cadastro de funcionários tem um campo dblookcombobox 
> > > > com os
> > >
> > > > bairros, ao clicar no botão do lado do controle abre-se uma nova

> > > > janela para cadastrar um novo bairro. e ao fechar ele já estara 
> > > > disponivel para seleção.
> > > >
> > > > Espero ter conseguido explicar.
> > > >
> > > > Desde já agradeço.
> > > >
> > > > =
> > > > Otávio Barreto de Melo
> > > > Programador
> > > > Tel: +55 21 3159-2381
> > > > Cel: +55 21 8879-5021
> > > > MSN: [EMAIL PROTECTED]
> > > > ICQ: 33276
> > > > =
> > > >
> > > >
> > > >
> > > > [As partes desta mensagem que não continham texto foram 
> > > > removidas]
> > > >
> > > >
> > >

RES: [delphi-br] Quick report

[Eduardo Silva ®]

Essa primeira mensagem se refere a um tipo de select que vc está tentando
fazer e o seu banco (que dve ser paradox) não tem capacidade para
realizar

A segunda se refere a um erro de configuração do BDE, agora eu só não lembro
de como configurar corretamente ele pois faz tempo que não mexo com ele.

  -Mensagem original-
  De: info.suporte [mailto:[EMAIL PROTECTED]
  Enviada em: quinta-feira, 18 de novembro de 2004 10:52
  Para: [EMAIL PROTECTED]
  Assunto: [delphi-br] Quick report


  Alguem sabe qual a capacidade do gerar de relários do Delphi 5, estou
tendo um problema, quando gero relários com masi de 80 paginas o sistema
gera primeiroa a mensagem
  CAPABILITY NOT SUPPORTED e em seguida gera uma segunda mensagem dizendo
LOCK FILE HAS GROWN TOO LARGE.

  Alguem pode me explicar porque isso acontece?

  PAULO FERNANDES
  PORTO ALEGRE  RS




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

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



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004


[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] Achar numero de dias pra programa de factory.

[| Eduardo Tavares |]

Eu devo estar fazendo algo de errado pq nao deu certo...
Aqui esta o codigo completo:

botao que o usuario clica pra fazer os calculos:

procedure TForm1.btAddicionarClick(Sender: TObject);
Var
 DAtual,DVenc,DTA : TDateTime;
 DataAtual : String;
 DUteis : Integer;
 VDesc,VLiquido : Currency;
begin
  lstValor.Items.Add(edtValor.Text);
  NumDias := CalculaNumDias(cmbVencimento.Date,cmbDtHoje.Date);
  DUteis := NumDias -1;
  DTA := cmbDtHoje.Date + DUteis;
  lstDtVenc.Items.Add(DateToStr(DTA));
  lstNumDias.Items.Add(IntToStr(NumDias));
  VDesc := 
CalculaDesconto(NumDias,edtValor.asCurrency,StrtoInt(edtTaxa.Text));
  lstDesconto.Items.Add(FormatFloat('0.00',VDesc));
  VLiquido := edtValor.AsCurrency - VDesc;
  VTot := VTot + VLiquido;
  lstVrPago.Items.Add(FormatFloat('0.00',VLiquido));
  TotDesc := TotDesc + VDesc;
  TotCheques := TotCheques + edtValor.AsCurrency;
  edtValorCheques.Text := CurrToStr(TotCheques);
  edTotalDesc.Text := FormatFloat('0.00',TotDesc);
  edtTotalCheques.Text := FormatFloat('0.00',VTot);
end;

A funcao calculanumdias :
function TForm1.CalculaNumDias(DT1, DT2: TDateTime): Integer;
var
  DueDate, TodaysDate, DT : TDateTime;
  i: integer;
begin
  DueDate := DT1;
  TodaysDate := DT2;
  {You need to add 1 because daysbetween returns ifference if the time 
differenceis more than 24 hrs. You can use DateSpan which gives an entire 
day for even a fraction of difference}
  i := DaysBetween(DueDate,TodaysDate) ;
  I := I + 1;
  DT := DueDate + I;
  if DayOfWeek(DT) = 6 then{ Check for Friday}
   i := i + 5
  else
   if DayOfWeek(DT) = 7 then {Check for Saturday}
i := i + 4
   else
   if DayOfWeek(DT) = 1 then {Check for Sunday}
i := i + 3;
   i := i + 2; // {add two days}
DT := DueDate + i;
   if (DayOfWeek(DT) = 1) Then
I := I + 1;
   if (DayOfWeek(DT) = 7) then
 I := I + 2;
   Result := i;
end;

Obrigado,
Eduardo Tavares
www.EduardoTavares.com.br
- Original Message - 
From: "Eduardo Silva ®" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, November 18, 2004 4:11 PM
Subject: RES: [delphi-br] Achar numero de dias pra programa de factory.



Faça assim
if Dayofweek(data) = '1' then -> Domingo
Data := Data + 3
else
if Dayofweek(data) = '7' then -> Sábado
Data := Data + 4
else
if Dayofweek(data) = '6' then -> Sexta
Data := Data + 5;

  -Mensagem original-
  De: | Eduardo Tavares | [mailto:[EMAIL PROTECTED]
  Enviada em: quinta-feira, 18 de novembro de 2004 10:16
  Para: Delphi-BR
  Assunto: [delphi-br] Achar numero de dias pra programa de factory.


  Ola!

  Estou fazendo um programa pra uma factory.Preciso achar o numero de dias
  entre a data que a empresa recebeu o cheque(data do dia) e a data do
  vencimento.Preciso checar se a data do vencimento e sexta(dai eu adiciono
3
  dias sexta,sabado e domingo pra entrar com o cheque na segunda,dai ainda
  adiciono mais dois dias pra compensacao).Se nao for sexta, preciso checar
se
  e sabado (dai adiciono 2 dias) ou se e domingo(adiciono 1 dia).Se nao for
ou
  mesmo se for depois de checar esses dias eu preciso adicionar 2 dias e
  depois checar de novo se depois de ter adicionado a data com todos aqueles
  dias e sexta,sabado ou domingo.

  Eu to fazendo isso:

  var
DueDate, TodaysDate, DT : TDateTime;
i: integer;
  begin
DueDate := DT1;
TodaysDate := DT2;
{You need to add 1 because daysbetween returns ifference if the time
  differenceis more than 24 hrs. You can use DateSpan which gives an entire
  day for even a fraction of difference}
i := DaysBetween(DueDate,TodaysDate) ;
I := I + 1;
DT := DueDate + I;
if DayOfWeek(DT) = 6 then{ Check for Friday}
 i := i + 3
else
 if DayOfWeek(DT) = 7 then {Check for Saturday}
  i := i + 2
 else
 if DayOfWeek(DT) = 1 then {Check for Sunday}
  i := i + 1;
 i := i + 2; // {add two days}
  DT := DueDate + i;
 if (DayOfWeek(DT) = 1) Then
  I := I + 1;
 if (DayOfWeek(DT) = 7) then
   I := I + 2;
 Result := i;
  end;

  Mas as vezes funciona, as vezes nao...se eu coloco data de hoje 17/11/04 e
  data do vencimento 24/11/04 o numero de dias deveria ser 10 mas ta sendo
9.

  Que to fazendo de errado?

  Obrigado,
  Eduardo Tavares
  www.EduardoTavares.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]



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 Ya

RES: [delphi-br] Achar numero de dias pra programa de factory.

[Eduardo Silva ®]

Faça assim
if Dayofweek(data) = '1' then -> Domingo
Data := Data + 3
else
if Dayofweek(data) = '7' then -> Sábado
Data := Data + 4
else
if Dayofweek(data) = '6' then -> Sexta
Data := Data + 5;

  -Mensagem original-
  De: | Eduardo Tavares | [mailto:[EMAIL PROTECTED]
  Enviada em: quinta-feira, 18 de novembro de 2004 10:16
  Para: Delphi-BR
  Assunto: [delphi-br] Achar numero de dias pra programa de factory.


  Ola!

  Estou fazendo um programa pra uma factory.Preciso achar o numero de dias
  entre a data que a empresa recebeu o cheque(data do dia) e a data do
  vencimento.Preciso checar se a data do vencimento e sexta(dai eu adiciono
3
  dias sexta,sabado e domingo pra entrar com o cheque na segunda,dai ainda
  adiciono mais dois dias pra compensacao).Se nao for sexta, preciso checar
se
  e sabado (dai adiciono 2 dias) ou se e domingo(adiciono 1 dia).Se nao for
ou
  mesmo se for depois de checar esses dias eu preciso adicionar 2 dias e
  depois checar de novo se depois de ter adicionado a data com todos aqueles
  dias e sexta,sabado ou domingo.

  Eu to fazendo isso:

  var
DueDate, TodaysDate, DT : TDateTime;
i: integer;
  begin
DueDate := DT1;
TodaysDate := DT2;
{You need to add 1 because daysbetween returns ifference if the time
  differenceis more than 24 hrs. You can use DateSpan which gives an entire
  day for even a fraction of difference}
i := DaysBetween(DueDate,TodaysDate) ;
I := I + 1;
DT := DueDate + I;
if DayOfWeek(DT) = 6 then{ Check for Friday}
 i := i + 3
else
 if DayOfWeek(DT) = 7 then {Check for Saturday}
  i := i + 2
 else
 if DayOfWeek(DT) = 1 then {Check for Sunday}
  i := i + 1;
 i := i + 2; // {add two days}
  DT := DueDate + i;
 if (DayOfWeek(DT) = 1) Then
  I := I + 1;
 if (DayOfWeek(DT) = 7) then
   I := I + 2;
 Result := i;
  end;

  Mas as vezes funciona, as vezes nao...se eu coloco data de hoje 17/11/04 e
  data do vencimento 24/11/04 o numero de dias deveria ser 10 mas ta sendo
9.

  Que to fazendo de errado?

  Obrigado,
  Eduardo Tavares
  www.EduardoTavares.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]



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



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004


[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: Propriedades

[Raniere]

Faça assim Douglas:

type
  TValidacao = (tvLoteOP, tvCodigoProduto, tvNumeroPedido);

  TSeuComponente
  ...
FTipo: TValidacao;
  published
property Tipo: TValidacao read FTipo write FTipo;
...
  end;

E é só! Agora a propriedade Tipo irá aceitar os valores acima.

Fique com Cristo!

Raniere

--- Em [EMAIL PROTECTED], "Douglas - CPD" <[EMAIL PROTECTED]>
escreveu
> 
> Criei um componente, nesse componente criei uma propriedade: Tipo
> (string). Nessa propriedade digito alguns valores, onde comparo
dentro do
> componente, para saber o que validar.
> Valores da propriedade tipo :
> 
>  -LOTEOP
>  -CODIGOPRODUTO
>  -NUMEROPEDIDO
> 
> Gostaria de saber como faço para aparecer aquela lista, como por
exemplo a
> propriedade:
> 
> Align -> que tem a lista { alTop, alBottom, alNone }
> 
> Onde preciso incluir essa lista em meu componente ??
> 
> Obrigado.
> Douglas - CPD
> --
> ¿ e-mail enviado sem vírus ?
> Checked by AVG Anti-Virus.
> Version: 7.0.289 / Virus Database: 265.3.1 - Release Date: 15/11/2004
> 
>   --
> 
> ¿ e-mail enviado sem vírus ?
> Checked by AVG Anti-Virus.
> Version: 7.0.289 / Virus Database: 265.3.1 - Release Date: 15/11/2004
> 
> 
> [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: BDE no cliente

[Raniere]

Olá meu chapa!

A BDE precisa ser instalada em todos os clientes ou apenas no Servidor
de Aplicações caso esteja utilizando o modelo em 3 camadas.

Agora, para configurar... depende da forma como você incluiu os
parâmetros no componente TDatabase. Caso tenha incluído todas as
propriedades necessárias como ALIAS e Senha do Servidor não será
necessário fazer mais nada "a princípio".

Até.

Raniere

--- Em [EMAIL PROTECTED], "frcunhahell" <[EMAIL PROTECTED]> escreveu
> 
> Estou desenvolvendo uma aplicação com delphi 7 usando a BDE e com base
> oracle... 
> agora preciso disbonibilizar essa aplicão nas maquinas clientes, ja
> esta instaldo o client o q eh preciso ser feito a respeito da BDE
> nos clientes... tenho q instalar/configurar algo?
> 
> Estou encontrando um tanto de dificuldades, se alguem pudesse 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

 

[delphi-br] Re: impressão com fonte draft 17cpi

[Raniere]

Olá meu chapa!

Será que você precisa mesmo imprimir em modo gráfico?? Eu não conheço
um tipo de Fonte de Caracteres que é igual às de impressoras
matriciais (até procurei no Google mas não achei). Agora, não entendi
uma coisa: em outra mensagem você havia falado que não pode imprimir
enviando caracteres diretamente pois está utilizando Terminal
Server... Isto quer dizer que você está utilizando sistemas em 3
camadas? Esplique um pouco melhor para eu tentar entender.

Raniere

--- Em [EMAIL PROTECTED], "Campus" <[EMAIL PROTECTED]> escreveu
> Oi Raniere, é isso mesmo, quero imprimir numa matricial, uma epson
FX-1170,
> a principio sempre usei a fonte courrier
> 
> Preciso imprimir com o TPrinter, selecionando a fonte draft para
ficar mais
> rápido, mas só tenho disponível 10 e 12 cpi
> 
> 
> - Original Message - 
> From: "Raniere" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, November 17, 2004 5:39 PM
> Subject: [delphi-br] Re: impressão com fonte draft 17cpi
> 
> 
> 
> 
> Olá,
> 
> Download da fonte?? Parece-me que estás utilizando uma impressora
> matricial... Até onde eu sei, só algumas fontes estão disponíveis para
> cada modelo. Você deve procurar saber se o modelo que está tentando
> utilizar a possui. Agora, se que imprimir com esta fonte em uma
> impressora matricial que você tem certeza que possui esta fonte, você
> deverá procurar no manual da mesma quais os caracteres a enviar para
> que seja feita a mudança da fonte.
> 
> valeu,
> 
> Raniere
> 
> --- Em [EMAIL PROTECTED], "Campus" <[EMAIL PROTECTED]> escreveu
> > pessoal onde posso fazer o download dessa fonte ?
> 
> 
> 
> 
> 
> -- 
> < 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] Quick report

[info.suporte]

Alguem sabe qual a capacidade do gerar de relários do Delphi 5, estou tendo um 
problema, quando gero relários com masi de 80 paginas o sistema gera primeiroa 
a mensagem 
CAPABILITY NOT SUPPORTED e em seguida gera uma segunda mensagem dizendo LOCK 
FILE HAS GROWN TOO LARGE.

Alguem pode me explicar porque isso acontece?

PAULO FERNANDES
PORTO ALEGRE  RS




[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] Palm ou Pocket ? Qual o melhor ?

[Alcir]

Walter, excelente essa frase, resume bem a realidade... Minha preferência é
pelo Palm, convenço o cliente mostrando outros que usam,  onde o Palm travou
rarissimas vezes e quando isso ocorreu, normalmente, foi problema na minha
aplicação. Isso é ponto crucial, perda de dados nunca tive. A interface fica
devendo, mas nem tanto. E o custo nem se fala...

t+

-
Alcir Alexandre da Silva
Umuarama - Paraná - Brasil
-




- Original Message -
From: "Walter Alves Chagas Junior" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, November 18, 2004 11:08 AM
Subject: RES: [delphi-br] Palm ou Pocket ? Qual o melhor ?




Tem uma frase que eu nunca me esqueço e que foi falada por um apresentador
inglês, quando tive num Evento sobre Pocket PC na Symbol em Barueri/SP:

"O Palm é o que temos de melhor pra oferecer ao cliente, mas o Pocket PC é
exatamente o que o cliente quer"

Ou seja, em termos de praticidade, enconomia, custo, dentre outros, o Palm
deixa o PDA comer poeira. O que o PDA tem de vantajoso (dentre muitas
desvantagens) é que o Sistema Operacional dele é da Microsoft e com isto, há
uma interação bem maior com o PC do que o Palm. O ActiveSync é um senhor
degrau em relação ao HotSync. O PDA também tem uma carta atrás da manga
nesta guerra contra o Palm: A tecnologia Bluetooth que já vem incorporada ao
equipamento e ao Sistema Operacional. Mexer com Bluetooth no Palm é tarefa
pra Indiana Jones. No PDA é baba!

Dentre inúmeras vantagens e desvantagens, vamos ver algumas que me lembro
bem:

Pontos Positivos do PALM:

- Baixo consumo de bateria
- Praticidade e simplicidade
- Muitas linguagens e ferramentas de desenvolvimento para ele estão se
consolidadando no mercado
- Farta documentação na WEB a respeito do equipamento e seu Sistema
Operacional
- Comunicação em RF é muito boa e não consome tanta energia
- Baixo custo do equipamento.

Pontos negativos do PALM:

- Não trabalha com a tecnologia BlueTooth
- Não trabalha com o sistema de arquivos usado pelo PC
- Não trabalha com SQL e nem banco de dados na forma que conhecemos
- HotSync não é integrado com o Windows.
- Interface gráfica muito pobre (trabalha com 16 ou 256 cores somente)
- Acesso a Internet via Browser é dificil demais!

Pontos Positivos do PDA:

- Interface idêntica a do Windows permite o usuário se familiarizar com ele
rapidamente
- Trabalha (e bem) com a tecnologia BlueTooth
- Ferramenta de desenvolvimento interage com o Visual Studio (ainda que
muito pouco)
- ActiveSync interage completamente com o Sistema Operacional, permitindo
inclusive voce mexer dentro do PDA a partir do Windows Explorer
- Acesso a Internet via Browser muito bom!

Agora os pontos negativos do PDA:

- Alto consumo de bateria
- Pessima comunicação em RF
- É mais facil achar um trevo de cinco folhas do que achar documentação pra
programar pra ele.
- Sempre que for desenvolver pra ele, você precisa ter o SDK do fabricante
do equipamento (PDA) e dos equipamentos que irão interagir com ele
(impressoras, etc..)
- Sistema operacional Pesado e costuma travar (Também pudera! Quem é o
fabricante)
- Desenvolvimento atrelado a poucas ferramentas de desenvolvimento, sendo
que somente o Embedded Visual Tools permite explorar ao máximo os recursos
do PDA. O Satellite Forms permite também, mas com muitas limitações.
- Equipamento caro pra diabo!

Quanto a compatibilidade para futuras versões, isto ainda é um ponto crítico
em ambas as plataformas (Palm e PDA), visto que para cada nova versão,
costumam vir novas funcionalidades que requerem o processador X ou o Y, e
que muitas vezes, não é o processador que atende as versões anteriores. Isto
somente será possível, quando for padronizada a arquitetura de processamento
dos portáteis, assim como temos as do PC (x86, Risc, etc..). No PDA então
isto é uma zona danada!


 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia de telecomunicações
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200



> -Mensagem original-
> De: Thiago Nassif DAmico [mailto:[EMAIL PROTECTED]
> Enviada em: quinta-feira, 18 de novembro de 2004 10:25
> Para: [EMAIL PROTECTED]
> Assunto: [delphi-br] Palm ou Pocket ? Qual o melhor ?
>
>
>
>
> Eu sei que tem muitos pontos que deveríamos analisar para
> tentar debater essa questão de forma justa, mas :
>
> - preço
> - recursos
> - facilidade de programação
> - compatibilidade com futuras versões.
>
> Alguém sabe falar a respeito ? Será que um é melhor que o
> outro ou estão no mesmo nível ?
>
> Um abraço
>
>
> [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
>
>
>
>
>
>
>
>


[As partes dest

Re: [delphi-br] Re: Detectar IP da ADSL

[JUNIOR]

Aqui funciona Blz.
passo o parametro 2 e pega o ip do velox , parametro 1 pego ip da rede local




- Original Message - 
From: "lixeirod" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, November 17, 2004 3:45 PM
Subject: [delphi-br] Re: Detectar IP da ADSL




Já tenti, e por isso que eu não entendo como isso possa funcionar.

Você tem certeza que o IP que está te retornando é seu mesmo?

Tente verificar com um "ipconfig" ou entre nas configurações do
modem e confirme isso.

Me parece que ele simplesmente inventa um número IP conforme um
número que é passado por parâmentro. Até porque, não funciona se
enviar um número maior que 9.

Esse é o meu ponto de vista, mas posso estar enganado.

[]'s


--- Em [EMAIL PROTECTED], "JUNIOR"
<[EMAIL PROTECTED]> escreveu
> tente passar o parametro Get_IPD( 1 ),Get_IPD( 2 ),Get_IPD(3)..
> - Original Message - 
> From: "lixeirod" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Tuesday, November 16, 2004 6:04 PM
> Subject: [delphi-br] Re: Detectar IP da ADSL
>
>
>
>
> Esse não funciona. Ele gera um IP em função de um número.
> Não entendi como isso possa funcionar.
>
> []'s
>
>
> --- Em [EMAIL PROTECTED], "JUNIOR"
> <[EMAIL PROTECTED]> escreveu
> > tenta isso
> >
> >
> > Function Get_IPD( iPos : integer = 2 ):String;
> >   { Declare a Winsock }
> >   var
> >   WSAData: TWSAData;
> >   HostEnt: PHostEnt;
> >   Name:string;
> >   ii,ic : Integer;
> >   sIPS : Array[1..10] of String;
> >   begin
> >   FillChar( sIPS,SizeOf(sIPS),#0 );
> >   WSAStartup(2, WSAData);
> >   SetLength(Name, 255);
> >   Gethostname(PChar(Name), 255);
> >   SetLength(Name, StrLen(PChar(Name)));
> >   HostEnt := gethostbyname(PChar(Name));
> >   with HostEnt^  do
> >   Begin
> > ii := 0;
> > iC := 0;
> > repeat
> > inc( ic );
> > sIPS[ic] :=
> > Format('%d.%d.%d.%d',[Byte(h_addr^[ii]),Byte(h_addr^[ii+1]),Byte
> (h_addr^[ii+
> > 2]),Byte(h_addr^[ii+3])]);
> > inc( ii,4 );
> > until ic >=  10;
> >   end;
> >   WSACleanup;
> >   Result := sIPS[iPos];
> > end;
> >
> > boa sorte
> > - Original Message - 
> > From: "Vanderlei" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Friday, November 12, 2004 4:07 PM
> > Subject: [delphi-br] Detectar IP da ADSL
> >
> >
> >
> > Pessoal,
> >
> >
> > Preciso capturar o ip de uma conexao com a internet, ja tenho
> varias funcoes
> > para capturar o Ip Local, mas nao consigo nenhum q me de o
> endereco ip da
> > conexao adsl.
> >
> > Alguem poderia me ajudar.
> >
> > Att
> >
> > Vanderlei
> >
> > [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











-- 
< 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] Achar numero de dias pra programa de factory.

[| Eduardo Tavares |]

Ola!

Estou fazendo um programa pra uma factory.Preciso achar o numero de dias 
entre a data que a empresa recebeu o cheque(data do dia) e a data do 
vencimento.Preciso checar se a data do vencimento e sexta(dai eu adiciono 3 
dias sexta,sabado e domingo pra entrar com o cheque na segunda,dai ainda 
adiciono mais dois dias pra compensacao).Se nao for sexta, preciso checar se 
e sabado (dai adiciono 2 dias) ou se e domingo(adiciono 1 dia).Se nao for ou 
mesmo se for depois de checar esses dias eu preciso adicionar 2 dias e 
depois checar de novo se depois de ter adicionado a data com todos aqueles 
dias e sexta,sabado ou domingo.

Eu to fazendo isso:

var
  DueDate, TodaysDate, DT : TDateTime;
  i: integer;
begin
  DueDate := DT1;
  TodaysDate := DT2;
  {You need to add 1 because daysbetween returns ifference if the time 
differenceis more than 24 hrs. You can use DateSpan which gives an entire 
day for even a fraction of difference}
  i := DaysBetween(DueDate,TodaysDate) ;
  I := I + 1;
  DT := DueDate + I;
  if DayOfWeek(DT) = 6 then{ Check for Friday}
   i := i + 3
  else
   if DayOfWeek(DT) = 7 then {Check for Saturday}
i := i + 2
   else
   if DayOfWeek(DT) = 1 then {Check for Sunday}
i := i + 1;
   i := i + 2; // {add two days}
DT := DueDate + i;
   if (DayOfWeek(DT) = 1) Then
I := I + 1;
   if (DayOfWeek(DT) = 7) then
 I := I + 2;
   Result := i;
end;

Mas as vezes funciona, as vezes nao...se eu coloco data de hoje 17/11/04 e 
data do vencimento 24/11/04 o numero de dias deveria ser 10 mas ta sendo 9.

Que to fazendo de errado?

Obrigado,
Eduardo Tavares
www.EduardoTavares.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

 

RES: [delphi-br] Palm ou Pocket ? Qual o melhor ?

[Walter Alves Chagas Junior]

Tem uma frase que eu nunca me esqueço e que foi falada por um apresentador
inglês, quando tive num Evento sobre Pocket PC na Symbol em Barueri/SP:

"O Palm é o que temos de melhor pra oferecer ao cliente, mas o Pocket PC é
exatamente o que o cliente quer"

Ou seja, em termos de praticidade, enconomia, custo, dentre outros, o Palm
deixa o PDA comer poeira. O que o PDA tem de vantajoso (dentre muitas
desvantagens) é que o Sistema Operacional dele é da Microsoft e com isto, há
uma interação bem maior com o PC do que o Palm. O ActiveSync é um senhor
degrau em relação ao HotSync. O PDA também tem uma carta atrás da manga
nesta guerra contra o Palm: A tecnologia Bluetooth que já vem incorporada ao
equipamento e ao Sistema Operacional. Mexer com Bluetooth no Palm é tarefa
pra Indiana Jones. No PDA é baba!

Dentre inúmeras vantagens e desvantagens, vamos ver algumas que me lembro
bem:

Pontos Positivos do PALM:

- Baixo consumo de bateria
- Praticidade e simplicidade
- Muitas linguagens e ferramentas de desenvolvimento para ele estão se
consolidadando no mercado
- Farta documentação na WEB a respeito do equipamento e seu Sistema
Operacional
- Comunicação em RF é muito boa e não consome tanta energia
- Baixo custo do equipamento.

Pontos negativos do PALM:

- Não trabalha com a tecnologia BlueTooth
- Não trabalha com o sistema de arquivos usado pelo PC
- Não trabalha com SQL e nem banco de dados na forma que conhecemos
- HotSync não é integrado com o Windows.
- Interface gráfica muito pobre (trabalha com 16 ou 256 cores somente)
- Acesso a Internet via Browser é dificil demais!

Pontos Positivos do PDA:

- Interface idêntica a do Windows permite o usuário se familiarizar com ele
rapidamente
- Trabalha (e bem) com a tecnologia BlueTooth
- Ferramenta de desenvolvimento interage com o Visual Studio (ainda que
muito pouco)
- ActiveSync interage completamente com o Sistema Operacional, permitindo
inclusive voce mexer dentro do PDA a partir do Windows Explorer
- Acesso a Internet via Browser muito bom!

Agora os pontos negativos do PDA:

- Alto consumo de bateria
- Pessima comunicação em RF
- É mais facil achar um trevo de cinco folhas do que achar documentação pra
programar pra ele. 
- Sempre que for desenvolver pra ele, você precisa ter o SDK do fabricante
do equipamento (PDA) e dos equipamentos que irão interagir com ele
(impressoras, etc..)
- Sistema operacional Pesado e costuma travar (Também pudera! Quem é o
fabricante)
- Desenvolvimento atrelado a poucas ferramentas de desenvolvimento, sendo
que somente o Embedded Visual Tools permite explorar ao máximo os recursos
do PDA. O Satellite Forms permite também, mas com muitas limitações.
- Equipamento caro pra diabo!
 
Quanto a compatibilidade para futuras versões, isto ainda é um ponto crítico
em ambas as plataformas (Palm e PDA), visto que para cada nova versão,
costumam vir novas funcionalidades que requerem o processador X ou o Y, e
que muitas vezes, não é o processador que atende as versões anteriores. Isto
somente será possível, quando for padronizada a arquitetura de processamento
dos portáteis, assim como temos as do PC (x86, Risc, etc..). No PDA então
isto é uma zona danada!


 []s

 Walter Alves Chagas Junior
 Projeto e desenvolvimento
 Telemont Engenharia de telecomunicações
 [EMAIL PROTECTED]
 Fone: (31) 3389-8215 Fax: (31) 3389-8200
 
 

> -Mensagem original-
> De: Thiago Nassif DAmico [mailto:[EMAIL PROTECTED]
> Enviada em: quinta-feira, 18 de novembro de 2004 10:25
> Para: [EMAIL PROTECTED]
> Assunto: [delphi-br] Palm ou Pocket ? Qual o melhor ?
> 
> 
> 
> 
> Eu sei que tem muitos pontos que deveríamos analisar para 
> tentar debater essa questão de forma justa, mas : 
> 
> - preço
> - recursos
> - facilidade de programação
> - compatibilidade com futuras versões.
> 
> Alguém sabe falar a respeito ? Será que um é melhor que o 
> outro ou estão no mesmo nível ?
> 
> Um abraço
> 
> 
> [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
> 
> 
> 
> 
>  
> 
> 
> 


[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] Duviadas com arredondamentos

[| Eduardo Tavares |]

Ola!

Estou tendo uns probleminhas na hora de fazer umas contas.
Aqui eu calculo o desconto que e baseado na porcentagem ao dia.
  VDesc := 
CalculaDesconto(NumDias,edtValor.asCurrency,StrtoInt(edtTaxa.Text));
  lstDesconto.Items.Add(FormatFloat('0.00',VDesc));
Aqui eu somo em um MaskEdit todos os valores que estao sendo adicionados:
  TotDesc := TotDesc + VDesc;
  edTotalDesc.Text := FormatFloat('0.00',TotDesc);
So que se o primeiro valor e 0.02,dai ele comeca somando certo quando chega 
no resultado 0.08 se eu adiciono mais um ele vai pra 0.09 ao inves de ir pra 
0.10.Como fazer pra ele nao arredondar?

Obrigado,
Eduardo Tavares 




-- 
< 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] Verificar se data está dentro de intervalo

[er83pet04]

Como posso fazer p/controlar que a data da tabela 2 deve estar entre 
as datas de início e fim da tabela 1, se estiver dentro do intervalo 
= ok senão exibe msg p/usuário dizendo que só pode ser incluída data 
que esteja entre as datas de início e fim. Como posso fazer isso?

Tenho as seguintes tabelas:

TABELA 1 (COD(PK), DATA_INICIO, DATA_FINAL)
TABELA 2 (COD_2(PK), DATA, COD(FK))

Obrigada,





-- 
< 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] Palm ou Pocket ? Qual o melhor ?

[Vinicius Barreira]

Palm - hardware mais barato, BEM mais barato; para fazer software de 
mercado, vale à pena levar em conta isso.

Pocket - conforto e praticidade do sistema operacional windows; mas os 
equipamentos são muito caros.

Há quem diga que o Palm é sistema operacional sem futuro garantido; mas não 
dá pra ter certeza absoluta, até mesmo porque a própria Microsoft vive 
soltando boatos negativos a respeito do Linux e o Delphi.

[ ] 's

Vinicius Barreira
São Bernardo do Campo - SP
Delphi 7 + Firebird + IBX
Software para Hoteis
Skipe: vinibarr
Icq 74495946


- Original Message - 
From: "Thiago Nassif DAmico" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, November 18, 2004 10:25 AM
Subject: [delphi-br] Palm ou Pocket ? Qual o melhor ?



Eu sei que tem muitos pontos que deveríamos analisar para tentar debater 
essa questão de forma justa, mas :

- preço
- recursos
- facilidade de programação
- compatibilidade com futuras versões.

Alguém sabe falar a respeito ? Será que um é melhor que o outro ou estão no 
mesmo nível ?

Um abraço

[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






**
Scanned by  eScan  Anti-Virus  and  Content Security Software.
Visit http://www.mwti.net for more info on eScan and MailScan.
**



-- 
< 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] Palm ou Pocket ? Qual o melhor ?

[Thiago Nassif DAmico]

Eu sei que tem muitos pontos que deveríamos analisar para tentar debater essa 
questão de forma justa, mas : 

- preço
- recursos
- facilidade de programação
- compatibilidade com futuras versões.

Alguém sabe falar a respeito ? Será que um é melhor que o outro ou estão no 
mesmo nível ?

Um abraço


[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] Detectar movimentação do mouse ou teclado

[Eduardo Silva ®]

Galera, há algum tempo atrás eu pedi a ajuda para que alguém me mostrasse
como detectar a movimentação do mouse ou do teclado para

que, se o micro ficasse sem uso por um determinado tempo, a minha aplicação
fosse finalizada.

Pois bem, um amigo da lista (não me lembro quem agora) me passou um site
onde falava sobre o assunto, eu fiz as dicas passadas pelo

site mas não funcionou.

Pegunto: será que alguém já conseguiu fazer isso na sua aplicação e poderia
me dar uma ajuda ?

Agradeço desde já.


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

( \_/ /\ \_/ )

 \   /  \   /

  \_/\_/

  /   /\   \


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004


[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] BDE no cliente

[frcunhahell]

Estou desenvolvendo uma aplicação com delphi 7 usando a BDE e com base
oracle... 
agora preciso disbonibilizar essa aplicão nas maquinas clientes, ja
esta instaldo o client o q eh preciso ser feito a respeito da BDE
nos clientes... tenho q instalar/configurar algo?

Estou encontrando um tanto de dificuldades, se alguem pudesse 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

 

Re: [delphi-br] OFF TOPIC - Como Limpar Mensagens no Servidor

[Fernando]

Entre via webmail e apague a de numero 80 e/ou outras que eventualmente 
causem o mesmo problema, e use outlook para baixá-las/apagá-las. Como há uma 
boa chance de que hajam outras mensagens q causem o mesmo problema, vá 
recebendo em lotes, ou seja, receba umas 10 e mande parar, depois mais 10 e 
assim por diante. É assim que faço qndo tenho esse problema.

Fernando Silva

- Original Message - 
From: "ahr_delphi" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, November 17, 2004 9:47 PM
Subject: [delphi-br] OFF TOPIC - Como Limpar Mensagens no Servidor

Tenho mais de 800 msg para receber, mas na de número 80 trava tudo.

Queria deletar todas... Como proceder?



-- 
< 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] teste de envio

[Flavio Kowalske]

não consigo enviar uma mensagem


adm. Flávio Kowalske Mariano

Programador e Desenvolvedor Web
Barbacena - Minas Gerais - (32) 9962.0714



-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!

[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] delphi com excel...

[Jeferson Adoryan]

ou vc pode dar um nome diferente pra cada arquivo
 
   if SaveDialog1.Execute then
  nomeplan := SaveDialog1.FileName; // abre a janela save do windows
   Excel := CreateOleObject('Excel.Application'); //cria o objeto
   Excel.Visible :=false; //deixa invisivel
   Excel.WorkBooks.Open(dm.direxecutavel+'modelo.xls'); // abre um modelo
 
//adiciona os dados
 
   try
  Excel.WorkBooks[1].SaveAs(nomeplan); //salva
  Excel.Visible:=true; // mostra o arquivo
   except
  Excel.Visible:=true; 
   end;


Jeferson Adoryan
Tecnico em Informática
Panambi - RS
Tel (55)9137 9119

-
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!

[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 a cor de uma coluna do DBgrid Conforme Condição

[Alcir]

No Evento OnDrawColumnCell da sua DBGrid coloque o seguinte:


with DBGrid1 do
  begin
If Fields[8].AsString='Sim' then
  begin
with Canvas do
  begin
Font.Style:=Font.Style+[fsStrikeOut];
Font.Color:=clRed;
  end;

if State = [gdSelected] then
  begin
Canvas.Brush.Color := Canvas.Font.Color;
Canvas.Font.Color := clWhite;
  end;

DefaultDrawDataCell( Rect, dbgrid1.columns[datacol].field, State );
  end
 else
  begin
with Canvas do
  begin
Font.Style:=Font.Style-[fsStrikeOut];
Font.Color:=clBlack;
  end;

if State = [gdSelected] then
  begin
Canvas.Brush.Color := Canvas.Font.Color;
Canvas.Font.Color := clWhite;
  end;

DefaultDrawDataCell( Rect, dbgrid1.columns[datacol].field, State );
  end;
  end;
end;


Até mais

-
Alcir Alexandre da Silva
Umuarama - Paraná - Brasil
-


- Original Message -
From: "Marcos Fonseca" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, November 17, 2004 7:05 PM
Subject: [delphi-br] Mudar a cor de uma coluna do DBgrid Conforme Condição


>
> Colegas do grupo , gostaria de saber como faço para
> mudar a cor de uma determinada coluna num Dbgrid em
> tempo de execução de acordo com uma condição ?
>
> Desde já agradeços a vossa colaboração.
>
>
>
>



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