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:

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"....

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 (http://delphi.about.com/od/usedbvcl/l/aa082003a.htm)

Saludos :)

[mRoman]

Hola Miguel.

¿ Ya revisaste este ejemplo ?: CheckBox inside a DBGrid (http://delphi.about.com/od/usedbvcl/l/aa082003a.htm)

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:

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.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
IsChecked: array 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[[B]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

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

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.