Fórum Imagem no DBGrid? #284357
10/06/2005
0
Grato pela atenção.
Joule
Curtir tópico
+ 0Posts
10/06/2005
Delphi32
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
10/06/2005
Delphi32
Esse código entra no evento OnDrawColumnCell do DBGrid.
Até!
Gostei + 0
10/06/2005
Joule
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)