Размеры TreeView на форме

int MaxS=0;
int L1=0;
int hh=Canvas->TextHeight(ML[0].NameFull);
for(int i=0;i<TreeView1->Items->Count;i++)
{
    if(Canvas->TextWidth(ML[i].NameFull)>MaxS)
    MaxS=Canvas->TextWidth(ML[i].NameFull);
    if(ML[i].Lev>L1)
    L1=ML[i].Lev;
 
}
TreeView1->Width=35+MaxS+(hh+4)*L1;
TreeView1->Height=(hh+4)*TreeView1->Items->Count;

    TRect r = TreeView1->Items->Item[0]->DisplayRect(false); // <--- весь айтем
    Memo2->Lines->Add(String().sprintf(L"Ширина = %d, Высота = %d, Ширина TreeView = %d",
        r.Right - r.Left, r.Bottom - r.Top, TreeView1->Width));
    r = TreeView1->Items->Item[0]->DisplayRect(true); // <--- только текст
    Memo2->Lines->Add(String().sprintf(L"Ширина = %d, Высота = %d",
        r.Right - r.Left, r.Bottom - r.Top));

TRect RectTV;int Lev=0;int WSize=0;
for(int i=0;i<TreeView1->Items->Count;i++)
{
    RectTV=TreeView1->Items->Item[i]->DisplayRect(true);
    if(RectTV.Right - RectTV.Left>WSize)
    WSize=RectTV.Right - RectTV.Left;
 
    if(TreeView1->Items->Item[i]->Level+1>Lev)
    Lev=TreeView1->Items->Item[i]->Level+1;
}
TreeView1->Width= 30+WSize+Lev*25;

    TRect r;
    int wid = 0;
    for(int i = 0; i < TreeView1->Items->Count; i++)
    {
        r = TreeView1->Items->Item[i]->DisplayRect(true);
        wid = Max(r.Right, wid); // правый край сразу покажет, где должен завершиться узел, уже не надо учитывать уровень
    }
    TreeView1->Width = wid + {ширина скролла}