🚀 go-pugleaf

Hi
I had this problem and with some help of some Delphi code solved it.  It was
quite a while ago but I am sure you will be able to work out how it is done
using the code below.

The trick is that you use an API to draw the box and check it if the value
is true.

Regards
Daryl

//--------------------------------------------------------------------------
-
void __fastcall TfrmMain::dbgHistoryCellClick(TColumn *Column)
{
  // Used to only allow the Waived Fee value if the item has NOT been
returned
  // and there is a late fee.
  if (Column->FieldName == "LateFeeWaived") {
    String LFID;
    float lateFee;

    LFID =
dmVideoOne->dsHistory->FieldByName("LateFeeTransactionID")->AsString;
    lateFee  = dmVideoOne->dsHistory->FieldByName("LateFee")->AsFloat;
    if (LFID.Length() == 0 && lateFee > 0.0) {
      Column->ReadOnly = false;
      saveBoolean();
    }
    else
      Column->ReadOnly = true;
  }
}
//--------------------------------------------------------------------------
-
void TfrmMain::saveBoolean(void)
{
  dbgHistory->SelectedField->DataSet->Edit();
  dbgHistory->SelectedField->AsBoolean =
!dbgHistory->SelectedField->AsBoolean;
  dbgHistory->SelectedField->DataSet->Post();
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmMain::dbgHistoryDrawColumnCell(TObject *Sender,
                              const TRect &Rect, int DataCol, TColumn
*Column,
                                                          TGridDrawState
State)
{
  // Used to change the colour of the Grid's cell's font
  if (Column->FieldName == "Paid") {
    if (Column->Field->AsString == "Yes") {
      dbgHistory->Canvas->Font->Color = clLime;
    }
    else if (Column->Field->AsString == "No") {
      dbgHistory->Canvas->Font->Color = clRed;
    }
    else {
      dbgHistory->Canvas->Font->Color = clWindowText;
    }
  }
  else if (Column->Field->DataType == ftBoolean) {
    const int ctrlState[2] = {DFCS_BUTTONCHECK, DFCS_CHECKED};
    TRect chkBoxOutline;
    dbgHistory->Canvas->FillRect(Rect);
    chkBoxOutline.Left = Rect.Left+2;
    chkBoxOutline.Right = Rect.Right-2;
    chkBoxOutline.Top = Rect.Top+2;
    chkBoxOutline.Bottom = Rect.Bottom-2;
    DrawFrameControl(dbgHistory->Canvas->Handle,
                     &chkBoxOutline,
                     DFC_BUTTON,
                     ctrlState[Column->Field->AsBoolean]);
    return;
  }
    dbgHistory->DefaultDrawColumnCell(Rect, DataCol, Column, State);
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmMain::dbgHistoryColEnter(TObject *Sender)
{
  if (dbgHistory->SelectedField->DataType == ftBoolean) {
    fOrigOptions = dbgHistory->Options;
    dbgHistory->Options = fOrigOptions >> dgEditing;
  }
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmMain::dbgHistoryColExit(TObject *Sender)
{
  if (dbgHistory->SelectedField->DataType == ftBoolean) {
    dbgHistory->Options = fOrigOptions << dgEditing;
  }
}
//--------------------------------------------------------------------------
-


"Murthy" <murthy.c.l.n@mphasis.com> wrote in message
news:3f82be97$1@newsgroups.borland.com...
>
> I have a boolean field in a table. I am using ADO connection and dbgrid. I
am planning to use a check box for this column. I am not finding any way to
do this. It is easy to put a dropdown box but not a any cehckbox.
>
> I need to add, edit, delete and update using this cehcbox, dbgrid and ado.
>
> Kindlly help
>
> Murthy