Jhonas

Eu uso esse e funciona procedure TTeste.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If odd(CDS_Query.RecNo) then // coloque aqui a sua query ou table begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.Brush.Color:= cl3DLight; end else begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.Brush.Color:= clWhite; end; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

Neste endereço tem as instruçoes (ingles) para fazer isto, mas um lembrete o usuario tem que ser um administrador http://www.jrsoftware.org/iskb.php?bde

Solução : modifique as propriedades das contas de usuario no painel de controle do windows. As contas de usuarios não tem as mesmas propriedades da conta do administrador, elas são mais limitadas.

verifique na se tem declarado na uses ... Excel_TLB, ComObj, ActiveX;

Incapaz de conectar para host ' servidor' verifique o nome da maquina onde esta o banco de dados, se estiver ok da uma verificada no IBConsole, veja se consegue fazer conexão com o banco de dados e no Interbase Server Manager verifique se o serviço esta rodando. por ultimo verifique a conexão de rede.

Para executar mais de um comando, voce deve usar begin end; na rotina procedure TFMercadoria.RadioGroup7Click(Sender: TObject); begin case RadioGroup7.ItemIndex of 1:begin DBGridPesquisa.DataSource:= DM.DtsQryMercadoria_NOME; DBNavigator2.DataSource:= DM.DtsQryMercadoria_NOME; BitBtn3.Visible:=false; BitBtn5.Visible:=true; end; 2:begin DBGridPesquisa.DataSource:=DM.DtsQryMercadoria_COD; DBNavigator2.DataSource:=DM.DtsQryMercadoria_COD; BitBtn5.Visible:=false; BitBtn3.Visible:=true; end; end; end;

Amigo ... o Rave Reports é pago, mas se quiser instalar versões demo vai achar nete endereço http://www.nevrona.com/Default.aspx?tabid=164

Oi Bruno ... na Opção LocaleCode voce pode tentar os seguintes codigos 10000 - Standard Macintosh 1250 - Windows EE 1251 - Russian Windows 1252 - Windows ANSI 1253 - Greek Windows 437 - U.S. MS-DOS 620 - Mazovia (Polish) MS-DOS 737 - Greek MS-DOS (437G) 850 - International MS-DOS 852 - EE MS-DOS (Latin II) 861 - Iceland MS-DOS 865 - Nordic MS-DOS 866 - Russian MS-DOS 895 - Kamenicky (Czech) MS-DOS

procure os componentes numa das paletas, no delphi 3 e no 4 não me lembro em qual esta, mas existem sim, tanto que o demo era para o delphi 3.

Neste endereço voce vai ter a idéia de como fazer: http://www.fabricio.pro.br/default.asp?ACT...;id=1&mnu=1

Mandei o arquivo para o seu email ...ok ?

Caso o erro seja ' Impressão muito larga para o papel ' voce deve mudar a posição do papel para paisagem , pois a posição retrato não esta comportando a largura do dbgrid.

ok ... faça esta mudança: procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); begin if Button = nbInsert then DBEdit1.Text := inttostr(1); //pode ser numero ou uma variavel inteira end;

Voce tem o delphi 3 ? ele tem um demo chamado SIMPMAIL que funciona perfeitamente ... voce faz a conexão manualmente mas pode deixa-lo automatico e como ele tem os fontes voce pode modifica-lo. caso voce não tenha o delphi 3 me da seu email que te envio o dpr.

Isto acontece tambem com o DBase mas não vi este tipo de ocorrencia com o paradox e nem com o interbase... tente fazer o seguinte teste... ao invés de usar o sql server verifique se isto ocorre dentro de um dbgrid e me informe. Por mais estranho que possa parecer Micheus, este tipo de coisa acontece em alguns registros e não em todos. quanto ao LANGDRIVE do MSQL 7 tente usar o Borland PTG Latin-1 caso não de certo tente o MSSQL ANSI Greek

na propriedade SkinFormType deve estar selecionado sfMainform .... realmente não sei como esta este seu programa mas eu tenho um programa que usa o componente skin e com aquele codigo e está funcionando legal;

OK ... então mude o comando da skin para active do form e teste if not SkinData1.Active Then SkinData1.Active := True; // aqui voce ativa a skin se ainda assim não funcionar voce pode jogar a skin no segundo formulario da sua aplicação, ai ele não vai interferir na apresentação do formulario FrmSplash;

Bom neste caso voce tera que deixar a skin desativada , ou seja na propriedade active vai deixar como false.. a modificação para o seu form esta ai: unit Fsplash; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls; type TFrmSplash = class(TForm) Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; private { Private declarations } public { Public declarations } end; var FrmSplash: TFrmSplash; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Form1.Brush.Style := bsClear; // aqui voce coloca o codigo da janela Form1.BorderStyle := bsNone if not SkinData1.Active Then SkinData1.Active := True; // aqui voce ativa a skin end; end; Verifiqei um erro ... corrigindo procedure TFrmSplash.FormCreate(Sender: TObject); // trocar pelo nome do seu form begin Form1.Brush.Style := bsClear; // aqui voce coloca o codigo da janela Form1.BorderStyle := bsNone if not SkinData1.Active Then SkinData1.Active := True; // aqui voce ativa a skin end; Bom neste caso voce tera que deixar a skin desativada , ou seja na propriedade active vai deixar como false.. a modificação para o seu form esta ai: correção no nome do form unit Fsplash; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls; type TFrmSplash = class(TForm) Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; private { Private declarations } public { Public declarations } end; var FrmSplash: TFrmSplash; implementation {$R *.dfm} procedure TFrmSplash.FormCreate(Sender: TObject); begin FrmSplash.Brush.Style := bsClear; // aqui voce coloca o codigo da janela FrmSplash.BorderStyle := bsNone if not SkinData1.Active Then SkinData1.Active := True; // aqui voce ativa a skin end; end;

Acho que o Micheus já respondeu a sua questão ... é isso ai ...

Da uma verificada no Language Drive do MSSQL 7 acho que da pra resolver por ele;

realmente eu achei na net, mas modifiquei o codigo para funcionar como eu queria ... o servidor de email que eu usei é do bol, mas caso voce já tenha usado e não funcionou existe alguns exemplos no prorpio delphi e caro Micheus eu não disse que esse codigo era meu ( mas caso voce não saiba codigos transcritos na net são de dominio publico a menos que o autor explicitamente diga ao contrario ). INPI

Esse problema tem haver com o codigo de pagina setado para o windows ... no xp ele deve estar no arquivo config.ini, no windows 95/98 ele esta no arquivo config.sys. esse caracter que aparece no final na verdade é um controle de pagina que não deveria aparecer. se quiser saber um pouco mais sobre o assunto veja: http://translate.google.com/translate?hl=p...Dpt-BR%26sa%3DG

coloca o seu codigo do seu form onde voce ativa a sua skin ... fica mais facil mostrar para voce onde fazer a alteração.

procedure TForm1.BitBtn1Click(Sender: TObject); begin Table1.EmptyTable; // limpar toda a tabela end; Se estiver usando um dbnavigator procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn); begin if Button = nbInsert then DBEdit1.Text := '1'; end;

Desenvolver um aplicativo para enviar e-mail. A seguir como é simples fazer com que um aplicativo envie, automaticamente, e-mails com as mais diversas finalidades. Primeiramente é necessário que o usuário tenha uma conta de e-mail cadastrada em algum servidor de e-mails. Em seguida o programador deve obter alguns dados com relação à sua conta de e-mail, listados abaixo: - host SMTP (para envio de mensagens) - port utilizado pelo servidor de e-mails - login e senha do usuário remetente. Neste exemplo será usado o Delphi 6 e uma conta de e-mail do Yahoo. Usaremos um componente que já vem no Delphi chamado IdSMTP que fará a comunicação com o servidor de e-mail, no caso o Yahoo. A escolha deste componente se deve ao fato de ele permitir autenticação com senha, um requisito de diversos servidores de e-mail disponíveis no mercado. Pois bem, vamos ao que interessa: Adicione ao seu formulário um componente IdSMTP, presente na aba Indy Client, e um IdMessage, da aba Indy Misc. Agora passaremos a configurar o IdSMTP, setando as propriedades a seguir: - AuthenticationType = atLogin - Host = smtp.mail.yahoo.com.br - Password = [senha do usuário do yahoo] - Port = 587 - UserId = [login do usuário do yahoo]. Apresentamos agora o código fonte da função utilizada para configuraro IdMessage e o IdSMTP, e enviar a mensagem. procedure EnviaMail( ) begin //Configuração do IdMessage (dados da mensagem) IdMessage1.From.Address := 'remetente@yahoo.com.br'; //e-mail do remetente IdMessage1.Recipients.EMailAddresses := 'destinatario@mail.com.br'; //e-mail do destinatário IdMessage1.Subject := 'Assunto do e-mail'; //Assunto IdMessage1.Body.Add('Mensagem do e-mail'); //Corpo da mensagem //Configuração do IdSMTP IdSMTP1.Host := 'smtp.mail.yahoo.com.br'; //Host SMTP do yahoo IdSMTP1.Port := 587; //Port do yahoo IdSMTP1.UserId := 'usuario'; //Login do usuário IdSMTP1.Password := 'senha'; //Senha do usuário IdSMTP1.Connect; //Estabelece a conexão IdSMTP1.Authenticate; //Faz a autenticação try IdSMTP1.Send(IdMessage1); //Envia a mensagem except showmessage('ERRO'); //Mensagem de erro end; end; Esse codigo eu testei e funciona ... voce deve modifica-lo para o seu uso.