Tips Trik Lazarus

 Cara buat row TDBGrid berwarna
-gunakan unit uBPI
-pada Event "OnPrepareCanvas" , panggil salah satu procedur berikut ini "SetRowColor" atau "SetRowColor2"

Contoh:

procedure TFU.dbgStokPrepareCanvas(Sender: TObject; DataCol: integer;
  Column: TColumn; AState: TGridDrawState);
begin
  if dm.tblStok.FixNullBool('Peringatan') then
    SetRowColor(dbgStok, clRed, AState);
end;