22 agosto 2011

Trocando a cor de uma célula num DBGrid

Este código é útil para se trocar a cor de uma única célula no DbGrid, para se destacar, por exemplo um valor editado manualmente numa tabela de pedidos.  [Continue lendo]



No evento onDrawColumnCell do dbgrid coloque o código para mudar a cor da fonte do dbgrid e a chave do método para "desenhar" os dados.


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const
          Rect: TRect;
          DataCol: Integer;
          Column: TColumn;
          State: TGridDrawState);
begin
  if (Column.Field.FieldName = 'NOMEDOCAMPO') then
  begin
    if condição then // coloque aqui sua condição
    begin
      DBGrid1.Canvas.Brush.Color:= clAqua;
      DBGrid1.Canvas.Font.Color:= clWindowText;
      DBGrid1.Canvas.FillRect(Rect);
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
  end;
end;

Nenhum comentário:

Postar um comentário