mudando a cor de um dbgrid

Delphi

10/05/2004

eu queria saber como que faço para alterar as cores de um grid,como uma linha fica com a cor vermelha e o outro item vem com a cor verde

como faço isso ?


Anicetojunior

Anicetojunior

Curtidas 0

Respostas

Wbb

Wbb

10/05/2004

Tente assim:

procedure TfrmICMS.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   with (Sender as TDBGrid) do
   begin
      if ADOQuery1.FieldValues[´CAMPO´] then // neste exemplo é um campo True/False
      begin
         Canvas.Brush.Color := $00F95C3C; // Cor de fundo desejada
         Canvas.Font.Color := clWindow; // Cor de fonte
         Canvas.Font.Name := ´Arial´; // Fonte
         Canvas.Font.Size := 8; // Tamanho da fonte
      end;

      DefaultDrawColumnCell( Rect, DataCol, Column, State );
   end;
end;



GOSTEI 0
POSTAR