VPF::VirtualStringTree, onNodeMoving, onNodeMoved - Форум программистов

Pavelbej

Дата 6.1.2009, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

С Новым Годом Вас!

Слава богу, запой прошел мимо smile

, и вот решил что можно спокойно по программировать. В общем, столкнулся я тут с проблемой которую никак не могу понять как решить. Надеюсь на Ваше направление копания smile

.

На форме используются несколько компонентов VirtualStringTree. У каждого есть свои данные которые хранятся в своих файлах. И лишь один из компонентов реализован как оболочка на Explorer-ом. То есть, двигая узлы, копируя их, вырезая и вставляя, я проделываю эти операции и над "реальными" файлами и папками.
Узлами легко можно обмениватся между всеми компонентами (Copy, Paste) через onLoadNode и onSaveNode. Вот только с командой Cut (VT.CutToClipboard) возникли проблемы именно с компонентом который является оболочкой над Explorer-ом. В событии onNodeMoving я проверяю - если такой папки или файла нет там куда ее будем таскать - тогда разрешаем перетаскивание (вырезание), иначе нет. В onNodeMoved перебираю каждый узел, проверяю и перемещаю с помощью MoveFileW.

Вот проблемы:
1. Из другого компонента выбираем узлы, из меню нажимаем Cut, и в компоненте оболочке вставляем. Узлы вставляются, но файлы не создаются. Оно и понятно - неизвестно кто источник. Как проверить?
2. Нужна возможность также вырезать узлы из VT оболочки и вставить их (узлы) в другой VT, а сами файлы соответствующие выбранным узлам - удалить из источника.

В целом, проблема выглядит так: невозможно свободно вырезать/вставить узлы между компонентом оболочкой и остальными компонентами, потому как в событиях onNodeMoving, onNodeMoved идет работа (проверка) с файлами и невозможно понять кто источник, что он переносит - файлы и узлы или только узлы.

Если идет работа в компоненте оболочке, то он должен работать с файлами и папками (соответствующие своим узлам), если идет работа с другим компонентом, то должны копироватся, вырезатся, вставлятся только узлы.

Вот вроде все. Трудно было это все сформулировать, если непонятно, попробую еще.
Меня интересует механизм всего этого, как это должно работать. Если надо будет представлю код.

Romikgy

Дата 8.1.2009, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Цитата(Pavelbej @ 6.1.2009, 20:38

)

Если надо будет представлю код.

с этого надо начмнать имхо ,
а то ошибка в 17 строке

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Pavelbej

Дата 9.1.2009, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6

Цитата(Romikgy @ 8.1.2009, 11:49

)

а то ошибка в 17 строке

Ну там ошибки нет вроде smile

, просто непонятно как работают эти два события.
А вот и данные:

Абсолютно все компоненты (VitrtualStringTree) используют одни и те же данные

Код


type
  PBookmark = ^TBookmark;

  TBookmark = record
      Category,                   //Имя папки
      Description,                //Имя файла
      Location: widestring; //Сохранение различной информации (путь к файлу...)
      isDir: Boolean;           //Узел является папкой (true) или файлом (false)
      ...
  end;

VTIE - имя компонента оболочки над файлами

Вот событие которое происходит перед вырезанием (перемещением) узлов (onNodeMoving):

Код


procedure TForm1.VTIENodeMoving(Sender: TBaseVirtualTree; Node,
  Target: PVirtualNode; var Allowed: Boolean);
var DataParent, Data: PBookmark;
begin
    DataParent:=Sender.GetNodeData(Target);//Данные узла в которого будут перемещены выбранные узлы
    if Assigned(DataParent) then
    begin
        data:=Sender.GetNodeData(Node);//Читаем данные перемещяемых узлов
        if Assigned(data) then
            if data^.isDir then //Если перемещяемый узел является папкой
            begin
                    //Проверяем если такая папка уже есть
                    if not WideDirectoryExists(DataParent^.location+'\'+data^.Category) then
                        Allowed:=True //если нет, тогда перемещяем
                    else
                        Allowed:=false;//иначе запрещяем перемещение (вырезание);
            end
            elsе //Если узел является файлом
            begin
                    //Проверяем если такой файл уже существует
                    if not WideFileExists(DataParent^.Location+'\'+data^.Description+'.url') then
                        Allowed:=True //перемещяем
                    else
                        Allowed:=False;//запрещяем перемещение
            end;
    end;
end;

Вот событие которое происходит после вырезания узелков (onNodeMoved):

Код


procedure TForm1.VTIENodeMoved(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
var Data, DataParent: PBookmark;
    FromDir, FromFile: WideString;
begin
    Data:=Sender.getnodedata(node); //Получаем данные перемещяемых узлов
    DataParent:=Sender.getnodedata(node.parent); //Получаем данные из родителя перемещяемого узла (необходимо для составления пути к файлу)
    if Assigned(data) and Assigned(DataParent) then
        if data^.isDir then //если это папка
        begin
            FromDir:=data^.location; //читаем путь к папке
            with data^ do  //составляем новый путь (содержащийся в родителе + имя текущего узла)
                location:=DataParent^.location+'\'+data^.Category;

            MoveFileW(PWideChar(FromDir), PWideChar(data^.location)); //перемещяем папку со старого места на новое
            if not WideDirectoryExists(data^.location) then //если такой папки нет - создаем
                WideCreateDir(data^.location);
            CreateURLWhenCopy(node, data^.location);//всем дочерним узлам присваиваем соответствующие пути к файлам и папкам
        end
        else // Файл
        begin
            FromFile:=data^.location;
            with data^ do
                location:=DataParent^.location+'\'+data^.Description+'.url';

            MoveFileW(PWideChar(FromFile), PWideChar(data^.Location));
            if not WideFileExists(data^.location) then
                CreateURLFile(data^.link, data^.Location);

        end;
end;

Так вот, если вырезаю некоторые узелки из других VT, и вставляю в VTIE - узлы появляются, но соответствующие им файлы не создаются. Почему?

Добавлено через 4 минуты и 17 секунд
Кстате, в событиях OnNodeCopying и OnNodeCopied , код абсолютно идентичен с представленным выше, и никаких проблем не возникает с копированием узлов между разными компонентами. Все несчастья именно с вырезанием.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »