TRzCheckTree TImageList 简单应用

https://blog.csdn.net/sbfksmq/article/details/52765969   ---TRzCheckTree checkbox TImageList 简单应用

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, Menus, StdCtrls, ExtCtrls, ComCtrls, RzTreeVw;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;//这里在面板上添加了一个图片列表作为 RzCheckTree1显示图片(关联的方法是在控件rzchecktree的images属性添加，你也可以为tree添加stateimages图片，当然显示就不再是对号了，本程序没添加stateimages)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    RzCheckTree1: TRzCheckTree;   //控件在RaizeLists控件选项卡里找
    Button4: TButton;
    procedure AddSomethingButton1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure AddPlantButton3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);

  private
    { Private declarations }
    AnimalNode,PlantNode:TTreeNode;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AddSomethingButton1Click(Sender: TObject);  //初始化两个父结点 （人，动物）

begin
   AnimalNode := RzCheckTree1.Items.Add(nil,'Animal');    //添加父结点

   PlantNode := RzCheckTree1.Items.Add(nil,'Plant');
end;

procedure TForm1.Button2Click(Sender: TObject);//添加对应动物父结点的子结点
var
   subNode :TTreeNode;
begin
  subNode := RzCheckTree1.Items.AddChild(AnimalNode,'AnimalLikeThis');
// subNode.Selected := True;
  RzCheckTree1.FullExpand;//展开树结构     RzCheckTree1.FullCollapse;  //收缩
end;

procedure TForm1.AddPlantButton3Click(Sender: TObject);//添加对应人物父结点的子结点
var
   subNode :TTreeNode;
begin
  subNode := RzCheckTree1.Items.AddChild(PlantNode,'PlantLikeThis');    //添加子结点
  //subNode.Selected := True;
  RzCheckTree1.FullExpand;//展开树结构
end;

procedure TForm1.Button4Click(Sender: TObject);
var
   i :Integer;
begin
  RzCheckTree1.Items.BeginUpdate;
    for i:= 0 to RzCheckTree1.Items.Count -1 do
    if RzCheckTree1.Items[i].Level <> 0 then

    begin
      if RzCheckTree1.ItemState[i] = csChecked then
      begin
          //1 则为未选中状态      3 则为未全选状态     2 则为选中状态
           RzCheckTree1.Items[i].ImageIndex:= 2;
      end
      else
      begin
        RzCheckTree1.Items[i].ImageIndex := 1;
       end;
    end
    else
      RzCheckTree1.Items[i].ImageIndex:= 0;   //空白图片
  RzCheckTree1.Items.EndUpdate;
end;

end
---------------------
作者：鸟类学
来源：CSDN
原文：https://blog.csdn.net/sbfksmq/article/details/52765969
版权声明：本文为博主原创文章，转载请附上博文链接！