Imagem no DBGrid?

Delphi

10/06/2005

Olá amigos... estava buscando aquele exemplo que saiu no TopUploader sobre como colocar uma imagem para mostrar o status de um campo em um DBGrid mais não tô encontrando alguém teria ele, ou saberia me dizer como faço para colocar uma imagem no dbgrid de acordo com um valor contido no banco de dados.
Grato pela atenção.


Joule

Joule

Curtidas 0

Respostas

Delphi32

Delphi32

10/06/2005

Uma opção seria fazer o seguinte:

if Column.Field=IBQuery1ATIVO then
begin
   DBGrid1.Canvas.FillRect(Rect);
   //
   if Column.Field.AsString=´T´ then
   ImageList1.Draw(DBGrid1.Canvas,Rect.Left+5,Rect.Top+1,1)
   else
   ImageList1.Draw(DBGrid1.Canvas,Rect.Left+5,Rect.Top+1,2);
end;


Uso esse exemplo para desenhar uma checkbox no grid de acordo com o valor do campo. Repare que as imagens que serão desenhadas estão armazenadas em um TImageList.

Qualquer coisa, poste aqui de novo. Até!


GOSTEI 0
Delphi32

Delphi32

10/06/2005

Ops... Esqueci de dizer...

Esse código entra no evento OnDrawColumnCell do DBGrid.

Até!


GOSTEI 0
Joule

Joule

10/06/2005

delphi32... obrigado era isso mesmo que procurava...


GOSTEI 0
POSTAR