FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Dbgrid Que Permita Checkbox Para Datos Booleanos
SALUDOS AL FORO
Hola, en el area de componentes lei sobre un componente que hace esto (DBGRID QUE PERMITA CHECKBOX PARA DATOS BOOLEANOS) pero desafortunadamente la liga no funciona, es por eso que solicito a la comunidad si me pueden compartir el componente (quiza alguien lo descargo cuando aun funcionaba el link) o me puede dar una idea de como insertar el checkbox en el grid... Ojala me puedan ayudar... Gracias |
#2
|
||||
|
||||
Hola, SoftMakerMex.
No tento el componente que dices, pero tengo este código que saque de no recuerdo donde: Código:
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,
__________________
Lo importante no es saber, sino tener el e-mail del que sabe. |
#3
|
|||
|
|||
#4
|
||||
|
||||
Saludos Javier, te agradezco tu ayuda, voy a implementarlo y te comento como me va...
Hasta Luego |
#5
|
|||
|
|||
Existe una Libreria qu e hace lo que tu necesitas de una forma muy facil, bueno y a parte de esto hace muchas cosas más, su nombre es InfoPower y se puede encontrar en la red en forma libre, pesa como 7 Mg.
__________________
Nada es a prueba de estupidos, ...ellos son muy creativos. |
|
|
|