Arsip: [DBGrid] Baris Ganjil dan Genap Beda Warna?

more 16 years ago
adokonax
mohon petunjuk dari enyang guru or temen2 ku......
trima kasih sbelumnya
BEST REGARDs

more 16 years ago
ansr
kalo ga salah dah ada dbgrid belang,
aku juga blom setiap kali nyoba download selalu error..... :(
ato mungkin karena aku pake firefox, jadi gak bisa download" onerror="this.style.display='none'"/>

more 16 years ago
lord_kimm
sumber: http://klik-kanan.com/delphi/dbgrid.shtml
============================================================
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'
============================================================
Kembangkan sendiri ajahmore ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Ask: About mySQL tools ?
by cyber_hecker in MySQL more 17 years ago - Menampilkan image captcha di Twebbrowser
by kusqus in Web Programming more 13 years ago - cara memindahkan kursor ADOTable
by shindo in Tip n Trik Pemrograman more 16 years ago - daftar
by rini in Tip n Trik Pemrograman more 16 years ago - Format Gif di delphi
by Rogeb_Shewrite in Hal umum tentang Pascal Indonesia more 16 years ago - bikin installer delphi didalamnya udah ada mysql-nya
by lela in Hal umum tentang Pascal Indonesia more 16 years ago - Lomba Hack-Shareware Aplikasi Delphi (spontanitas)
by LuriDarmawan in Hal umum tentang Pascal Indonesia more 17 years ago - Ngeprint kuitansi pake Quick Report
by fatahjunaidi in Reporting more 14 years ago - kritik soal artikel nih
by agusmade in Kritik & Saran more 17 years ago - [ASK] Ada Apa Dengan ServerMerdeka..??
by deLogic in OOT more 16 years ago