Buenas a todos. A ver si me podéis ayudar que no sé por dónde salir. La aplicaicón está hecah con Builder 6 y tengo este DBGrid cargado a partir de una tabla en FB, por lo tanto no tiene campos tipo BOOL y uso uno SMALLINT, en el que he conseguido meter un Checkbox cogiendo trozos de código.
Y tengo este código:
Código:
void __fastcall TfAboRec::DBGrid1DrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
TCanvas *c = DBGrid1->Canvas;
if (Column->FieldName == "SELECCION")
DibujarCheckBox(c, Rect, Column->Field->AsInteger);
else
DBGrid1->DefaultDrawColumnCell(Rect, DataCol, Column, State);
}
//---------------------------------------------------------------------------
void __fastcall TfAboRec::DibujarCheckBox(TCanvas *c, const TRect &Rect, int Valor)
{
TRect r = Rect;
UINT Checked = (!Valor ? DFCS_BUTTONCHECK : DFCS_BUTTONCHECK | DFCS_CHECKED);
c->FillRect(Rect);
r.Top += 2;
r.Bottom -= 1;
r.Left += 1;
r.Right -= 1;
DrawFrameControl(c->Handle, (RECT*)&r, DFC_BUTTON, DFCS_BUTTONCHECK | Checked);
}
//---------------------------------------------------------------------------
void __fastcall TfAboRec::DBGrid1CellClick(TColumn *Column)
{
int nValor;
if (Column->FieldName == "SELECCION")
{
nValor = Column->Field->AsInteger;
fPersona->tTemp->Edit();
fPersona->tTemp->FieldValues[Column->FieldName] = !nValor;
fPersona->tTemp->Post();
}
}
//---------------------------------------------------------------------------
Se compila y ejecuta sin ningún problema y el checkbox se marca y desmarca bien, pero a la hora de actualizar el valor de la tabla en función de si está o no marcado el Checkbox no me modificac nada y no sé como arreglarlo.