VPF::Неверный корень в ShellTreeView - Форум программистов

Keeper89

Дата 30.8.2009, 23:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Доброго времени суток!

Меняю корень STV
user posted image

на новый

Код


ShellTreeView1.Root := Edit1.Text;

Как видно - корень в последнем случае не "Новая папка", а "Documents and Settings". Судя по экспериментам такое происходит только в папках, содержащихся в этой самой Documents and Settings (как здесь - на Рабочем Столе).

Может кто-то сталкивался с этим?

Это сообщение отредактировал(а) Keeper89 - 30.8.2009, 23:19

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Amphiluke

Дата 31.8.2009, 09:07 (ссылка)

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

Загрузка ...

☽

Профиль
Группа: Завсегдатай
Сообщений: 1253
Регистрация: 26.8.2009

Репутация: 5
Всего: 112

Это не лекарство (так, хиленькая заплатка), но тем не менее работает...

Код

ShellTreeView1.Root := Edit1.Text;
ShellTreeView1.Items[0].Text := ExtractFileName(Edit1.Text);

Вообще, конечно, можно покопаться в исходнике, чтобы понять, откуда растут ноги у этого «бага».

Это сообщение отредактировал(а) Amphiluke - 31.8.2009, 09:09

Keeper89

Дата 1.9.2009, 13:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Заплатка это хорошо, но может есть какой-то другой способ?

Это сообщение отредактировал(а) Keeper89 - 1.9.2009, 13:31

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

MetalFan

Дата 2.9.2009, 12:02 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

есть:
1. переписать ShellTreeView, чтобы работало, как надо
2. отказаться от STV в пользу VirtualShellTree

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

There are always someone smarter than you...

Keeper89

Дата 2.9.2009, 16:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Буду смотреть пока, что переписывать или поставлю заплатку, хотя ее тоже надо продумать - вариант Amphiluke подходит только для директорий, над общим решением надо думать.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Keeper89

Дата 4.9.2009, 14:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Сделал заплатку следующим образом:

Код


function GetObjectName(objectPIDL: PItemIDList): AnsiString;
  var
    FileInfo: TSHFileInfo;
  begin
    SHGetFileInfo(PAnsiChar(objectPIDL),
                  0, FileInfo, SizeOf(FileInfo),
                  SHGFI_PIDL or SHGFI_DISPLAYNAME);
    Result := FileInfo.szDisplayName;
  end;

procedure TForm1.STV1Change(Sender: TObject; Node: TTreeNode);
var
  tempRootLabel: AnsiString;
begin
  with STV1.Items.GetFirstNode do
  begin
    tempRootLabel := GetObjectName(STV1.SelectedFolder.AbsoluteID);
    if AnsiCompareStr(tempRootLabel,Text) = 0 then
      Text := tempRootLabel;
  end; 
end;

Если есть вариант лучше, буду рад услышать.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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