TimageList Kullanımı Sorunu [Çözüldü]

[codder71]

Merhabalar

Fesih Hocam denedim ama yine aynısı bir değişiklik olmadı maalesef her şekilde denedim ama sonuç aynı neden kaynaklana bilir bu durum acaba hocam ?

[fesiharslan]

Bir haftadır yoğun bir çalışma içindeydim. Bu hafta içerisinde bir test yaparak, buradan paylaşırım.

[fesiharslan]

Merhaba;

Örnek proje ve Component Linki:
https://mega.nz/#!OY1UGSTQ!NrR6X2ZlgzGY ... 38GGJhCCQg

Örnek projeyi kullanabilmek için:
1- Gönderdiğim Linkteki projeyi indirin.
2- LV_ImageD10\Comp klasöründeki SampleListViewMultiDetailAppearancePackage componentini kurun.



3- Tools > Options > Environment Options > Delphi Options > Library sekmesinden Library path alanına LV_ImageD10\Comp konumunu ekleyin.
4- LV_ImageD10 klasöründe yer alan örnek projeyi açın ve çalıştırın.

Örnek ekran görüntüsü


Yeni bir projede (veya önceki bir projede) MultiDetailItem yapısı ile birden fazla Image nesnesini birlikte kullanacak iseniz;
1- SampleListViewMultiDetailAppearancePackage componentini kurun (Daha önce kurmadıysanız).
2- Component path'ini ekleyin.
3- Yeni bir projede, forma ListView ekleyin.
4- ListView'ı seçin ve Object Inspector penceresinde ItemAppearance>ItemAppearance özelliğini MultiDetailItem seçin.

5- Tasarım ekranında Structure penceresinde, ListView1>ItemAppearance>Item>Image seçin.
6- Object Inspector penceresinden Visible özelliğini True yapın.

7- Forma 1 adet Image nesnesi yerleştirin ve MultiResBitmap özelliğini tıklayıp MultiResBitmap editörünün açılmasını sağlayın.
8- Editörün sol üst köşesinde yer alan Add New Item butonu ile 2 adet resim ekleyin.
9- Forma 1 adet buton yerleştirerek, OnClick olayına aşağıdaki kodları yazın.

Kod: Tümünü seç

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  I: Integer;
  LItem: TListViewItem;
begin
  ListView1.BeginUpdate;
  try
    ListView1.Items.Clear;
    for I := 1 to 5 do
    begin
        LItem := ListView1.Items.Add;
        LItem.Text := Format('Kayıt - %d', [I]);
        LItem.Data[TMultiDetailAppearanceNames.Detail1] := 'Detay1 Alanı';
        LItem.Data[TMultiDetailAppearanceNames.Detail2] := 'Detay2 Alanı';
        LItem.Data[TMultiDetailAppearanceNames.Detail3] := 'Detay3 Alanı';
        LItem.BitmapRef := Image1.MultiResBitmap[0].Bitmap; //Image içerisinde yer alan ilk resim
        //Image1.MultiResBitmap[1].Bitmap; //Image içerisinde yer alan ikinci resim
      end;
  finally
    ListView1.EndUpdate;
  end;
end;