CheckBox en un Grid

[JorgeBec]

Hola Comunidad! De casualidad alguien sabe como poner un CheckBox en un Grid???, obviamente el campo que relacione al Grid es un campo logico...


agradecere sus respuestas...

[Neftali [Germán.Estévez]]

Empezado por JorgeBec

...alguien sabe como poner un CheckBox en un Grid???

http://delphi.about.com/library/weekly/aa082003a.htm

Explicadito paso a paso con sus dibujos y todo...

Un saludo

[Ita]

Si mal no recuerdo, existe un componente dentro de los Jedi VCL for Delphi que hace exactamente eso que tu necesitas sin mayor esfuerzo. Estos componentes estan disponibles para delphi 5,6,7 (hasta donde estaba enterada).

Si te interesan bájatelos de la siguiente dirección:
http://sourceforge.net/project/showf...group_id=45786

[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;