Cara membuat warna pada DBGrid di delphi

Cara membuat warna pada DBGrid di delphi


Untuk memperindah view data pada DBGrid di Delphi dengan warna yang berbeda pada setiap recordnya cukup dengan menambahkan code berikut : di DBGRid pada event on DrawColumnCell.
procedure TFkaryawan.dbgkaryawanDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);var grid : TDBGrid; row : integer; begin grid := sender as TDBGrid; row := grid.DataSource.DataSet.RecNo; if Odd(row) then grid.Canvas.Brush.Color := $00E1D7D5 else grid.Canvas.Brush.Color := $00C0F1B1; grid.DefaultDrawColumnCell(Rect, DataCol, Column, State) ; end; semoga ini bermanfaat walaupun sudah banyak yang posting tentang mewarnai grid..

visit link download

Comments

Popular posts from this blog

ABLiker APK Latest v1 1 Free Download For Android

Cara Install Windows 10

Adobe Photoshop CS6 13 0 1 Extended Free Software