[DELPHI] DESTACAR LINHA DO DBGRID PELO VALOR DE UMA CÉLULA

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 as linhas do DBGrid para os registros que tiverem o salário maior que 6.230,00.

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

    if DataSource.DataSet.FieldByName('salario').AsFloat > 6230 then

    begin

      if (gdSelected in State) then

        Canvas.Brush.Color := clRed

      else

      begin

        Canvas.Font.Style := [fsBold];

        Canvas.Font.Color := clRed;

      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!【ツ】