Tarmuji

jika kita ingin memberikan warna yang berbeda pada dbgrid sesuai dengan kebutuhan, misalkan field status dengan pilihan open, cancel, progress dan done itu berbeda-beda warnanya sesuai masing-masing. Langkah-langkahnya sebagai berikut :

- simpan procedure di dbgrid event on draw colloum cell
- if (trim(Column.Title.Caption) = ’status pickup’) or (trim(Column.Title.Caption) = ‘Status Pickup’)
or (trim(Column.Title.Caption) = ‘« Status Pickup’) then
begin
if trim(column.Field.AsString) = ‘open’ then
DBGrid1.Canvas.Brush.Color := clRed
else
if trim(column.Field.AsString) = ‘done’ then
DBGrid1.Canvas.Brush.Color := clGreen
else
if trim(Column.Field.AsString) = ‘cancelled’ then
DBGrid1.Canvas.Brush.Color := clFuchsia
else
if trim(Column.Field.AsString) = ‘progress’ then
DBGrid1.Canvas.Brush.Color := clyellow;
end;

note : warna dapat diubah sesuai dengan selera dan caption dapat dilakukan sesuai kebutuhan.

Bookmark It