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..
Subscribe to:
Post Comments (RSS)
0 comments on Cara membuat warna pada DBGrid di delphi :
Post a Comment