![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
![]() 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. |
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|