두 번째 TPngImageCollectionItem 개체를 할당 한 후 TreeView 여전히 첫 번째 할당 된 이미지를 그립니다. (Delphi XE 7)

Question

마지막 TPngComponents "PngComponents for Delphi 2009 - Delphi 10.2 Tokyo"을 사용합니다. 내 문제를 표시하기 위해 간단하게 project을 작성하십시오.

두 번째 후에 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

방법은 AddPng을 사용하고 수집 주위 하구되지 않은 TPngImageList에 TPngImage을 추가한다. 또한 이미지의 실제 표시를 담당하는 기본 Windows 이미지 목록을 업데이트합니다.

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