[SawA]

Здраствуйте у меня возникла проблема с DirectoryListBox1
дело в том что он возвращает путь к папки в виде:
C:\...\SawA\Рабочий стол\
т.е. сокращенно получается.
Помогите пожалуйста, что надо сделать чтобы путь вывелся полностью в виде:
C:\Documents and Settings\SawA\Рабочий стол\

Заранее премного благодарен

[SawA]

Вопрос оставляю открытым но поздно нашол темку на нашем форуме
http://www.delphisources.ru/forum/sh...33&postcount=3
где впринципи неплохо заменяет весь гемор с DirectoryListBox1
и выдает какрас полный путь

[NumLock]

неправда,

Код:

DirectoryListBox1.Directory;

возвращает полный нормальный путь!

[SawA]

Сообщение от NumLock

неправда,

ну почему не правда у мну к примеру возвращает не полный путь могу даже кусок проги скинуть если не верите. Яж не говорю что ето не возможно яж спросил как

[NumLock]

в студию! только чтобы он компилился!!

[SawA]

Пожалуйста вот проект если исправите и перезальете с объяснением что куда надо тыкать буду очень признателен

[SawA]

))) поспешил тыкнуть кнопочку залить сам забыл вот тут точно есть

[NumLock]

ну так это не DirectoryListBox1 сокращеный путь возвращает, а в Label1.Caption (о котором в 1 посте небыло ни слова, а тут вдруг появился) его так пишет. на самом деле получать путь нужно как я уже писал выше: DirectoryListBox1.Directory.
а в Label1 он так пишется потому, что:

Код:

procedure TDirectoryListBox.SetDirLabelCaption;
var
  DirWidth: Integer;
begin
  if FDirLabel <> nil then
  begin
    DirWidth := Width;
    if not FDirLabel.AutoSize then DirWidth := FDirLabel.Width;
    FDirLabel.Caption := MinimizeName(Directory, FDirLabel.Canvas, DirWidth);
  end;
end;

т.е. лекарство напрашивается само собой:
-установить у Label1 AutoSize в False
-задать Width у Label1 достаточной, чтобы влезло самое длинной название пути
-смириться с этим, если ширины экрана не хватит
-если не хочется мириться, то есть еще одно лекарство:
--в обработчике OnChange у DirectoryListBox1 пишем:

Код:

Label3.Caption:=DirectoryListBox1.Directory;

у Label3 AutoSize = False, а WordWrap = True. ну и пошире и повыше его, чтобы все могло переноситься автоматом. но может и не переноситься автоматически, тогда есть следующее лекарство: разбивать как-то и выводить такой путь "руками".

[SawA]

Сообщение от NumLock

--в обработчике OnChange у DirectoryListBox1 пишем:

Код:

Label3.Caption:=DirectoryListBox1.Directory;

Спасибо большое это помогло. Скажите пожалуйста чайнику, где вы посмотрели этот код я его не видел где-то может скрыто вы сказали потому что вот:

Сообщение от NumLock

Код:

procedure TDirectoryListBox.SetDirLabelCaption;
var
  DirWidth: Integer;
begin
  if FDirLabel <> nil then
  begin
    DirWidth := Width;
    if not FDirLabel.AutoSize then DirWidth := FDirLabel.Width;
    FDirLabel.Caption := MinimizeName(Directory, FDirLabel.Canvas, DirWidth);
  end;
end;

я эту процедурку вроде лазаю но не вижу как не странно в своем же проекте вот думаю может она где автоматом скрыто прописывает
Спасибо еще рас большое с меня рек если рек примется когда на весы тыкну

[NumLock]

это в модуле FileCtrl. не ищи это у себя я просто показал как DirectoryListBox присваивает Caption (путь) Label"у и почему путь получается сокращеный.

[SawA]

Сообщение от NumLock

это в модуле FileCtrl. не ищи это у себя я просто показал как DirectoryListBox присваивает Caption (путь) Label"у и почему путь получается сокращеный.

Пасиб терь я супер умный перец

P.S. в общем тему моно закрыть