CheckBox в ячейках DBGrid

[harmager]

Доброго времени суток, уважаемые форумчане.
Проблема состоит в следующем: мне необходимо поместить в ячейки определённого столбца
компонента DBGrid компонент CheckBox. Стоит отметить, что столбец, в котором должны располагаться
Checkbox не должен быть связан с набором данных. Таким образом (насколько я помню) возможность
использования компонента DBGridEh отпадает.
Создание CheckBox в ячейке 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;// DFCS_BUTTONCHECK
  if Checked then
    DrawFlags := DrawFlags or DFCS_CHECKED;
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);
end;

На событие OnDrawColumnCell повесьте вызов процедуры DrawGridCheckBox():


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

Кроме этого, для скрытия текста в ячейках с CheckBox-ом от отображения значения при вводе с клавиатуры определите реакцию на событие OnColumnEnter:


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

Код работает отлично. Однако, я не могу реализовать поведения checbox при действиях пользователя.
Например, если пользователь кликнул на конкретном Checbox, нарисовать галку или, если же он
уже отмечен, убрать галку. В итоге также необходимо определить какие Checkbox отмечены.

Я копал в сторону события DBGrid1CellClick. Однако, не могу понять, как
управлять флагами, чтобы реализовать задуманное.
Заранее благодарен.

[Аватар]

Колонка у вас привязана к полю, только отображает не его значение, а некую картинку, зависящую от значения, в данном случае чекбокс. Ну и редактируете это поле в OnCellClick, прорисовка отреагирует на это. Не забывайте перед редактирование проверить статус, что бы повторно к Edit не обратиться

[harmager]

Сообщение от Аватар

Колонка у вас привязана к полю, только отображает не его значение, а некую картинку, зависящую от значения, в данном случае чекбокс. Ну и редактируете это поле в OnCellClick, прорисовка отреагирует на это. Не забывайте перед редактирование проверить статус, что бы повторно к Edit не обратиться

В том и дело, что колонка к полю не привязана. Колонка просто создана в 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);
  Checked:= status;
  if Checked then
    DrawFlags := DFCS_CHECKED
  else
    DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;// DFCS_BUTTONCHECK
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);

end;



procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.Index = 1) then
      DrawGridCheckBox(DBGrid1.Canvas, Rect, status);


end;


procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
   if (Column.Index = 1) then
    if (status = true) then
   status:= false
     else
   status:= true;


end;

Здесь проблема и состоит в том, что невозможно (конечно, моё утверждение) определить, какой нарисованный chechbox нарисовать в состоянии checked, а какой в состоянии unckecked, и как определить в последующем, какое состояние они имеют.

[Аватар]

В том и дело, что колонка к полю не привязана.

В этом примере нет, а в первом была:

  if Column.FieldName = 'WEIGHT' then // Модифицируйте под себя
    if Column.Field.AsInteger > 10 then

Так или иначе вам придется привязывать. Не хотите в датасете поле для этого, значит держите некий массив соответствующий записям датасета, или массив Bookmark-ов для записей, где чекед=труе

[Onwado]

Зачем отрисосвывть реальный чекбокс? Проще отрисовывать картинки с изображением чекера; состояние чекеров хранить в массиве, менять в обработчике кликов по гриду.

if s[i] = 0 then
 IconIndex := 74
else
 IconIndex := 75;
ilActionIcon.Draw(rDBGrid.Canvas, Rect.Left, Rect.Top + 1,IconIndex);