Или глюк с TShellTreeView или я чегото не понимаю.

← →
Reanimator (2003-06-18 22:20) [0]

Очень интерестный глюк у меня тут происходит.
Имеется на форме ТShellTreeView, вот он то и работает странно. Он отображает корневую папку а под ней содержимое конечной. Тоесть если задать свойство Root дапустим C:\Program Files\Borland\Delphi7 то в дереве я вижу папку Program Files а под ней содержимое папки Delphi7.
Вот так приблизительно:
Program Files
|--[+]Bin
|--[+]Demos
|--[+]Doc
|--[+]Help
|--[+]Imports
|--[+]Lib
|--[+]Objrepos
|--[+]Ocx
|--[+]Projects
|--[+]Rave5
|--[+]Source

А поидее вместо Program Files должна быть папка Delphi7
Что за бред? И как его лечить ?

← →
Ученик (2003-06-18 22:54) [1]

{ Demos\ShellControls\ShellCtrls.pas }

procedure TCustomShellTreeView.CreateRoot;
...
Text := {ExtractFileName(}GetDisplayName(DesktopShellFolder,
TShellFolder(Data).AbsoluteID,
SHGDN_FORPARSING){)};

...

← →
Reanimator (2003-06-19 01:15) [2]

2 Ученик
Огромное спасибо, навел меня на путь истинный,. :)
SHGDN_NORMAL поменял на SHGDN_FORPARSING и ExtractFileName у меня отсутствовал и я его добавил иначе у меня отображался весь путь к заданной папке .
А я уже думал все потеряно. Еще раз спасибо...

Или глюк с TShellTreeView или я чегото не понимаю. Найти похожие ветки