Checkbox in JvDBGrid wird nicht immer angezeigt

[onkelmehli]

Hallo,

ich arbeite mit dem DBGrid aus der JVCL und habe festgestellt, wenn ich im OnDrawColumnCell selbst zeichne, wird die Checkbox bei einem Boolean-Feld nicht korrekt angezeigt (siehe Anhang).
Folgendes steht im OnDrawColumnCell:

Delphi-Quellcode:

  with TMyDBGrid(Sender) do
  begin
    //-1 weil die Titelzeile mit im Grid steckt
    if TDataLink(DataLink).ActiveRecord=Row-1   then
    begin
        if gdSelected in State then
        begin
          with Canvas do
          begin
            Brush.Color := $00DCFFFF;
            Font.Color := clBlack;
            DefaultDrawColumnCell(Rect,DataCol,Column,State);
          end;
        end
        else
        begin
          with Canvas do
          begin
            Brush.Color := SystemDataModule.GridActiveRowColor;
            Font.Color := clBlack;
            DefaultDrawColumnCell(Rect,DataCol,Column,State);
          end;
        end;
    end;
  end;

noch zur Info: TMyDBGrid = class(TCustomDBGrid), Defaultdrawing ist auf true, BooleanEditor ist auf true und in den Optionen ist Multiselect eingeschaltet.

Mach ich hier etwas falsch oder ist das ein Bug im Grid?

Gruß
Matthias