Sabtu, 14 Januari 2012





Mengubah Warna Baris Pada Komponen DBGrid Delphi
 


Pada saat kita menggunakan komponen DBGrid di dalam Delphi, kita dapat mengubah warna baris dari setiap data yang ditampilkan. Biasanya, para programmer akan membuat warna yang berlainan antara baris ganjil dan genap. Tujuannya adalah agar data dalam tabel (komponen DBGrid) mudah untuk dibaca karena adanya pembatas warna.

Pekerjaan semacam ini sangat mudah dilakukan di dalam Delphi, yaitu dengan cara mengisikan kode sederhana pada event OnDrawColumnCell dari komponen DBGrid.

Berikut ini langkah-langkah yang Anda perlukan (saya menggunakan Delphi 7 untuk mendemonstrasikan tutorial ini):
  1. Siapkan project baru (File | New Application)
  2. Tempatkan komponen ClientDataSet (terletak pada page Data Access)
  3. Isi properti FileName dari ClientDataSet1 dengan file "C:\Program Files\Common Files\Borland Shared\Data\customer.xml"
  4. Tempatkan komponen DataSource (terletak pada page Data Access), lalu set properti DataSet ke ClientDataSet1
  5. Tempatkan komponen DBGrid (page Data Controls), lalu set properti DataSource ke DataSource1
  6. Isikan kode di bawah ini ke dalam event OnDrawColumnCell dari komponen DBGrid1
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  barisGenap: boolean;
begin
  // menentukan baris genap atau ganjil.
  // Jika genap, variabel akan bernilai true
  barisGenap := ClientDataSet1.RecNo mod 2 = 0;
  if barisGenap then begin
    // menentukan warna latar (background)
    DBGrid1.Canvas.Brush.Color := $00CD9E85;
    // menentukan warna teks
    DBGrid1.Canvas.Font.Color := clWhite;
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Tidak ada komentar:

Poskan Komentar