Pessoal, será que alguém poderia me ajudar com esta procedure:
procedure TFRCadRim.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
If Column.Field = DMdados.TBCadRimFoto then
Begin
If not ( gdSelected in State ) then
DBGrid1.Canvas.FillRect(Rect);
With TPicture.Create do
Begin
Assign(DMdados.TBCadRimFoto);
DBGrid1.Canvas.StretchDraw(Rect,Bitmap);
Free;
end;
end;
end;
O que estou querendo é que o grid mostre as imagens do banco em qualquer extensão (Jpeg, Bitmap, etc)
Pergunta
VDLR
Pessoal, será que alguém poderia me ajudar com esta procedure:
O que estou querendo é que o grid mostre as imagens do banco em qualquer extensão (Jpeg, Bitmap, etc)
Se alguém sober, agradeço
Abraço
Valdecir
Link para o comentário
Compartilhar em outros sites
21 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.