Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.12.2012, 20:14   #1
vinc2000
Пользователь
 
Аватар для vinc2000
 
Регистрация: 31.01.2012
Сообщений: 47
Радость Объединение 2-х virtualdrawtree

Привет всем. Больше недели разбираюсь с virtualdrawtree, перебрал все исходники, пробежался по документации, вдоль и поперек прошел весь этот форум, но так нигде и не нашел инфы о том как объединить 2 virtualdrawtree или 2 virtualstringtree между собой?

Копать я понял надо в 2-х событиях: OnInitNode и OnInitChildren. Вопрос в том - как передать данные (с проверкой на каталог/файл) о всех файлах из первого VDT во второй VDT. Т.к. listview, listbox и treeview слишком примитивны не хотелось бы отказываться от гибкого Virtualtreeview...

В DrawTreeDemo есть функция:
Код:
function TDrawTreeForm.CanDisplay(const Name: string): Boolean;
// Determines whether the given file is one we can display in the image tree.
var
  Ext: string;
  I: Integer;
begin
  if not FExtensionsInitialized then
  begin
    FExtensionsInitialized := True;
    FExtensionList := TStringList.Create;
    {$ifdef GraphicEx}
      FileFormatList.GetExtensionList(FExtensionList);
      for I := 0 to FExtensionList.Count - 1 do
        FExtensionList[I] := '.' + FExtensionList[I];
    {$else}
    // GraphicEx is not used so add some default extensions
    with FExtensionList do
    begin
      Add('.bmp');
      Add('.ico');
      Add('.jpg');
      Add('.jpeg');
      Add('.wmf');
      Add('.emf');
    end;
    {$endif}
    FExtensionList.Sort;
  end;
  Ext := ExtractFileExt(Name);
  Result := FExtensionList.Find(Ext, I);
end;
...но она всего лишь идентифицирует заданные расширения файлов.
Мне осталась одна забава - пальцы в рот, да веселый свист - прокатилась дурная слава, что похабник я, и скандалист.
vinc2000 вне форума Ответить с цитированием
Старый 25.12.2012, 17:12   #2
vinc2000
Пользователь
 
Аватар для vinc2000
 
Регистрация: 31.01.2012
Сообщений: 47
По умолчанию

Видимо я первопроходец...что ж одна задумка у меня есть и видимо ей и придется воспользоваться...
Мне осталась одна забава - пальцы в рот, да веселый свист - прокатилась дурная слава, что похабник я, и скандалист.
vinc2000 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объединение nikshiyan Паскаль, Turbo Pascal, PascalABC.NET 10 26.07.2010 00:09
Объединение записей alco84 Microsoft Office Access 2 16.02.2010 12:06
Построить дерево в VirtualDrawTree ikot Компоненты Delphi 1 17.10.2009 01:08
Объединение БД Georgios БД в Delphi 3 25.01.2009 20:18
Многострочные надписи в узлах VirtualDrawTree Mitron Общие вопросы Delphi 4 01.02.2008 23:06