Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Исходники Форум Информер Страны мира
   Турбо Вижн    >>    tfd_err
   
 
 Исправление ошибки в tFileDialog  Александр Тесанов 07.12.1994

Об исправлении ошибки в TFileDialog, чтобы он правильно "ходил" по подкаталогам



12k 
 

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 > мой вопрос к знатокам довольно чайниковский. Попробуй может вот это подойдет. Будут вопросы пиши. --- *-=| С уважением Виктор |=-*