Cara membuat warna pada DBGrid di delphi

Untuk memperindah View data pada DBGrid di Delphi kita dapat memberikan warna sesuai dengan data yang telah ditentukan dengan warna misalnya dengan warna biru, warna biru tersebut aka ada pada setiap recordnya. Caranya bagaimana, Pada event on DrawColumnCell dengan menambahkancode berikut:

Procedure TFkaryawan.dbgkaryawanDrawColumnCell(Sender: TObject;const 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 := $00E1D7D5
else
grid.Canvas.Brush.Color := $00C0F1B1;
grid.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
      Apabila anda ingin mengganti dengan field(kolom) yang lainnya, cara nya gampang tinggal mengganti tulisan "Salary" diatas dengan nama field yang anda inginkan beserta tipe datanya.
Contoh:

Table1.FieldByName('Continent').AsString = 'South America'

Semoga bermanfaat untuk menyelesaikan tugas-tugasnya.

Author : Mahir Selalu

Share this

Related Posts