LISTVIEWER - CARREGAR IMAGENS URL

14/12/2023

0

Pessoal estou usando uma procedure que achei na net para colocar o croqui de alguns itens que estou listando no listview, peço desculpas por uma pergunta tão básica mas sou somente um entusiasta na programação consigo carregar a URL de uma tabela para o referido croqui ele carrega, mas faz de forma repetitiva, e poe a imgaem igual em todos os itens da listview, encarecidamente alguem poderia me ensinar o correto ?

segue o trecho do codigo.

Código:
<code>
procedure TFrPedItem.AddVendedorListViewped(NM_DOCUMENTO: integer; DS_PROJETOITEM, QTDE, CD_PROJETOITEM: string; Foto: TBitmap);

var
item: TListViewItem;
Strm: TMemoryStream;
Bitmap: TBitmap;
HTTPClient: TIdHTTP;
Stream: TMemoryStream;

begin

item := lvMetasped.Items.Add;
item.Height := 110;
item.Tag := DMglassbox.QueryfakNM_DOCUMENTO.Value;

//trata imagem em branco


// Descrição
TListItemText(item.Objects.FindDrawable(''''txDescItem'''')).Text := ''''Especificação: ''''+ DMglassbox.QueryfakCD_PROJETOITEM.Value ;
// Email
TListItemText(item.Objects.FindDrawable(''''TxQtditem'''')).Text := ''''Quantidade: '''' + FloatToStr(DMglassbox.QueryfakQTDE.Value);
// Porcentagem
TListItemText(item.Objects.FindDrawable(''''txProjItem'''')).Text := DMglassbox.QueryfakDS_PROJETOITEM.Value ;
LayoutListviewped(item);
//Im_croqui.Bitmap := nil;
if DMglassboX.QueryfakDS_IMAGEM.Value <> '''''''' then
Begin
Im_croqui.Bitmap.LoadFromUrl(DMglassbox.QueryfakDS_IMAGEM.Value);
// Foto Croqui
Im_croqui.Bitmap.LoadFromUrl(DMglassbox.QueryfakDS_IMAGEM.Value);
TListItemImage(item.Objects.FindDrawable(''''imgCroqui'''')).Bitmap := Im_croqui.Bitmap;
TListItemImage(item.Objects.FindDrawable(''''imgCroqui'''')).OwnsBitmap := true;
End
Else
Begin
Im_croqui.Bitmap.LoadFromUrl(''''https://www.malhariapradense.com.br/wp-content/uploads/2017/08/produto-sem-imagem.png'''');
TListItemImage(item.Objects.FindDrawable(''''imgCroqui'''')).Bitmap := Im_croqui.Bitmap;
TListItemImage(item.Objects.FindDrawable(''''imgCroqui'''')).OwnsBitmap := true;
End;



end;
</code>

segue o resultado atual do app, agradeço a ajuda. !!!

https://uploaddeimagens.com.br/imagens/eXy5FqM
Alexandre Marques

Alexandre Marques

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar