Cara Membuat tampilan DBGrid warna warni

Secara default Dbgrid hanya dapat mengatur satu warna. Jika kita ingin dua warna seperti yang ditunjukkan di bawah ini, jadi kita perlu menambahkan coding ke Event tersebut.

Tambahkan perintah dalam Event GridDrawColumnCell


procedure TFrmLapJual.GridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (Qbrowse.RecNo mod 2)=0 then
Grid.Canvas.Brush.Color:=$00E1FFF9
else
Grid.Canvas.Brush.Color := $00FFEBDF;
Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Note:

• (Qbrowse.RecNo mod 2)adalah record dari dataset yang ada di dalam dbgrid