Fórum Colorir linha do DBGRID #213408
11/02/2004
0
Alimento um DBGRID com a seguinte instrucao SQL :
Select Tipo,Descricao,valor,data
From Contaspagar
where verificador=N
quero destacar as linhas do DBGRID de vermelho onde as datas forem anteriores à data do dia(Para destacar as contas vencidas que nao foram pagas). Alguem tem alguma ideia de como fazer?
Select Tipo,Descricao,valor,data
From Contaspagar
where verificador=N
quero destacar as linhas do DBGRID de vermelho onde as datas forem anteriores à data do dia(Para destacar as contas vencidas que nao foram pagas). Alguem tem alguma ideia de como fazer?
Fabiomiranda
Curtir tópico
+ 0
Responder
Posts
12/02/2004
Turbo Drive
Retirado da edição 44 da revista clubedelphi:
No evento DrawColumnCell:
if Column.Field = Query1situacao then
begin
if Query1situacao.AsString = ´Vencidas´ then
begin
DBGrid1.Canvas.Font.Style := DBGrid1.Canvas.Font.Style + [fsBold];
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
end;
end;
Este código diz que, se a coluna ´situacao´ for igual a vencidas, então o dbgrid pinta de vermelho e em negrito.
No evento DrawColumnCell:
if Column.Field = Query1situacao then
begin
if Query1situacao.AsString = ´Vencidas´ then
begin
DBGrid1.Canvas.Font.Style := DBGrid1.Canvas.Font.Style + [fsBold];
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
end;
end;
Este código diz que, se a coluna ´situacao´ for igual a vencidas, então o dbgrid pinta de vermelho e em negrito.
Responder
Gostei + 0
12/02/2004
Marco Salles
Sobe
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)