Problem with TreeView[Solved]
lazarus / 10-Designer

----------------------------------------------------------------------
RobinHoo · 2009-12-23 04:25

Hi, All

I'm working on the Lazarus 0.9.29 r23078 FPC 2.2.4
i386-win32-win32/win64, and found a very strange problem of Treeview.
I can not make the setting ExpandSignType work both in design mode or
runtime. But when I tried some sample coming with Lazarus, it set as
default value and works. Puzzled me! Anyone knows it? Or any
suggestion about it? Thanks in advance. And I attached my code as
bellow.

Code: [Select]procedure TMainForm.tcObjectsChange(Sender: TObject);
var
    i,nObjIdx,WordIdx,j  :Integer;
    ObjAry               :Array of Integer;
    ObjNode,ChildNode    :TTreeNode;
begin
    tvObj.Items.Clear;
    tvObj.ExpandSignType:=tvestPlusMinus;
    WordIdx:=sgdWordList.Row-1;
    if WordIdx<0 then exit;
    j:=-1;
    with TranResList[WordIdx] do
    begin
        for i:=0 to high(ObjRef) do
        begin
            nObjIdx:=ObjRef[i].ObjIdx;
            setlength(ObjAry,0);
            while nObjIdx<>-1 do
            begin
                setlength(ObjAry,length(ObjAry)+1);
                ObjAry[high(ObjAry)]:=nObjIdx;
                nObjIdx:=ObjList[nObjIdx].ParentIdx;
            end;
            ObjNode:=nil;
            if (high(ObjAry)>=0) and (j<>ObjAry[high(ObjAry)]) then
          
 CreateObjTree(tvObj,ObjNode,ObjAry[high(ObjAry)],ObjRef[i].ObjIdx);
            tvObj.FullExpand;
            setlength(ObjAry,0);
        end;
    end;
end;

Code: [Select]procedure CreateObjTree(var
ObjTree:TTreeView;ParentNode:TTreeNode;nObjIdx,nTarget:Integer);
var
    Node    :TTreeNode;
    i,Idx   :integer;
begin
    Node:=ObjTree.Items.AddChild(ParentNode,ObjList[nObjIdx].ObjName);
    Idx:=Objects.IndexOf(ObjList[nObjIdx].ObjType);
    if Idx<0 then Idx:=48;
    Node.ImageIndex:=Idx;
    Node.SelectedIndex:=Idx;
    for i:=0 to high(ObjList) do
    begin
        if ObjList[i].ParentIdx<>nObjIdx then continue;
         CreateObjTree(ObjTree,Node,i,nTarget);
    end;
end;

----------------------------------------------------------------------
RobinHoo · 2009-12-23 05:31

Hi, All

I found the reason, sorry I set the showbuttons to false by mistake.
Sorry for your time.