Gan, gw ingin supaya record yang sedang aktif dikasih warna merah, tapi kenapa kok jadi seperti ini ya?





kodenya begini gan:

procedure TfrmMain.DBGrid1DrawColumnCell(Sender: TObject;

 const Rect: TRect; DataCol: Integer; Column: TColumn;

 State: TGridDrawState);

begin

if (Trim(Query1.FieldByName('employeeid').AsString) = Trim(edtNomor.Text)) then

 begin

 DBGrid1.Columns[0].Font.Color := clRed;

 DBGrid1.Columns[1].Font.Color := clRed;

 end

else

 begin

 DBGrid1.Columns[0].Font.Color := clWindowText;

 DBGrid1.Columns[1].Font.Color := clWindowText;

 end;

end;

Kenapa ya gan?