Memberi Warna kolom Record Tertentu Pada Dbgrid Delphi

Embarcadero

Salam Blogger Indonesia, Kali ini saya berbagi artikel jikalau teman-teman membutuhkanya ulasan singkat ini saya tuliskan di blog saya hanya sebagai catatan arsip, Tapi kalau sobat bloger membutuhkan juga bisa di peragakan di rumah koh. 

Tutorial kali ini adalah bagai mana cara memberi warna pada record tertentu pada DBgrid pada delphi, Contoh kasus dalam data DBgridh ada banyak record data dalam recoerd data tersebut terdapat kolom status yang hanya berisikan (Aktif dan Passif ) pada record Pasif kita menginginkan mempunyai warna yang berbeda, sebagai inifo saya menggunakan komponen DBGridEH Di bawah ini kode nya :

Baca Juga Cara : Installasi Delphi 7 Lengkap bergambar

Klik Pada Menu Object Inspector > Event  > OnAdvDrawDataCell pada DBGridEh

[
procedure TFormDemo.DBGridEhAdvDrawDataCell(Sender: TCustomDBGridEh; Cell,  AreaCell: TGridCoord; Column: TColumnEh; const ARect: TRect;  var Params: TColCellParamsEh; var Processed: Boolean);
begin
if Column.Field.DataSet.FieldByName('Setatus_Nasabah').AsString = 'Pasif' then
begin
Params.Font.Style := [fsBold];
Params.Font.Color := clWindow;
Params.Background := Clred;
end;
end;
]

Dan jika kode di bawah berfungsi jika sobat ingin memberi warna pada kolom mata uang, Dalam contoh saya mempunyai kolom ( Saldo_Nasabah ) Pada Database, Dan Ingin Memberi warna jika saldo dibawah 1000.

[
procedure TFormDemo.DBGridEhAdvDrawDataCell(Sender: TCustomDBGridEh; Cell,
  AreaCell: TGridCoord; Column: TColumnEh; const ARect: TRect;
  var Params: TColCellParamsEh; var Processed: Boolean);
begin
if Column.Field.DataSet.FieldByName('Saldo_Nasabah').AsInteger < 1000 then
begin
  Params.Font.Style := [fsBold];
  Params.Font.Color := clWindow;
  Params.Background := Clred;
end;
end;
]

Oke Seikian dan trimakasih semoga artikel kali ini dapat bermanfaat bagi seboat-sobat blogger semua, Wasalam.