O componente DBGrid é muito utilizado pelos desenvolvedores Delphi para apresentar dados de um DataSet para o usuário, seja esses dados resultado de um select no banco de dados, registros temporários, etc.
Neste post irei mostrar como destacar uma coluna e as células da coluna conforme seu valor.
Para implementar essa rotina, iremos utilizar o evento OnDrawColumnCell do DBGrid.
procedure TForm1DBGrid1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TDBGrid(Sender) do
begin
// verifica se o nome da coluna é igual a salario
if AnsiLowerCase(Column.FieldName) = 'salario' then
begin
// altera a cor de fundo da coluna
Canvas.Brush.Color := clSilver;
// se o valor da célula for maior que 2500 altera a cor de fundo e a cor da fonte da célula
if Column.Field.AsFloat > 2500 then
begin
Canvas.Brush.Color := clRed;
Canvas.Font.Color := clYellow;
end;
end;
Canvas.FillRect(Rect);
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
end;
Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】
Nenhum comentário:
Postar um comentário