From: Alexander K. Tesanoff <tes@step.nnov.su>
Subj: TFileDialog, не ходит по каталогам... Почему, а ?
Organization: Step Ltd.

    мой вопрос к знатокам довольно чайниковский.

    В стандартной поставке TV 2.0 есть объект TFileDialog.
На первый взгляд - это то же самое, что и соответствующее окошко
в самой IDE. Но "ходить по каталогам", в отличие от своего старшего брата
TFileDialog не может.
   Люди ! Если кто-то уже победил эту болезнь, и при этом ему не
жалко поделиться результатами своих трудов - киньте, плиз, исправленный
вариант, или посоветуйте, что я могу с этим поделать сам.

                                                        Заранее спасибо !
--
                                                        Тесанов Александр.

From: val@go.magadan.su (Valera Isaev)
Date: Thu, 08 Dec 94 18:13:16 +1100
Organization: GO

>   Люди ! Если кто-то уже победил эту болезнь

    Победил! Дело в том, что подробности этого трабала я неизучал и исправ-
    лять ничего не стал, а просто взял одноименный Unit из TР6, а там это
    окно ходит куда хочеш и зачем хочеш!!! А с трабалом этим пускай Borlond'ов-
    цы сами разбераются если им это нужно. Если от шестерки этого Unit'а неоста-
    лось, то пиши пришлю.

>                      Заранее спасибо !
                       Заранее пожалуста!

--
Valery Isaev "Magadan"        Phone:    home   (413)-004-7411
                                        modem  (413)-002-8416
                                        voice  (413)-002-8086
                              Addr:     fido   2:5047/16
                                        E-Mail val@go.magadan.su



From: "Yury P. Smolsky" <bitmmsi@bitmcnit.bryansk.su>
Subj: Bug in TFileDialog
Date: Tue, 20 Dec 94 12:08:40 +0300
Organization: MS&I Chair At Bryansk Inst. of Transport Engineering


        Привет всем!

     Недавно кто-то спрашивал, как заставить TFileDialog ходить
по каталогам. Я порылся в исходниках STDDLG - там в ф-ции
RelativePath неверно стояла скобочка. Здесь текст исправленной ф-ции.


function RelativePath(var S: PathStr): Boolean;
begin
  S := LTrim(RTrim(S));
  RelativePath := not ((S <> '') and (S[1] = '\') or (S[2] = ':'));
end;

                                            Юра.
---
,--------------------------------------,
| Yury P. Smolsky.  MS&I Chair At BITM |
| E-mail : bitmmsi@bitmcnit.bryansk.su |
'--------------------------------------`



From: Victor V. Ionov <MD@md.kamaz.kazan.su>
Subj: TFileDialog, не ходит по каталогам... Почему, а ?
Date: Thu, 08 Dec 94 15:03:02 +0200
Organization: KAMAZ Inc., General Fin. Dep., STAR

>   мой вопрос к знатокам довольно чайниковский.

Попробуй может вот это подойдет.
Будут вопросы пиши.

---
*-=| С уважением Виктор |=-*