Dbgrid: Zelle flimmert

[bwolf]

Hi all,

ich hab da grad was seltsames in meinem (TJV)DbGrid:

Ich setze eine bestimmte Zelle Readonly:

Delphi-Quellcode:

procedure Tfrm_essenserfassung.dbgrid_uebersichtDrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if DataCol = 2 then //2nd column is 'Anzahl Essen'
  begin
    // Abgerechnete Datensätze sperren...
    if q_erfassung.FieldByName('abgerechnet').AsString = 'True' then
      Column.ReadOnly := true
   else
      Column.ReadOnly := false;
  end;
end;

Allerdings habe ich dann das Problem, das die Spalte 'Anzahl Essen' flimmert...schwer zu beschreiben, sieht so aus als ob die Zelle nonstop aktualisiert würde.
Wenn ich den obigen Code rausnehme und die Zelle nicht auf readonly setze, sieht es normal aus.

Hat jemand ne Idee was das sein könnte ??

Danke schonmal,
gruß ben