Memberi Warna kolom Record Tertentu Pada Dbgrid Delphi
![]() |
Embarcadero |
Tutorial kali ini adalah bagai mana cara memberi warna pada record tertentu pada DBgrid pada delphi, Contoh kasus dalam data DBgridh ada banyak record data dalam recoerd data tersebut terdapat kolom status yang hanya berisikan (Aktif dan Passif ) pada record Pasif kita menginginkan mempunyai warna yang berbeda, sebagai inifo saya menggunakan komponen DBGridEH Di bawah ini kode nya :
Baca Juga Cara : Installasi Delphi 7 Lengkap bergambar
Klik Pada Menu Object Inspector > Event > OnAdvDrawDataCell pada DBGridEh
[
procedure TFormDemo.DBGridEhAdvDrawDataCell(Sender: TCustomDBGridEh; Cell, AreaCell: TGridCoord; Column: TColumnEh; const ARect: TRect; var Params: TColCellParamsEh; var Processed: Boolean);
begin
if Column.Field.DataSet.FieldByName('Setatus_Nasabah').AsString = 'Pasif' then
begin
Params.Font.Style := [fsBold];
Params.Font.Color := clWindow;
Params.Background := Clred;
end;
end;
]
Dan jika kode di bawah berfungsi jika sobat ingin memberi warna pada kolom mata uang, Dalam contoh saya mempunyai kolom ( Saldo_Nasabah ) Pada Database, Dan Ingin Memberi warna jika saldo dibawah 1000.
[
procedure TFormDemo.DBGridEhAdvDrawDataCell(Sender: TCustomDBGridEh; Cell,
AreaCell: TGridCoord; Column: TColumnEh; const ARect: TRect;
var Params: TColCellParamsEh; var Processed: Boolean);
begin
if Column.Field.DataSet.FieldByName('Saldo_Nasabah').AsInteger < 1000 then
begin
Params.Font.Style := [fsBold];
Params.Font.Color := clWindow;
Params.Background := Clred;
end;
end;
]
Oke Seikian dan trimakasih semoga artikel kali ini dapat bermanfaat bagi seboat-sobat blogger semua, Wasalam.
Posting Komentar untuk "Memberi Warna kolom Record Tertentu Pada Dbgrid Delphi"
ETIKA DALAM BERKOMENTAR
☑ Silahkan tinggalkan pesan jika Anda mempunyai Kritik dan Saran, atau mempunyai pertanya'an seputar topik pembahasan.
☑ Dimohon untuk memberikan komentar dengan sopan dan ramah.
☑ Hindari penerapan link aktif dan spam dalam berkomentar.
☑ Silahkan pergunakan etika dalam berkomentar, hindari komentar yang bersifat merugikan orang lain, porno grafi, kebencian dan komentar yang mengandung SARA.
☑ okflash.net berhak menghapus komentar yang terindikasi spam, dan mengandung link aktif, dan komentar yang melanggar etika berkomentar.
☑ okflash.net sangat menghargai keramahan dalam komentar Anda.
☑ okflash.net mengucapkan trimakasih atas kunjungan dan komentar Anda.