error de CheckBox en DBGrid

[mRoman]

Hola amigos buenas tardes.

USO DELPHI 6 y FIREBIRD 2.0

Ando buscando la forma de usar un checkbox dentro de un DBGrid, ya he investigado y tengo el siguiente codigo:

Código Delphi [-]
procedure TfrmPedidosSurtidos.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
   Check: Integer;
begin
     if not dsDatos.IsEmpty then
     begin
          if CompareText(Column.FieldName,'Surtido')=0 then
          begin
              Check:=0;
          if dsDatos['Surtido']='N' then
              Check:= DFCS_CHECKED;
              dbGrid1.Canvas.FillRect(Rect);
              DrawFrameControl(dbGrid1.Canvas.Handle, Rect,
              DFC_BUTTON, DFCS_BUTTONCHECK or Check);
          end;
     end Else
     begin
          dbgrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
     end;
end;

Y aqui hago un click en el DBGrid para cambiarle el estado del campo "Surtido"....

Código Delphi [-]
procedure TfrmPedidosSurtidos.DBGrid1CellClick(Column: TColumn);
begin
  if Column.FieldName = 'Surtido' then
   begin
     dsDatos.Edit;
     if (dsDatos.FindField('Surtido').AsString = 'N') or
        (dsDatos.FindField('Surtido').IsNull) then
           dsDatos.FindField('Surtido').AsString := 'S'
     else
           dsDatos.FindField('Surtido').AsString := 'N';
           dsDatos.Post;
           Dbgrid1.Repaint;
     end;
end;

La bronca q tengo en este punto es que cuando le doy click....el checkbox desaparece y se pone el cursor en espera de registrar algo....le registro la letra 'N' y me aparece el checkbox marcado.

Oh, antes q nada el campo "Surtido", tengo registrado una "S" para cuando se haya surtido el producto y una "N" para cuando no.

Les comento que cuando abro el DataSet (IBDataSet), me muestra los checkbox en un inicio marcados todos cuando sea nulo o bien tengan una "N"....lo anterior es para ahorrarle tiempo al usuario y no se agarre marcando de uno por uno aquellos productos que fueron surtidos...en fin, es por comodidad.

Pero el problema es que el usuario debera regstrar una "S" para que el Checkbox cambie a UNCHECKED....y no quiero eso...quiero CHECKEAR Y DESCHEKEAR en el objeto CheckBox creado del DBGrid.

He probado con el componente CheckListBox y este hace lo que quiero....pero aqui tengo un incoveniente que no se como lo pudiera resolver. Al mismo tiempo que el usuario registre los productos que no fueron surtidos, registre una nota en un campo Memo del la base de datos dle motivo del NO SURTIMIENTO, aqui se me ocurrio solucionarlo con un TMemo....pero y cuando sean mas de 1 producto no surtido?....como le hago?....SE ACEPTAN SUGERENCIAS...!!!

Bueno en fin, ya logre pintar un checkBox dentro del DbGrid y agregue un componente DBMemo el cual lo tengo ligado obviamente al DataSet del DBGrid, pero la bronca q tengo ahora es....que el checkox cambia su estado siempre y cuando le registre una "S" o un "N" en la columna "Surtido"....como le hago para que no me haga esto?????

Espero haberme explicado. Agradezco su comentarios y su ayuda.

Saludos.

[ecfisa]

Hola Miguel.

¿ Ya revisaste este ejemplo ?: CheckBox inside a DBGrid

Saludos

[mRoman]

Empezado por ecfisa

Hola Miguel.

¿ Ya revisaste este ejemplo ?: CheckBox inside a DBGrid

Saludos

Gracias por contestar.

Si ecfisa, ya vi ese ejemplo. Pero al parecer es para campos boleanos....yo trabajo con Firebird 2.0 y ahi no hay campos boleanos. De hecho tengo un campo donde almaceno una "S" para identificar los pedidos que fueron surtidos y una "N" para los que no están en el supuesto.

En realidad no se como aplicarlo a mi codigo....veo q maneja un componente DBCheckBox....yo no lo uso....dejame probarlo.

[ecfisa]

Hola Miguel.

No es necesario que el campo sea booleano, para eso están las propiedades ValueChecked y ValueUnChecked del TDBCheckBox:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with DBCheckBox1 do
  begin
    Caption:= '';
    ValueChecked:= 'S';
    ValueUnchecked:= 'N';
    Visible:= False;
  end;
  IBDataset1.Open;
end;

El resto del código sólo necesita unos cambios menores.

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  IsChecked: array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK+DFCS_CHECKED);
var
  DrawState: Integer;
  DrawRect: TRect;
begin
  if gdSelected in State then
  begin
    if Column.FieldName = DBCheckBox1.DataField then
    begin
      DBGrid1.Canvas.Brush.Style:= bsSolid;
      DBGrid1.Canvas.Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect. Bottom);
      DBCheckBox1.Left    := Rect.Left + DBGrid1.Left + 2;
      DBCheckBox1.Top     := Rect.Top + DBGrid1.top + 2;
      DBCheckBox1.Width   := (Rect.Right - Rect.Left + 4) div 2;
      DBCheckBox1.Height  := Rect.Bottom - Rect.Top;
      DBCheckBox1.Visible := True;
      DBCheckBox1.SetFocus;
    end
  end
  else if Column.FieldName = DBCheckBox1.DataField then
    begin
      DrawRect := Rect;
      InflateRect(DrawRect,-1,-1);
      DrawState := IsChecked[Column.Field.AsString='S'];
      DBGrid1.Canvas.FillRect(Rect);
      DrawFrameControl(DBGrid1.Canvas.Handle,DrawRect,DFC_BUTTON,DrawState);
    end;
end;

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  with DBCheckBox1 do
    Visible:= not (DBGrid1.SelectedField.FieldName = DataField)
end;

procedure TForm1.DBCheckBox1Exit(Sender: TObject);
begin
  IBDataSet1.Edit;
  IBDataSet1.Post;
end;
...

Saludos

[mRoman]

Agradezco Daniel tu respuesta....en estos momentos estoy probando el codigo. También me guiaré con lo q me comentas....

Nuevamente agradezco tu tiempo. Luego les cuento como fue...y publico el código final.

Saludos.

[mRoman]

oK...Excelente...ya lo probe y funciona al 90%...jajajaja...es que el checkbox se "pinta" tambien afuera del DbGrid1.

Checaré mas a fondo el código para solucionarlo....para mi q va a ser donde esta el codigo del procedimiento
DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);

Lo checo y les comento

[juanlaplata]

Evento DrawColumnCell del DBGrid

Código Delphi [-]
if Column.Field = 'Mover' then
  begin
    Grilla.Canvas.FillRect(Rect);

    ImageList1.Draw(Grilla.Canvas,
                    (Rect.Right - Rect.Left) div 2,
                    Rect.Top+1,
                    0);

    if Base.MovimientosMover.AsBoolean then
      ImageList1.Draw(Grilla.Canvas,Rect.Left+10,Rect.Top+1,2);
  end;

Evento CellClick del DBGrid

Código Delphi [-]
if (Column.FieldName = 'Mover') then
  begin
  Base.Movimientos.Edit;
  Base.MovimientosMover.AsBoolean:= not(Base.MovimientosMover.AsBoolean);
  Base.Movimientos.Post;
  end;

Las imagenes q dibujo ...

[mRoman]

Ok gracias juanlaplata por tu colaboración.

No estoy trabajando con imagenes, pero es otra opción que exploraré y ver que tan efectivo es para mi aplicación....si es lo que se necesita.

Te agradezco tu tiempo.