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.