типа checkbox в dbgrid

[waw]

доброе время суток
такой вопрос как можно сделать в dbgrid сделать ячейки для установки "птичек" (не знаю как их dbgride назвать),т.е. для указания значений TRUE, FALSE.
БД SQL подключена через database

[artemavd]

Установите DBGridEh из библиотеки EhLib. Затем киньте на форму DBGridEh1, нажмите на нем 2 раза и создайте колонку, затем нажмите 1 раз на созданную колонку и в инспекторе свойств в свойстве Checkboxes поставьте True.

[waw]

спасибо. уже качаю библиотеку

[Alekcey]

http://forum.sql.ru/forum/actualthre...id=780781&pg=2

http://www.delphikingdom.com/asp/ans...IDAnswer=77772

http://www.delphimaster.ru/cgi-bin/f...1281686301&n=1

[Grag]

Взято из DelphiWorld 6...

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;

checkbox_in_dbgrid.jpg