CheckBox в множестве полей DBGrid

[dn-3]

Всем привет. У меня такой вопрос, можно ли как-то отнести данный код не к одному полю, а ко многим (у меня, к примеру, 10 полей с типом "ftBoolean" ) :


// CheckBox заместь True и False в ftBoolean полях DBGrid

procedure TGrids_Frame.m_Grid_klient_AllDrawColumnCell(
  Sender: TObject;
  const Rect: TRect; 
  DataCol: Integer; 
  Column: TColumn; 
  State: TGridDrawState);

var Im1: TBitmap;

begin

  Im1:=TBitmap.Create;

  if  (Column.FieldName='p_stan.p_nmaried' ) then begin  // ВОТ тут чото пытался

    with  m_Grid_klient_All.Canvas do begin

    FillRect(Rect);

     if (DataM.klientT.FieldByName('p_stan.p_nmaried').Value=True)  then    // и ВОТ тут чото пытался


      begin
      ImageList1.GetBitmap(1,Im1);
      end else begin
      ImageList1.GetBitmap(0,Im1);
      end;
  Draw(round((Rect.Left+Rect.Right-Im1.Width)/2),Rect.Top,Im1);
    end;
  end;
end;

Пытался как-то через State Dataset, но чото не выходит
Использую БД - CDS.

[Stilet]

не к одному полю, а ко многим

Ну убери первй IF
А второй перепиши:
if (Column.Field.AsBoolean) then ...

[dn-3]

Да, и так и сяк ни чего не работает!



Я нашел ошибку!

Дело в том, что я использую ОТДЕЛЬНУЮ ФОРМУ ДЛЯ КОМПОНЕНТОВ БД - DataModul, вот в котором та и есть вот та самая библиотека "DB", которая автоматически не затягивается на форму с DBGrid (надо вписывать (uses ..., DB; )) !!!


Теперь все работает четка.

к Белик Виталию. Благодарю за помощь