Fórum DBGrid #295789

/Troca figura da celula status ao clique do mouse

If DBContasReceber.SelectedField=IBDConsContas.FieldByName(´Status´)
     Then  Begin
             IBDConsContas.Edit;
             if IBDConsContas.FieldByName(´Status´).AsString = ´1´
                then Begin
                       IBDConsContas.FieldByName(´Status´).AsString := ´0´;
              

                     end
                else Begin
                       IBDConsContas.FieldByName(´Status´).AsString := ´1´;

                  
                     end;
           end;

if DBContasReceber.SelectedField=IBDConsContas.FieldByName(´status´)
   Then DBContasReceber.Options:=DBContasReceber.Options - [dgEditing]
   else DBContasReceber.Options:=DBcontasReceber.Options + [dgediting];

/pinta Celulas Impares
IF odd(IBDConsContas.RecNo)
    Then  Begin
            DBContasReceber.Canvas.Brush.Color:=ClCream;;
            DBContasReceber.Canvas.FillRect(Rect);
            DBContasReceber.DefaultDrawDataCell(Rect,Column.Field,State);

          if  gdFocused in state
              Then Begin
                     DBContasReceber.Canvas.Brush.Color:=ClMenuBar;
                     DBContasReceber.DefaultDrawDataCell(Rect,Column.Field,state);
                   end;

          end;
//Simulando uma checBox para o campo Status
If Column.Field =IBDConsContas.FieldByName(´Status´)
   then  Begin
           DBContasReceber.Canvas.FillRect(Rect);
           If IBDConsContas.FieldByName(´Status´).AsString=´0´
             then imagelist1.Draw(DBContasReceber.Canvas, Rect.Left + 20, Rect.Top + 1, 0)
             else ImageList1.Draw(DBContasReceber.Canvas, Rect.Left + 20, Rect.Top + 1, 1);
          end;
//Trocando a figura para a celula que detem o foco
if (gdFocused in state) and (IBDConsContas.FieldByName(´status´).AsString = ´0´)
   then ImageList1.Draw(DBContasReceber.Canvas, Rect.Left + 20,Rect.Top + 1, 2);
If (gdFocused in State) and (IBDConsContas.FieldByName(´Status´).AsString = ´1´)
   then ImageList1.Draw(DBContasReceber.Canvas, Rect.Left + 20, Rect.Top +1,3);

BAIXAR DA INTERNET 
http://www.editoraerica.com.br/download_final.asp
PROCURAR POR SISTEMA 
E BAIXAR O SEGUINTE TOPICO

 Série Faça um Aplicativo - Sistema Comercial Integrado com Delphi 7 - Relatórios & Ferramentas
CONTEM AS IMAGENS,,