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'
0 comments:
Post a Comment
Jangan Lupa Memberikan Komentar, Namun Tolong Agar Menggunakan Bahasa Yang BAIK dan SOPAN Terima Kasih...