Warna pada DBGrid sesuai data

Pertanyaan :
Bagaimana memberi warna pada DBGrid sesuai dengan data yang telah kita tentukan, misalnya warna biru pada record dengan data Population lebih besar dari 2,5 juta ?


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('Population').AsInteger > 25000000     then
     TDBGrid(Sender).Canvas.Brush.Color := $00E9D358;
     TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;


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


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


Download Contoh




back to tutorial delphi home....