CheckBox en un Grid

[ContraVeneno]

Ita, Ya instale la JVCL 3.0 pero son tantos componentes que estoy un poco perdido. ¿sabes como se llama ese componentes dentro de las JVCL?

[[Lepe]]

Si lo encuentras avisa, porque yo lo he buscado y no lo he encontrado

Un saludo

[[Lepe]]

Aunque la verdad, no creo que haya que complicarse tanto la vida por tan poca cosa:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var 
  Check: Integer; 
  R: TRect; 
begin 
  if Column.FieldName = 'NombreCampo' then 
  begin 
    DBGrid1.Canvas.FillRect(Rect); 
    Check := 0; 
    if Table1.FindField('NombreCampo').AsInteger = 1 then Check := DFCS_CHECKED; 
    R:=Rect; 
    InflateRect(R,-2,-2); //Disminuye el tamaño del CheckBox 
    DrawFrameControl(DBGrid1.Canvas.Handle,R,DFC_BUTTON, DFCS_BUTTONCHECK or Check); 
  end; 
end; 


procedure TForm1.DBGrid1CellClick(Column: TColumn); 
begin 
  if Column.FieldName = 'NombreCampo' then 
  begin 
    Table1.Edit; 
    if Table1.FindField('NombreCampo').AsInteger = 1 then
    Table1.FindField('NombreCampo').AsInteger := 0
    else
    Table1.FindField('NombreCampo').AsInteger := 1
    Table1.Post;
    Dbgrid1.Refresh; // quizás más bien un Repaint.... pero en fin.
  end; 
end;

[el_barto]

ahhhh MALDICION GITANA no me dibuja el check en ningun lado

[ContraVeneno]

Pues con el ejemplo que menciona neftali de Delphi.About a mi si me lo dibuja bien.

[el_barto]

y que le modificaste aqui para con datos integer:

Código Delphi [-]
if (Column.Field.FieldName = DBCheckBox1.DataField) then
    begin
     DBCheckBox1.Left := Rect.Left + DBGrid1.Left + 2;
     DBCheckBox1.Top := Rect.Top + DBGrid1.top + 2;
     DBCheckBox1.Width := Rect.Right - Rect.Left;
     DBCheckBox1.Height := Rect.Bottom - Rect.Top;

     DBCheckBox1.Visible := True;
    end

por que a este if no entra nunca dado que el checkbox nunca me lo pone visible

[ContraVeneno]

La columna del Grid y el DBCheckBox deben tener definido el mismo campo.
En el DBCheckBox hay que definirle las propiedades ValueChecked y ValueUnChecked a los valores que vas a tomar como cierto y falso.
Ejemplo: ValueChecked=1 para verdadero y ValueUnChecked=0 para falso.

[[Lepe]]

Empezado por el_barto

y que le modificaste aqui para con datos integer:

Código Delphi [-]
if (Column.Field.FieldName = DBCheckBox1.DataField) then
    begin
     DBCheckBox1.Left := Rect.Left + DBGrid1.Left + 2;
     DBCheckBox1.Top := Rect.Top + DBGrid1.top + 2;
     DBCheckBox1.Width := Rect.Right - Rect.Left;
     DBCheckBox1.Height := Rect.Bottom - Rect.Top;

     DBCheckBox1.Visible := True;
    end

por que a este if no entra nunca dado que el checkbox nunca me lo pone visible

Ya llego tarde porque lo resolviste de otra forma; solo comentar que en ese if
no entra nunca porque no es DBCheckBox1.DataField sino
DBCheckBox1.FieldName.

ContraVeneno, gracias por la info del checkbox en la JVCL. En realidad
yo necesitaba el checkbox sin asociarlo a un campo, pero es bueno saber que
lo tiene para campos boolean.

el barto, gracias por corroborar que solo hace falta un Repaint en el
grid para actualizar el campo. Si los datos vienen de un query, muy
posiblemente haya que cerrarlo y abrirlo de nuevo para que tome los datos de
nuevo.

Un saludo a todos