Udah mumet...udah muter sana muter sini tetap yg didapat imageindexnya =0... Gimana cara ngedaptin Image Index Treeview berdasarkan DataBase...

CREATE TABLE project (
  Pr_id int(11) NOT NULL auto_increment,
  Pr_parent int(11) default NULL,
  Pr_name varchar(50) default NULL,
  Pr_bdate datetime default NULL,
  Pr_edate datetime default NULL,
  Pr_info longblob,
  id_Image int(1) default NULL,
  PRIMARY KEY  (Pr_id),
  KEY idxKu (Pr_id)
) ENGINE=InnoDB AUTO_INCREMENT=12 DEFAULT CHARSET=latin1;

Keterangan : Id_Image adalah Field Yg menampung ImageIndex Dari TimageList; Saat Penambahan Node Tidak ada masalah mengenai ImageIndexnya

var
  Node:TTreeNode;
begin
  if dxDBTreeView1.Selected=nil then
  begin
    Node:=dxDBTreeView1.Items.Add(dxDBTreeView1.Selected, 'Folder '+IntToStr(dxDBTreeView1.Items.Count));
    Node.ImageIndex:=0;
    Node.SelectedIndex:=0;
    IndexImg:=0;
  end
  else
    if (dxDBTreeView1.Selected<>niL)and (FNodeId=0) then
    begin
        Node:=dxDBTreeView1.Items.Addchild(dxDBTreeView1.Selected, 'Folder '+IntToStr(dxDBTreeView1.Items.Count));
        Node.ImageIndex:=0;
        Node.SelectedIndex:=0;
    end
     else
       MessageDlg('can not create parent !',mtWarning,[mbOK],0);

Tapi setelah aplikasi Terminate...dan saat diload

procedure TForm3.dxDBTreeView1GetImageIndex(Sender: TObject;
  Node: TTreeNode);
var
  sp_node_image_selects:TMyStoredProc;
begin
  sp_node_image_selects:=TMyStoredProc.Create(nil);
  sp_node_image_selects.Connection:=Koneksi;
  try
    with sp_node_image_selects do
    begin
      DisableControls;
      Active :=False;
      SQL.Clear;
      SQL.Add('call sp_node_image_selects()');
      Active :=True;
      EnableControls;
    end;
    sp_node_image_selects.First;
    while not sp_node_image_selects.Eof do
    begin
      Node.ImageIndex:=sp_node_image_selects.Fields[0].AsInteger;
      sp_node_image_selects.Next;
    end;
  finally
    sp_node_image_selects.Free;
  end;
end;

Store Procedure Untuk selects Image Index

CREATE PROCEDURE sp_node_image_selects()
    NOT DETERMINISTIC
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
  select id_image from project;
END;

Aturan Man : IdImage =0,1; Jika IdImage=0 Maka Node Menggunakan ImageIndex=0 Dari TImageList dan sebaliknya Jika IdImage=1 Maka Node Menggunakan ImageIndex=1 Dari TImageList Masalahnya : Saat Aplikasi terminate dan di runing lagi Image Yang diload selalu ImageIndex = 0 Kenap dan mengapa daku belom menemukan Penyebanya!!! Mohon Share Dari rekan2 semua.....(Not Mode On becanda.... :x )

kode utk nulis ke DB-nya mana ? dan... dari potongan kode yg anda sertakan pada saat penambahan node selalu : ---- Node.ImageIndex:=0; mana bagian yg melakukan : Node.ImageIndex:=1; ?

dan dari: while not sp_node_image_selects.Eof do begin Node.ImageIndex:=sp_node_image_selects.Fields[0].AsInteger; sp_node_image_selects.Next; end; berarti setiapkali si TreeView mau baca image-nya setiap node , selalu dapetin image index yg ditunjukin oleh RECORD TERAKHIR dari hasil stored procedure. ( artinya selalu sama untuk semua node yg ada di TreeView). Ingat looping anda selalu berakhir di record terakhir ... soalnya anda melakukan looping yg sama untuk setiap node.

Xixixixxii Soryy Om Mat Koder...Memang Potongannya Hanya Daku Potong sebagina Sajah!!! Untuk Add Child

  if (dxDBTreeView1.Selected <> Nil) then
  begin
    if (dxDBTreeView1.Selected.ImageIndex=0)and(dxDBTreeView1.Selected.SelectedIndex=0)then
    begin
      Node:=dxDBTreeView1.Items.AddChild(dxDBTreeView1.Selected,'File '+IntToStr(dxDBTreeView1.Items.Count)) ;//+ dxDBTreeView1.Selected.Text);
      Node.ImageIndex:=1;
      Node.SelectedIndex:=1;
      IndexImg:=1;
      RichViewEdit1.Clear;
      RichViewEdit1.Format;
    end
    else
      MessageDlg('Root Must Have a Parent',mtInformation,[mbOK],0);
  end;

Xixixixixxi Dan terimakasih Juga Atas Respondnya...jawaban Sudah daku temukan sendiri

    sp_node_image_selects:=TMyStoredProc.Create(nil);
  sp_node_image_selects.Connection:=Koneksi;
  try
    with sp_node_image_selects do
    begin
      DisableControls;
      Active :=False;
      SQL.Clear;
      SQL.Add('call sp_node_image_selects()');
      Active :=True;
      EnableControls;
    end;
    sp_node_image_selects.First;
    while not sp_node_image_selects.Eof do
    begin
      for i:=0 to dxDBTreeView1.Items.Count- 1 do
      begin
        Node:=dxDBTreeView1.Items[i];
        Node.ImageIndex:=sp_node_image_selects.Fields[0].AsInteger;
        Node.SelectedIndex:=sp_node_image_selects.Fields[0].AsInteger;
        sp_node_image_selects.Next;
      end;
    end;
  finally
    sp_node_image_selects.Free;
  end;

Keslahannya Daku Tidka Meloop seluruh node..so pasti Node yg pertama saja yg diidentifikasi...Sekarang sudah bisa... Coba sedikit penambahan Node:=dxDBTreeView1.Items[i]; Node.ImageIndex:=sp_node_image_selects.Fields[0].AsInteger; Node.SelectedIndex:=sp_node_image_selects.Fields[0].AsInteger; Orang yg aneh...nanya kok jawab sendiri Dan Sedikit Menata Eventnya..Karena EventOngetImage..Selalu Berulang2....Sodirubah ke Event FormonCreate

Keslahannya Daku Tidka Meloop seluruh node..so pasti Node yg pertama saja yg diidentifikasi...Sekarang sudah bisa...

sebenarnya program anda sudah melakukan loop SELURUH NODE , sebab anda bikin di event OnGetImage. Namun selalu dapetnya value dari RECORD terakhir dari DB anda. - node 0 --- imageindex n (: ini salah) - node 1 --- imageindex n (: ini salah) - node 2 --- imageindex n (: ini salah) - ....... - ..... - node n --- image index n (: ini betul)