delphi - CheckBox en una DBGrid

tcheckbox

Question

Mi pregunta es cómo configurar una columna en dbgrid en Delphi 7, que estará con un elemento de casilla de verificación.

Gracias por adelantado.

Answer 1

Disculpe por publicar esto como respuesta, aún no tengo la reputación de agregar comentarios.

La respuesta de Mihai MATEI es muy similar a la solución rara (como en realidad funciona), excepto por un caso de uso donde se produce un error.

Siempre que la primera acción de los usuarios en la cuadrícula sea hacer clic en la casilla de verificación, el primer clic funcionará, pero el segundo revelará el editor DBGrid subyacente.

Esto sucede porque el mecanismo "GridOriginalOptionsmechan" debe inicializarse. Para hacerlo, simplemente agregue el siguiente código en el evento OnEnter de la grilla:

procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
DBGrid1ColEnter(Sender);
end;

¡Eso es!

Answer 2

El método más fácil y completo que probé es el siguiente:

En la sección privada de su unidad, declare un global para retener las opciones de la grilla. Se usará para restaurar después de la edición temporal de texto de desactivación al ingresar la columna de casilla de verificación, ya que este es quizás uno de los pequeños errores mencionados por Jordan Borisovin en relación con el artículo delphi.about.com

private
GridOriginalOptions : TDBGridOptions;

En el evento OnCellClick, si el campo es booleano, alternar y publicar cambios en la base de datos

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if (Column.Field.DataType=ftBoolean) then
begin
Column.Grid.DataSource.DataSet.Edit;
Column.Field.Value:= not Column.Field.AsBoolean;
Column.Grid.DataSource.DataSet.Post;
end;
end;

Dibujando la casilla de verificación para campos booleanos de la grilla

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
CtrlState: array[Boolean] of integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED) ;
begin
if (Column.Field.DataType=ftBoolean) then
begin
DBGrid1.Canvas.FillRect(Rect) ;
if (VarIsNull(Column.Field.Value)) then
DrawFrameControl(DBGrid1.Canvas.Handle,Rect, DFC_BUTTON, DFCS_BUTTONCHECK or DFCS_INACTIVE)
else
DrawFrameControl(DBGrid1.Canvas.Handle,Rect, DFC_BUTTON, CtrlState[Column.Field.AsBoolean]);
end;
end;

Ahora la parte nueva, deshabilita la edición de la celda mientras está en la columna booleana. En los eventos OnColEnter y OnColExit:

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if Self.DBGrid1.SelectedField.DataType = ftBoolean then
begin
Self.GridOriginalOptions := Self.DBGrid1.Options;
Self.DBGrid1.Options := Self.DBGrid1.Options - [dgEditing];
end;
end;
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
if Self.DBGrid1.SelectedField.DataType = ftBoolean then
Self.DBGrid1.Options := Self.GridOriginalOptions;
end;

Aún más, maneje la tecla de espacio para alternar la casilla de verificación

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if ((Self.DBGrid1.SelectedField.DataType = ftBoolean) and (key = VK_SPACE)) then
begin
Self.DBGrid1.DataSource.DataSet.Edit;
Self.DBGrid1.SelectedField.Value:= not Self.DBGrid1.SelectedField.AsBoolean;
Self.DBGrid1.DataSource.DataSet.Post;
end;
end;

¡Eso es!

Answer 3

OK, utilicé este artículo para mi problema. OK, pero el problema es que no funcionaba como debería. Entonces cambio mi lógica en el código. E implementarlo guardando las filas seleccionadas de dbgrid en una lista.

Answer 4

Si está utilizando TClientDataset + TDatasetProvider + TDataset, puede manipular la variante del conjunto de datos antes de que llegue al conjunto de datos del cliente e incluir un campo booleano no actualizable.

Una vez hecho, todo lo que necesita es dibujar en la cuadrícula utilizando el evento OnDrawColumnCell. Aquí no uso CheckBox sino solo un mapa de bits (cuando el usuario hace clic en él cambia a seleccionado / no seleccionado).