DBGrid

Delphi

16/09/2005

Como faço para colocar uma imagem no dbgrid se um campo tiver um valor ´S´ por exemplo. Ai no lugar do ´S´ colocaria uma imagem.


Foxcyber

Foxcyber

Curtidas 0

Respostas

Sistemald

Sistemald

16/09/2005

De uma olhada no site abaixo

http://desenvolvedor.donato.inf.br/

entre em projetos e faça download do TDonatoDbGrid

ele tem propriedade zebra, autosave das colunas, e boolean,

de uma olhada nos código, pois ele verifica um texto e coloca uma imagem.


GOSTEI 0
Foxcyber

Foxcyber

16/09/2005

The page cannot be found. Na hr de fazer download


GOSTEI 0
Sistemald

Sistemald

16/09/2005

Pronto!!! pode baixar


GOSTEI 0
Martins

Martins

16/09/2005

The page cannot be found. Na hr de fazer download


Tenta novamente q o Link tá blz sim, testei o Download e abri blz!!!

Boa Sorte!!!


GOSTEI 0
Fmtrevisan

Fmtrevisan

16/09/2005

Mas ao marcar uma Check Box e sair do Formulario, ela grava automaticamente no banco,
COMO FACO PARA RESOLVER ISTO!! 



/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,,



GOSTEI 0
POSTAR