Poner checkbox en un dbgrid

[aitken]

Buenas,

Necesito poner un checkbox en un dbgrid, para marcar las casillas, en vez de que me ponga true o false. Alguién puede ayudarme??

Gracias,,
Saludos

[JavierB]

Hola, aitken.

Este código lo saqué de alguna parte de la güeb:

Código PHP:

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').AsBoolean 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;
    Table1.FindField('NombreCampo').AsBoolean:=not Table1.FindField('NombreCampo').AsBoolean;
  end;
end; 


Espero que te sirva. Saludos,

[el_barto]

Buenos dias foro, estuve probando este codigo pero no me funciona por que este codigo funciona para un campo boolean obviamente no me funciono por que el campo que yo tengo es entero y tiene dos posibles valores UNO (1) ó CERO (0), intente cambiar este codigo para datos enteros pero no me funciono, si alguien sabe como hacerlo se lo agradeceria mucho

[[Lepe]]

Pues solo tienes que sustituir la frase ".AsBoolean" por ".AsInteger = 1" en el primer procedimiento.

En el segundo, miras si es igual a 1 y le asignas un cero, en otro caso le asignas un 1; como ves simplemente se trata de romper esa asignación.

Un saludo

[el_barto]

Gracias lepe, eso mismo fue lo que hice, use como dice el dicho "la logica de campesino sano" y me salio lo siguiente:

para la primera parte:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect

Código Delphi [-]
; 
  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;

y para la segunda parte:

Código Delphi [-]
 
procedure TForm1.DBGrid1CellClick(Column: TColumn); 
begin 
  if Column.FieldName = 'NombreCampo' then 
  begin 
    Table1.Edit; 
    Table1.FindField('NombreCampo').AsInteger:=0 //Bueno en realidad aqui si no se si va 1 o 0
Table1.FindField('NombreCampo').AsInteger; 
  end; 
end;

esto fue lo que hice
corrigeme si me equivoco