Форум программистов [Powered by Invision Power Board]

Код

procedure TForm1.VTHeaderClick(Sender: TVTHeader; HitInfo: TVTHeaderHitInfo);
begin
  With HitInfo Do
  Begin

    if Button = mbLeft then
    begin
      // Меняем индекс сортирующей колонки на индекс колонки,
      // которая была нажата.
      VT.Header.SortColumn := Column;
      // Сортируем всё дерево относительно этой колонки
      // и изменяем порядок сортировки на противополжный
      if VT.Header.SortDirection = sdAscending then
      begin
        VT.Header.SortDirection := sdDescending;
        VT.SortTree(Column, VT.Header.SortDirection);
      end
      else
      begin
        VT.Header.SortDirection := sdAscending;
        VT.SortTree(Column, VT.Header.SortDirection);
      end;
    end;

  End;
end;

procedure TForm1.VTCompareNodes(Sender: TBaseVirtualTree;
  Node1, Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
Var
  Name1, Name2: String;
  Attr1, Attr2: String;
  Size1, Size2:Int64;
  Date1, Date2: TDateTime;
  i1, i2: Integer;
  Data1, Data2: PFMItem;
  HitInfo: TVTHeaderHitInfo;
begin
  Data1 := Sender.GetNodeData(Node1);
  Data2 := Sender.GetNodeData(Node2);

  i1 := Pos('-D', Data1^.Attr);
  i2 := Pos('-D', Data2^.Attr);
  Name1 := LowerCase(Data1^.Name);
  Name2 := LowerCase(Data2^.Name);

  Size1 := StrToInt64Def(Data1^.Size,0);
  Size2 := StrToInt64Def(Data2^.Size,0);

  Date1 := strtodatetime(Data1^.Date);
  Date2 := strtodatetime(Data2^.Date);

  Attr1 := LowerCase(Data1^.Attr);
  Attr2 := LowerCase(Data2^.Attr);

  Result := 0;

  case Column of
    0://Сортировка по имени
      Begin
        // Сортируем папки
        if (i1 > 0) and (i2 > 0) then
        Begin
          if Name1 > Name2      then Result := 1
          else if Name1 < Name2 then Result := -1;
        End;

        // Сортируем файлы
        if (i1 = 0) and (i1 = 0) then // для файлов
          if Name1 > Name2      then Result := 1
          else if Name1 < Name2 then Result := -1
      end;

    1://Сортировка по размеру
      Begin
        // Сортируем папки
        if (i1 > 0) and (i2 > 0) then
        Begin
          if Size1 > Size2      then Result := 1
          else if Size1 < Size2 then Result := -1;
        End;

        // Сортируем файлы
        if (i1 = 0) and (i1 = 0) then // для файлов
          if Size1 > Size2      then Result := 1
          else if Size1 < Size2 then Result := -1
      End;

    2://Сортировка по дате
      Begin
        // Сортируем папки
        if (i1 > 0) and (i2 > 0) then
        Begin
          if Date1 > Date2      then Result := 1
          else if Date1 < Date2 then Result := -1;
        End;

        // Сортируем файлы
        if (i1 = 0) and (i1 = 0) then // для файлов
          if Date1 > Date2      then Result := 1
          else if Date1 < Date2 then Result := -1
      End;

    3://Сортировка по аттрибутам
      Begin
        // Сортируем папки
        if (i1 > 0) and (i2 > 0) then
        Begin
          if Attr1 > Attr2      then Result := 1
          else if Attr1 < Attr2 then Result := -1;
        End;

        // Сортируем файлы
        if (i1 = 0) and (i1 = 0) then // для файлов
          if Attr1 > Attr2      then Result := 1
          else if Attr1 < Attr2 then Result := -1
      End;
  end;
  // корень всегда вверху
  // при обратной сортировке делаем реверс кузультата
  // для корневой точки '..'
  if VT.Header.SortDirection = sdAscending then
  begin
    if (Name2 = '..')      then Result := 1
    else if (Name1 = '..') then Result := -1
  end
  else
  Begin
    if (Name2 = '..')      then Result := -1
    else if (Name1 = '..') then Result := 1
  End;

end;