Merubah value/Huruf/Teks pada DBGRID di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Merubah Value atau data yang ditampilkan di DBGRID dengan yang kita inginkan.

procedure TFAbsen.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  grid : TDBGrid;
 JAM: String;
  aRect : TRect;
begin
  JAM := '-'; // deklarasi teks yang akan ditampilkan di DBGRID
  aRect := Rect;
  grid := sender as TDBGrid;

    if column.FieldName = 'JamMasuk' then    // jika kolom JamMasuk maka: jika Value Jam masuk = 00:00 maka di DBGRID tampilkan menjadi tanda - (baca : min)
  begin
    if (ADOTampilJamMasuk.Value=StrToTime('00:00')) or (ADOTampilJamMasuk.Value=StrToTime('0:00'))  then
    begin
    grid.Canvas.FillRect(Rect);
    DrawText(grid.Canvas.Handle, PChar(JAM), Length(JAM), aRect,
      DT_SINGLELINE or DT_CENTER or DT_VCENTER);
      end
  end;
end;


jadi di DBGRID itu harusnya yang muncul 00:00 tapi karena memakai coding di atas maka dimana yang Valuenya=00:00 akan brubah menjadi tanda - (baca : min).

Catatanku  !!