実行時のリストビューイメージの変更デルファイ10.1ベルリン

Question

デルファイ10.1ベルリン。 ListView.ItemAppearance = DynamicAppearance。 ランタイムでListViewItemのImageを変更したいと思います。

マイコード：

procedure TForm1.Button2Click(Sender: TObject); 
var 
    k:integer; 
begin 
    LsvAl.BeginUpdate; 
    for k := 0 to LsvAl.ItemCount-1 do 
    begin 
    if (k mod 2)=0 then 
    begin 
     TListItemImage(LsvAl.Items[k].Objects.FindDrawable('Imp1')).Bitmap.Assign(Image2.Bitmap); // 
     TListItemText(LsvAl.Items[k].Objects.FindDrawable('TxtNum')).TextColor:=$FFFF2346; 
    end 
    else 
    begin 
     TListItemImage(LsvAl.Items[k].Objects.FindDrawable('Imp1')).Bitmap.Assign(Image1.Bitmap); 
     TListItemText(LsvAl.Items[k].Objects.FindDrawable('TxtNum')).TextColor:=$FF009DFE; 
    end 
    end; 
    LsvAl.EndUpdate; 

終了。

結果：すべての写真が赤色（画像1も）です。

私が間違って何をしているのですか？

Project source

Answer 1

1個のアドオンです - ビットマップを割り当てた後、あなたが AItem.OwnsBitmapによってアイテムの所有者を行うことができます= Trueの場合;