Конференция "KOL" » TreeXML.TVExpand(TVI_ROOT, TVE_EXPAND); [Delphi, Windows]
 
  • RusSun © (07.02.18 15:24) [0]
    Доброе время суток.
    TreeXML.TVExpand(TVI_ROOT, TVE_EXPAND);


    Проверьте, пожалуйста, работает ли?
    Второй вопрос если в KOL,  аналог
    treeview.FullExpand;


    Спасибо.
  • RusSun © (24.02.18 12:53) [1]
    procedure FullExpand(N: THandle);
    var a: Cardinal;
       b: Boolean;
    begin
     b := N = 0;
     if  b then
         N := TreeXML.TVRoot;
     while N <> 0 do
     begin
         a := TreeXML.TVItemChild[N];
         if  a > 0 then FullExpand(a);
         TreeXML.TVExpand(N, TVM_EXPAND);
         N := TreeXML.TVItemNext[N];
     end;
    end;
    procedure TForm1.OpenTestClick(Sender: PObj);
    begin
    FullExpand(TreeXML.TVRoot);
    end;

 
Конференция "KOL" » TreeXML.TVExpand(TVI_ROOT, TVE_EXPAND); [Delphi, Windows]
Есть новые Нет новых   [103778   +17][b:0.001][p:0.002]