Colorir linha do DBGRID
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
Curtidas 0
Respostas
Turbo Drive
11/02/2004
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.
GOSTEI 0
Marco Salles
11/02/2004
Sobe
GOSTEI 0