2番目のTPngImageCollectionItemオブジェクトの割り当て後TreeViewは最初に割り当てられたイメージを塗りつぶします（Delphi XE 7）

Question

私は最後のTPngComponents "PngComponents for Delphi 2009 - Delphi 10.2 Tokyo"を使用します。 簡単にprojectを作成して、私の問題を表示してください。

2番目のTPngImageCollectionItemオブジェクトを割り当てた後、なぜTreeViewはまだ最初に割り当てられたイメージをペイントし、いくつかのリフレッシュ関数を呼び出す必要がありますか？

type 
    TForm1 = class(TForm) 
    pilTree: TPngImageList; 
    pilNoImage: TPngImageList; 
    pilAllCor: TPngImageList; 
    tvCor: TTreeView; 
    pilAllNotCor: TPngImageList; 
    tvNoCor: TTreeView; 
    procedure FormCreate(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

procedure AddNodes(ATV: TTreeView); 
var 
    nFirst, nChild: TTreeNode; 
begin 
    nFirst := ATV.Items.AddChild(nil, '1'); 
    nChild := ATV.Items.AddChild(nFirst,'2'); 
    nChild.ImageIndex := 1; 
    nChild.SelectedIndex := 1; 
    nFirst.Expanded := True; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
var 
    iI: Integer; 
    ItemAdd: TPngImageCollectionItem; 
    ANode: TTreeNode; 
begin 
    // Steps working correct 
    for iI := 0 to 1 do begin 
    ItemAdd := pilAllCor.PngImages.Add; 
    ItemAdd.Assign(pilTree.PngImages[iI]); 
    end; 
    // Steps working NOT correct 
    for iI := 0 to 1 do begin 
    ItemAdd := pilAllNotCor.PngImages.Add; 
    ItemAdd.Assign(pilNoImage.PngImages[0]); 
    ItemAdd.Assign(pilTree.PngImages[iI]); 
    end; 

    //Setup treeview 
    tvCor.Images := pilAllCor; 
    tvNoCor.Images := pilAllNotCor; 
    AddNodes(tvCor); 
    AddNodes(tvNoCor); 
end; 

例：

Answer 1

TPngImageListにTPngImageを追加する方法はAddPngを使用して、コレクションの周りいじるされていません。これにより、イメージの実際の表示を担当する、基礎となるWindowsイメージリストも更新されます。あなたはコレクションアイテムのPngImageプロパティを割り当てる必要があり、既存の項目を変更する場合

for iI := 0 to 1 do begin 
    pilAllCor.AddPng(pilTree.PngImages[iI].PngImage); 
    end; 

：

pilAllCor.PngImages[iI].PngImage := pilTree.PngImages[iI].PngImage;