Memberi Warna pada record DBGRID sesuai data pada Delphi

Bagaimana memberi warna pada DBGrid sesuai dengan data yang telah kita tentukan, misalnya warna biru pada record dengan data Salary lebih besar dari 40000 ?

Jawaban :

Caranya cukup mudah, Anda tinggal menambahkan kode berikut ini pada event OnDrawColumncell dari DBGrid.:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
     if Table1.FieldByName('salary').AsInteger > 40000 then
     TDBGrid(Sender).Canvas.Brush.Color := $00E9D358;
     TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Contoh hasil :

Apabila Anda ingin mengganti dengan field (kolom) lain, Anda tinggal mengganti tulisan "Salary" di atas dengan nama field yang Anda inginkan beserta tipe datanya.

Contoh :

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