Delphi 10 Seattle Como Colorir a Dbgrid ?

Delphi

04/04/2016

Boa Noite!

To querendo saber como colorir a grid no movo Delhpi não to conseguindo tem algum macete?
Eduardo Silva

Eduardo Silva

Curtidas 0

Respostas

Raylan Zibel

Raylan Zibel

04/04/2016

Boa Noite!

To querendo saber como colorir a grid no movo Delhpi não to conseguindo tem algum macete?


Não.

[img:descricao=dbgrid zebrado]http://arquivo.devmedia.com.br/forum/imagem/244662-20160404-223947.png[/img]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const [Ref] Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  grid: TDBGrid;
  row: Integer;
begin
  grid := Sender as TDBGrid;
  row := grid.DataSource.DataSet.RecNo;
  if Odd(row) then
    grid.Canvas.Brush.Color := clMoneyGreen
  else
    grid.Canvas.Brush.Color := clSkyBlue;
  grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
GOSTEI 0
Eduardo Mendonça

Eduardo Mendonça

04/04/2016

Bom Dia!

Eu pretendia fazer igual ao Delphi 7 onde tem a Properties => Color e a Properties FixedColor

No DELPHI 10 até tem essa Propriedade só que não Funciona (ou pelo menos não sei se estou configurando Correto.)
GOSTEI 0
POSTAR