Zebrando DBGrid Lazarus
14/12/2017
0
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
Curtir tópico
+ 0
Responder
Posts
20/12/2017
Juliano
Opa, dá uma olhada nesse material, vai te ajudar.
http://www.pp4s.co.uk/main/tu-form-dbgrid-laz.html
http://www.pp4s.co.uk/main/tu-form-dbgrid-laz.html
Responder
20/12/2017
Natanael Ferreira
Não uso Lazarus. Mas configure as propriedades "Color" e "AlternateColor" do DBGrid.
Veja estes links:
https://forum.lazarus.freepascal.org/index.php?topic=15601.0
http://forum.lazarus.freepascal.org/index.php?topic=31754.0
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)
