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 =
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
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
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
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
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
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
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á
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
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
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!
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:
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
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
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:
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
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
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
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
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
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
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;
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
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
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
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
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
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á
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
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
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
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
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
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
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
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
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,
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
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
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
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
41 matches
Mail list logo