hola amigos, trato de llevar unos campos de Sql Server a los item de listview algunos de ellos fueron creados por mi, no he logrago conseguir la forma de hacerlo.
Código Delphi
[-]procedure TForminicio.Button1Click(Sender: TObject);
var
vItemList : TListViewItem;
StreamIMG : TStream;
begin
UniQueryVisita.Close;
UniQueryVisita.Open;
while not UniQueryVisita.Eof do
begin
vItemList := lvClientes.items.Add;
StreamIMG := TMemoryStream.Create;
if UniQueryVisitafoto.IsNull then
IMG_Vendor.bitmap.saveToStream(streamIMG)
else
UniQueryVisitafoto.saveToStream(streamIMG);
vItemList.bitmap := Circle1.MakeScreenshot;
UniQueryVisita.Next;
end;
end;
Adjunto imagen tambien del ide, talvez con eso puede ser mas de ayuda para el que realmente conoce del tema.