Merhaba.
- Örnekleri yazarken açıklayıcı olsun diye hiç bir unsuru form üzerinde yapmadım. Her şeyi Dinamik olarak create edip aynı yerde free ettim ki, ne için olduğu anlaşılsın istedim.
- Aşağıdaki kod yayınladığım örnektendir : Bu örnekteki
LImage := TListItemImage.Create(AItem); ile bir Image create ediliyor ya bundan bir tane daha create edersen iki tane Image'in olur. Bunun sayısını dilediğin kadar arttırabilirsin.
Kod: Tümünü seç
Var
AItem : TListViewItem;
LImage : TListItemImage;
// ... vs.vs.
begin
// önceki işlemler...
if Bilgi.strTitle <> '' then
begin
AItem := ListView.Items.Add;
AItem.Height := 132;
AItem.Text := '';
LImage := TListItemImage.Create(AItem);
LImage.Name := 'Resim';
LImage.Align := TListItemAlign.Trailing; // En Sağ
LImage.VertAlign := TListItemAlign.Center; // Orta
LImage.PlaceOffset.Y := 2;
LImage.PlaceOffset.X := 0;
LImage.Width := 90;
LImage.Height := 128;
LImage.OwnsBitmap := True;
LImage.Bitmap := TBitmap.Create(0, 0);
MS := TMemoryStream.Create;
IdHttp.Get(Bilgi.strDescription, MS);
MS.Seek(0,soFromBeginning);
LImage.Bitmap.LoadFromStream(MS);
MS.Free;
// ve takip eden diğer işlemler....
end;