Zebrando DBGrid Lazarus

Delphi

14/12/2017

Boa tarde, como faço para zebrar a Grid em Lazarus, pois em Delphi eu uso este código mais da erro na última linha, ver código do Delphi abaixo

if not odd(dm.myQuery.RecNo) then
    if not (gdSelected in State) then
      begin
      DBGrid1.Canvas.Brush.Color := clMoneyGreen;
      DBGrid1.Canvas.FillRect(Rect);
      DBGrid1.DefaultDrawDataCell(rect,Column.Field,state);
    end;
Helton Garrido

Helton Garrido

Curtidas 0

Respostas

Juliano

Juliano

14/12/2017

Opa, dá uma olhada nesse material, vai te ajudar.

http://www.pp4s.co.uk/main/tu-form-dbgrid-laz.html
GOSTEI 0
Natanael Ferreira

Natanael Ferreira

14/12/2017

Não uso Lazarus. Mas configure as propriedades "Color" e "AlternateColor" do DBGrid.

DBGrid1.AlternateColor:=clBlue;
DBGrid1.Color:=clRed;


Veja estes links:
https://forum.lazarus.freepascal.org/index.php?topic=15601.0
http://forum.lazarus.freepascal.org/index.php?topic=31754.0
GOSTEI 0
POSTAR