colocar imagem na coluna fixa do dbgrid...

Delphi

03/05/2005

Olá,


Tenho um dbgrid onde mostro um registro pai e no mesmo dbgrid só que nas linhas de baixo, mostro os registros filhos. Para facilitar a visualização por parte do usuário, gostaria de que quando eu selecionasse um registro, na primeira coluna do meu ddgrid aquela fixa, aparecesse uma imagem, em todos os registros pertencentes àquela família.

Tem como eu fazer isso? como seria?


Balceiro

Balceiro

Curtidas 0

Respostas

Nerdex

Nerdex

03/05/2005

Segue um exemplo q eu não testei...: veja q as imagens estão incluídas em um ImageList. 

if Column.Field = ClientDataSet1SEXO then
begin
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawDataCell(rect,Column.Fied,State);
if ClientDataSetSEXO.AsString = ´M´ then
ImageList1.Draw(DBGrid1.Canvas.Rect.Left+16,Rect.Top+1,3);
if ClientDataSetSEXO.AsString = ´F´ then
ImageList1.Draw(DBGrid1.Canvas.Rect.Left+16,Rect.Top+1,4);
end;


Adapte para as tuas necessidades.
p.s.: carregue 3 imagens no ImageList para ver se é chamado na aplic.


GOSTEI 0
POSTAR