1. Klik pada komponen DBGrid kemudian pada Object Inspector pilih Event lalu pilih Event DrawColumnCell kemudian klik dua kali.
2. Kemudian sobat masukan kodenya sebagai berikut :
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DBGrid1.DataSource.DataSet.RecNo mod 2 =0 then
DBGrid1.Canvas.Brush.Color := clskyBlue; //pilih warnanya
DBGrid1.DefaultDrawColumnCell(rect, datacol, column, state);
end;
3. Bila sudah menuliskan kodenya silahkan sobat jalankan aplikasinya dengan menekan tombol F9.
~selamat mencoba~
ko disaya tetep aja ga berwarna yah.. :)
ReplyDeletepadahal sama kan :
procedure TFMasterOrder.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If DBGrid1.DataSource.DataSet.RecNo mod 2=0 Then
DBGrid1.Canvas.Brush.Color:=clSkyBlue;
DBGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
end;
wah saya suka sekali nich dengan tips tips ini..
ReplyDeletethanks...
ReplyDeletesangat membantu sekali