Sunday
2024-05-05
11:42 AM

Creative Daroe 2009
Login form
Polling(Isi ya)
Apakah sudah beramal hari ini??
Total of answers: 32
Search
Posisi Anda
Kotak Komentar
Berita Terkini
Your IP
Data Komputer kamu free counters

My site

[ New messages · Members · Forum rules · Search · RSS ]
  • Page 1 of 1
  • 1
Forum Computerscommunity » Kategori Forum nya Computers Community » Software or Pemograman Computers » Memberi warna record aktif pada TDBGrid Delphi
Memberi warna record aktif pada TDBGrid Delphi
YugiDate: Friday, 2010-12-17, 6:01 AM | Message # 1
Private
Group: Users
Messages: 1
Reputation: 0
Status: Offline
Mungkin Anda ingin memberi warna record aktif pada TDBGrid dengan warna yang lain (tidak sama dengan warna record yang tidak atif). Untuk itu tambahkan kode berikut ini pada even DBGrid.OnDrawColumnCell :

Type
TCreatedYugi = class(TCustomDBGrid);
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);

Begin
with TCreatedYugi(Sender) do
if DataLink.ActiveRecord = Row - 1 then
Canvas.Brush.Color := clRed
Else
Canvas.Brush.Color := clWhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

memberikan warna cell active DBGrid menjadi merah...
sorry kalo post kurang menarik..... biggrin

 
Forum Computerscommunity » Kategori Forum nya Computers Community » Software or Pemograman Computers » Memberi warna record aktif pada TDBGrid Delphi
  • Page 1 of 1
  • 1
Search:

Welcome to Website Computers Community Bani Saleh Bekasi..Semoga bisa menambah ilmu melalui web ini