Imagem no dbgrid - Essa é difícil.

Delphi

18/02/2004

Galera, na revista CD n.º 44 tem um exemplo de como colocar imagens no dbgrid ao lado do texto da célula.
Só que no exemplo a imagem fica do lado direito e eu gostaria que ela ficasse do lado esquerdo, alguém sabe como fazer.
Tentei de tudo e não consegui.
Se alguém puder me ajudar eu agradeço muito.
Obrigado.


Edukobra

Edukobra

Curtidas 0

Respostas

Dbergkamps

Dbergkamps

18/02/2004

edu,
eu nunca tentei imagens & bd, mas veja se não há nenhuma característica como alignment no dbgrid(suponho que vc esteja usando um)


GOSTEI 0
Edukobra

Edukobra

18/02/2004

Como já disse, já tentei de tudo, se quiser eu lhe mando o exemplo e vc tenta pra mim, me passe o se e-mail que eu te mando, meu e-mail é: eduardo@lpnet.com.br


GOSTEI 0
Leanribas

Leanribas

18/02/2004

no exemplo da revista, se vc quiser desenhar a figura no lado esquerdo faça assim:


(*Pinta ícone para o campo sexo*)
if Column.Field=ClientDataSet1SEXO then
begin
R := Rect;
DBGrid1.Canvas.FillRect(Rect);
R.Left := R.Left + 16;
DBGrid1.DefaultDrawDataCell(R,Column.Field,State); // pinta o texto padrão
if ClientDataSet1SEXO.AsString=´M´ then
ImageList1.Draw(DBGrid1.Canvas,Rect.Left+1,Rect.Top+1,3);
if ClientDataSet1SEXO.AsString=´F´ then
ImageList1.Draw(DBGrid1.Canvas,Rect.Left+1,Rect.Top+1,4);
//DBGrid1.DefaultDrawDataCell(rect,Column.Field,State); // pinta o texto padrão
end;

Falou.

Leandro


GOSTEI 0
POSTAR