LISTVIEWER - CARREGAR IMAGENS URL
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
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 ;
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
Curtidas 0