Saturday
2025-02-08
9:00 PM

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
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

 
  • Page 1 of 1
  • 1
Search:

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