Вверх ↑
Этот топик читают: Гость
Ответов: 3851
Рейтинг: 159
#1: 2007-02-08 13:17:04 ЛС | профиль | цитата
Add(DropFile,11804439,147,231)
{
link(onDropFile,5520957:doPart,[])
}
Add(FilePart,5520957,196,231)
{
}
Нельзя определить - брошена папка или файл без расширения.
Предлагаю модернизировать DropFile - чтобы, если брошена папка, - справа добавлял "" ("BackSlash" вроде называется).
карма: 0
начавший
0
vip
#1.1контекстная реклама от партнеров
Ответов: 9906
Рейтинг: 351
#2: 2007-02-08 14:15:50 ЛС | профиль | цитата
Add(DropFile,11804439,105,112)
{
link(onDropFile,11279526:doValue,[])
}
Add(FileAttributes,8796739,224,112)
{
link(onRead,9979785:doBits,[])
}
Add(IntToBits,9979785,273,112)
{
Count=6
ZeroBits=1
link(onBit6,11691145:doMessage,[])
}
Add(Message,11691145,322,147)
{
Caption="Папка, однако"
link(Message,11279526:Value,[(328,102)(201,102)(201,153)(167,153)])
}
Add(Memory,11279526,161,112)
{
link(onData,8796739:doRead,[])
}
карма: 9

0
Ответов: 8890
Рейтинг: 823
#3: 2007-02-08 14:17:57 ЛС | профиль | цитата
Galkov,
карма: 19

0
Ответов: 3851
Рейтинг: 159
#4: 2007-02-08 14:34:22 ЛС | профиль | цитата
Леонид, легко смеяться над незнающим, но, у меня, э, не работает. В смысле вообще - хоть файл кидаешь, хоть папку - пофик...
карма: 0
начавший
0
Ответов: 9906
Рейтинг: 351
#5: 2007-02-08 14:45:54 ЛС | профиль | цитата
Андрей., ну ты бы еще на стул кидал...
Кстати, а куда кидаешь-то
Имеется ввиду современная кодовая часть, а не времен царя Гороха.
карма: 9

0
Ответов: 8890
Рейтинг: 823
#6: 2007-02-08 14:48:15 ЛС | профиль | цитата
Андрей., посмотрите, какие цифры выдаёт FileAttributes (у меня 0 - файл, 1 - папка) и всё станет ясным, как день
code_953
карма: 19

0
файлы: 1code_953.txt [654B] [275]
Ответов: 3851
Рейтинг: 159
#7: 2007-02-08 15:09:09 ЛС | профиль | цитата
Galkov писал(а):
Кстати, а куда кидаешь-то
Имеется ввиду современная кодовая часть, а не времен царя Гороха.

Я иду в ногу со временем - "Текущая версия 3.62 b160"

Леонид, всё понял, спасибо!
карма: 0
начавший
0
Ответов: 3851
Рейтинг: 159
#8: 2007-02-08 15:27:58 ЛС | профиль | цитата
Поторопился.
Если поставить флажок "Папка готова для архивирования", то атрибут будет "1" - как у файла.
карма: 0
начавший
0
Ответов: 8890
Рейтинг: 823
#9: 2007-02-08 15:36:40 ЛС | профиль | цитата
Андрей.,
Если поставить флажок "Папка готова для архивирования", то атрибут будет "1" - как у файла
наверное, в этом есть свой смысл ?
карма: 19

0
Ответов: 3851
Рейтинг: 159
#10: 2007-02-08 15:40:32 ЛС | профиль | цитата
Леонид писал(а):
наверное, в этом есть свой смысл ?

В точку!

Но как же отличить файл от фолдера?

карма: 0
начавший
0
Ответов: 2057
Рейтинг: 28
#11: 2007-02-08 15:53:32 ЛС | профиль | цитата
Андрей., а вот эти компоненты не помогут?
Add(DirTools,6612005,126,329)
{
Point(doExists)
}
Add(FileTools,12269047,126,378)
{
}
Только их надо обнавить с SVN. На счёт b161 то пока он глючит. Лучше просто обнавить нужные компоненты с SVN.
карма: 1

0
Ответов: 3851
Рейтинг: 159
#12: 2007-02-08 16:08:43 ЛС | профиль | цитата
Да, наверное так будет проще - проверить наличие файла (или папки) и тогда будет ясно - о чём речь. Хорошо, что система не позволяет создать файл с именем уже существующей папки в одном и том-же месте (подпапке).
Про SVN - простите, я не разработчик и не вполне понимаю - что это. Просто терпеливо жду новую версию. Будет круто, если описанные на форуме траблы начнут отсутствовать в новой версии (а новые не появятся )
карма: 0
начавший
0
Ответов: 9906
Рейтинг: 351
#13: 2007-02-08 16:16:21 ЛС | профиль | цитата
Андрей., не делай из мухи слона

ПРОБЛЕМ НЕТ
b160-й, если кодовая часть оригинала, то это вовсе не называется идти в ногу со временем - пол-года уже прошло.

Андрей. писал(а):
Просто терпеливо жду новую версию

Ну-ну
карма: 9

0
Ответов: 8890
Рейтинг: 823
#14: 2007-02-08 16:19:20 ЛС | профиль | цитата
Андрей., вот что нарисовано в FileAttribute.pas свойство Attr:
const At:array[0..6] of DWORD = (
      FILE_ATTRIBUTE_ARCHIVE,
FILE_ATTRIBUTE_HIDDEN,
FILE_ATTRIBUTE_NORMAL,
FILE_ATTRIBUTE_OFFLINE,
FILE_ATTRIBUTE_READONLY,
FILE_ATTRIBUTE_SYSTEM,
FILE_ATTRIBUTE_TEMPORARY );
на выходе как раз и 1 если файл соответствует установленному свойству - так я понимаю это (если не так, то [b]Galkov[/b] подправит)
карма: 19

0
Ответов: 3851
Рейтинг: 159
#15: 2007-02-08 16:33:57 ЛС | профиль | цитата
Galkov писал(а):

Андрей. писал(а)Просто терпеливо жду новую версию
Ну-ну

Это, в смысле я один такой? Все остальные юзеры хиасма (не разработчики) реглярно обновляются на SVN? Неповерю. Да и вообще, когда вижу предупреждение, типа: "прежде чем запускать проект обязательно установите компилятор дэльфи, дополнительные компоненты по списку и обновитесь на SVN", у меня (и не только) пропадает желание иметь дело с такой схемой. Смена версии дело неизбежное, обижаться на это бессмысленно, а вот все остальные навороты только отпугивают юзеров (повторяю - не разработчиков).
карма: 0
начавший
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)