Menambah Image Pada Treeview Saat Running

Menambah Image Pada Treeview Saat Running~Setelah sebelumnya kita bahas bagaimana cara menampilkan dua tabel didalam 1 treeview, kali ini saya akan bahas lagi bagaimana mempercantik treeview agar kelihatan menarik dengan menambahkan beberapa icon sebagai penanda seperti gambar berikut ini :

Dari gambar diatas terlihat bahwa antara parent dan child memiliki image yang berbeda. Untuk membuat hal ini, sobat tinggal tambahkan sebuah ImageList kedalam form dan tambahkan dua gambar ICO yang akan kita jadikan image pada tree view kita, satu untuk image parent dan satu untuk image child seperti gambar diatas.

Dari listing sebelumnya kita dapat lakukan modifikasi pada beberapa bagian untuk menambah image pada masing-masing node tree view pada saat running seperti listing berikut ini :

procedure TForm1.FormActivate(Sender: TObject);
var i, j : integer;
begin
   with ADOQuery1 do begin
       SQL.Clear;
       SQL.Text := 'select * from Tabel_kecamatan';
       Active := false;
       Active := true;
       First;
   end;

   with TreeView1.Items.AddFirst(  nil,  'Daftar Kecamatan dan Desa'  ) do Selected := true;

   for i := 1 to ADOQuery1.RecordCount do begin
      with TreeView1.Items.AddChildFirst(  TreeView1.Selected,  ADOQuery1.Fields.Fields[1].AsString) do begin
         Selected := true;
         MakeVisible;
         ImageIndex := 0; //ini untuk menambah image pada parent
      end;

      with ADOQuery2 do begin
          SQL.Clear;
          SQL.Text := 'select * from Tabel_desa where [Kode Kecamatan]=' +
                      QuotedStr(ADOQuery1.Fields.Fields[0].AsString);
          Active := false;
          Active := true;
          First;
      end;
      for j := 1 to ADOQuery2.RecordCount do begin
         with TreeView1.Items.AddChildFirst(TreeView1.Selected, ADOQuery2.Fields.Fields[2].AsString) do
         begin
            MakeVisible;
            ImageIndex := 1; //ini untuk menambah pada child
         end;
         ADOQuery2.Next;
      end;
      ADOQuery1.Next;
      TreeView1.Items.Item[0].Selected := true;
   end;
end;

Semoga bermanfaat~Semilir hati