Создание CheckBox в DBGrid

[liggth]

Всем привет.
Многие знают способ извращения создания чекбокса в ячейки DBGrid

procedure DrawGridCheckBox(Canvas: TCanvas; Rect: TRect; Checked: boolean);
var
  DrawFlags: Integer;
begin
  Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, ' ');
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);
  DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;
  if Checked then
    DrawFlags := DrawFlags or DFCS_CHECKED;
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);
end;

procedure TForm4.sDBGrid1ColEnter(Sender: TObject);
begin
  with TDBGrid(Sender) do
    if SelectedField.FieldName = 'using' then // Модифицируйте под себя
      Options := Options - [dgEditing]
    else
      Options := Options + [dgEditing]
end;

procedure TForm4.sDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.FieldName = 'using' then // Модифицируйте под себя
    if Column.Field.AsInteger = 1 then
      DrawGridCheckBox((Sender as TDBGrid).Canvas, Rect, true)
    else
      DrawGridCheckBox((Sender as TDBGrid).Canvas, Rect, false)
end;

Все отлично выводится, только вот не пойму, как реализовать, чтобы при нажатии галочка ставилась/снималась в этом чекбоксе?

[evg_m]

рисование/НЕрисование зависит от ЭТОГО кода

    if Column.Field.AsInteger = 1 then

стало быть чтобы поставить/снять "галочку" НАДО установить правильное(соответствующее) значение у этого поля для нужной(текущей) записи.

DBGrid показывает ровно то что есть в ассоцированном наборе данных
и менять надо там(в наборе данных).

Column.Field.Asinteger:=1{|0};