Membuat DBGrid Berwarna

Bosan dengan tampilan DBGrid yang itu-itu saja, ubah tampilan DBGrid sobat jadi kombinasi berwarna sehingga sobat maupun user tidak bosan terhadap tampilan tabel tersebut selain itu lebih memudahkan untuk mengecek data tabel tersebut. Bagaimana cara membuat DBGrid menjadi berwarna sobat bisa lihat caranya sebagai berikut :

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~

Related Post:

3 comments:

  1. ko disaya tetep aja ga berwarna yah.. :)

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

    ReplyDelete
  2. wah saya suka sekali nich dengan tips tips ini..

    ReplyDelete

Berikan respon yang relevan. Salam semangat ^_^