Delphi 10 Seattle Como Colorir a Dbgrid ?

04/04/2016

7

Boa Noite!

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

Posts

04/04/2016

Raylan Zibel

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;
Responder
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.)
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar