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

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

more 14 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 14 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
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- query error = ngehank.?
by nurez in Hal umum tentang Pascal Indonesia more 14 years ago - login error
by putukaca in Hal umum tentang Pascal Indonesia more 14 years ago - error di macOS
by dannyong1999 in Tip n Trik Pemrograman more 14 years ago - Tanya Cara Compact And Repair DiFireBird
by bendot20 in FireBird more 12 years ago - if pada memo
by nurez in Tip n Trik Pemrograman more 13 years ago - DBGrid masking??
by adokonax in Tip n Trik Pemrograman more 14 years ago - kenapa Suara lebih dulu daripada label.caption ?
by gormet in Multimedia & Graphic Enhancement more 12 years ago - Pencarian dg 2 parameter?
by rose_see in MySQL more 13 years ago - [tanya]shellexecut
by Iansx in Hal umum tentang Pascal Indonesia more 14 years ago - Tabrakan di TADOConnection
by Akuna-Matata in Network, Files, I/O & System more 13 years ago