[ Delphi ] Memberi Warna record pada DBGRID sesuai data

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 :

antasdelphi.blogspot.com

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'

Semoga bermanfaat ya kawan.

Posted by Antas Delphi on - Rating: 4.5

Title : [ Delphi ] Memberi Warna record pada DBGRID sesuai data
Description : Bagaimana memberi warna pada DBGrid sesuai dengan data yang telah kita tentukan, misalnya warna biru pada record dengan data Salary lebih ...