|
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
|
