Olá pessoal achei este exemplo de DbGrid Zebrado em umas das apostilas minhas de programação, mas modifiquei do jeito que o meu projeto necessita, mas esta dando os seguinte erros:
Esses são os dados:
procedure Tfrmpraticas.DbgRelDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If Odd (FDtmIza.Praticas.RecNo) and (FDtmIza.Praticas.State <> dsInsert) Then
Begin // Colocar a unit DB na clausula Uses na unit da tela
DbgRel.Canvas.Brush.Color := clMoneyGreen; // muda a cor do pincel
DbgRel.Canvas.FillRect(Rect); // Preenche o fundo com a cor especificada
DbgRel.DefaultDrawDataCell(Rect, Column.Field, State); // desenha as células da grade
end;
end;
E ai dá este erro em Praticas // Praticas é a minha tabela que eu tenho o grid.
[Warning]Praticas.pas(431): Return value of function 'Tfrmpraticas.RetornaData' might be undefined
Pergunta
robinhocne
Olá pessoal achei este exemplo de DbGrid Zebrado em umas das apostilas minhas de programação, mas modifiquei do jeito que o meu projeto necessita, mas esta dando os seguinte erros:
Esses são os dados:
E ai dá este erro em Praticas // Praticas é a minha tabela que eu tenho o grid.
Link para o comentário
Compartilhar em outros sites
16 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.