Olá Pessoal.
Alguém já trabalhou com dois checkbox na mesma GRID? Tenho duas colunas com
checkbox, mas quando seleciono um checkbox outro tbém é checado. Estou usando a
propriedade SelectedIndex para alternar entre checado e não checado, mas no
evendo DrawnColumnCell ele seleciona tudo, vejam se está correto:
DBGrid2.DefaultDrawDataCell(Rect, DBGrid2.columns[datacol].field, State);
if (Column.FieldName = 'XENVIO') or
(Column.FieldName = 'XRETORNO') then
begin
Self.DBGrid2.Canvas.FillRect(Rect);
CheckBoxRectangle.Left := Rect.Left + 2;
CheckBoxRectangle.Right := Rect.Right - 2;
CheckBoxRectangle.Top := Rect.Top + 2;
CheckBoxRectangle.Bottom := Rect.Bottom - 2;
if (DBGrid2.SelectedIndex = 5) then
begin
if (DM.cdsConsultaNFe.FieldByName('XENVIO').AsString = '1') then
DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON,
CtrlState[True])
else
DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON,
CtrlState[False]);
end;
if (DBGrid2.SelectedIndex = 6) then
begin
if (DM.cdsConsultaNFe.FieldByName('XRETORNO').AsString = '1') then
DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON,
CtrlState[True])
else
DrawFrameControl(Self.DBGrid2.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON,
CtrlState[False]);
end;
end;
Márcio Ricardo Alves da Silva
Programador Pleno
[EMAIL PROTECTED]
*** Antes de imprimir, pense em seu compromisso com o Meio Ambiente ***
Config Informática Ltda
Av. Eng. Luis Carlos Berrini, 801 - 7º andar
Brooklin Novo - São Paulo - SP
CEP: 04571-010 - Fone (11) 5501-8300 - www.config.com.br
[As partes desta mensagem que não continham texto foram removidas]
