Вверх ↑
Этот топик читают: Гость
Ответов: 1925
Рейтинг: 172
#1: 2019-08-27 22:05:28 ЛС | профиль | цитата
Добавлено:
+возможность задать любую папку в качестве корневой (т.е. выше просматривать будет нельзя)
+возможность просматривать некоторые спец. папки: корзина, панель управления, шрифты
*для спец. папок выдаёт как отображаемое имя, так и путь (если он существует).
*для корзины при NewStyle=True выдаёт не просто отображаемое имя, а путь, где файл лежал до удаления.

Внешний вид

Пример:
Add(Browse,16258765,308,105)
{
BrowseObj=3
SpecRootFolder=1
Point(doRootFolder)
Point(doSpecRootFolder)
link(onBrowse,7394885:doEnum,[])
}
Add(Button,10562473,231,105)
{
Left=30
Top=20
link(onClick,16258765:doBrowse,[])
}
Add(Edit,7490768,231,147)
{
Left=30
Top=45
Width=325
Text=""
link(onEnter,16258765:doRootFolder,[(285,160)(285,118)])
}
Add(MT_Enum,7394885,371,105)
{
link(onItem,2997311:doAdd,[])
}
Add(Memo,2997311,427,105)
{
Left=10
Top=65
Width=410
Height=190
ScrollBars=3
}
На самом деле всё просто: дёргайте лишь свойства RootFolder и SpecRootFolder, вот и всё.

Тестируйте. Nesco, проверь, пожалуйста, если всё ОК, надо обновить на SVN.

Редактировалось 1 раз(а), последний 2019-08-27 22:10:12
карма: 9
2
файлы: 2br13.png [12.8KB] [1146], Browse 1.3.rar [2.8KB] [331]
Голосовали:Konst, Vadimluk1
vip
#1.1контекстная реклама от партнеров
Ответов: 1925
Рейтинг: 172
#2: 2019-08-29 05:47:05 ЛС | профиль | цитата
Ну что, тестировал кто-нибудь?
карма: 9
0
Ответов: 16884
Рейтинг: 1239
#3: 2019-08-29 09:52:09 ЛС | профиль | цитата
3042 писал(а):
Ну что, тестировал кто-нибудь?
3042 писал(а):
+возможность задать любую папку в качестве корневой (т.е. выше просматривать будет нельзя)
А зачем ?
Или, как говорил ( в таких случаях ) один мой знакомый, а от этого водка дешевле станет ?
Обоснуй необходимость этой "возможности".
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 632
Рейтинг: 4
#4: 2019-08-29 14:39:59 ЛС | профиль | цитата
3042, по тестировал компонент, но в самом начале столкнулся с проблемой. Попытался открыть корзину, но вместо этого он в поток посылает "Корзина", подключал MT поток и отладку.

Add(MainForm,2953706,21,105)
{
Width=472
Height=408
link(onCreate,6283834:doBrowse,[(139,125)(139,195)])
}
Add(Browse,6283834,175,189)
{
Title="99"
SpecRootFolder=2
link(onBrowse,8866689:doEvent,[])
}
Add(Memo,3569698,350,154)
{
Left=350
Top=150
Align=5
}
Add(FileSearch,12734916,287,154)
{
link(onSearch,3569698:doAdd,[])
}
Add(MT_MultiData,9301715,238,189)
{
link(onData2,12734916:doSearch,[(275,202)(275,160)])
}
Add(Debug,8866689,217,189)
{
link(onEvent,9301715:doSeparateMT,[])
}


карма: 0

0
Ответов: 1925
Рейтинг: 172
#5: 2019-08-29 20:22:56 ЛС | профиль | цитата
Vadimluk1, BrowseObj=Files
карма: 9
1
Голосовали:Vadimluk1
Ответов: 632
Рейтинг: 4
#6: 2019-08-29 20:38:31 ЛС | профиль | цитата
3042 писал(а):
Vadimluk1, BrowseObj=Files

3042, спасибо, теперь работает!
карма: 0

0
Ответов: 1925
Рейтинг: 172
#7: 2019-08-29 20:50:01 ЛС | профиль | цитата
Tad писал(а):
А зачем ?

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

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

Редактировалось 1 раз(а), последний 2019-08-29 20:56:41
карма: 9
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#8: 2019-09-05 16:16:31 ЛС | профиль | цитата
У меня не отображает элементы панели управления (Win7x64), те не выдает ничего кроме "Все элементы панели управления" и все. Так и должно быть или тогда почему?

Редактировалось 1 раз(а), последний 2019-09-05 16:17:43
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#9: 2019-09-05 18:57:19 ЛС | профиль | цитата
3042 писал(а):
Например, файлы каких-нибудь шаблонов для вашей программы могут лежать только в одной папке, юзеру незачем выискивать её среди других папок.
Файлы шаблонов моей программы лежат в папке моей программы и путь к этой папке забит в самой моей программе.

Редактировалось 1 раз(а), последний 2019-09-05 20:59:01
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1925
Рейтинг: 172
#10: 2019-09-05 21:44:35 ЛС | профиль | цитата
nesco писал(а):
У меня не отображает элементы панели управления (Win7x64), те не выдает ничего кроме "Все элементы панели управления" и все.

Можно скрин? М.б. дело в
3042 писал(а):
BrowseObj=Files
?

Просто у этого диалога есть параметр ЧТО отображать (в hiasm - BrowseObj: папки, файлы, принтеры...) и ГДЕ отображать (корневая папка - это один из вариантов). Другое дело, что искать принтеры в папке шрифтов смысла нет, но это уже вопрос к Б-гу

--- Добавлено в 2019-09-05 21:51:25

Tad писал(а):
Файлы шаблонов моей программы лежат в папке моей программы и путь к этой папке забит в самой моей программе.

Ну, тогда тебе этот диалог вообще не нужен

Редактировалось 2 раз(а), последний 2019-09-05 21:51:25
карма: 9
0
Ответов: 16884
Рейтинг: 1239
#11: 2019-09-05 23:15:21 ЛС | профиль | цитата
3042 писал(а):
Ну, тогда тебе этот диалог вообще не нужен
файлы каких-нибудь шаблонов для вашей программы могут лежать только в одной папке, юзеру незачем выискивать её среди других папок.
Вот и я говорю, что юзеру незачем выискивать её среди других папок.

Я против предложенного обновления.

Редактировалось 2 раз(а), последний 2019-09-07 14:26:38
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1925
Рейтинг: 172
#12: 2019-09-07 22:49:22 ЛС | профиль | цитата
оффтоп
Tad писал(а):
Я против предложенного обновления.

Т.е. против улучшения hiasm? Ведь никто не заставляет лично тебя пользоваться этой функцией. Но она существует в диалоге - кому помешает?
карма: 9
0
Ответов: 16884
Рейтинг: 1239
#13: 2019-09-08 09:13:15 ЛС | профиль | цитата
3042 писал(а):
Tad писал(а):
Я против предложенного обновления.

Т.е. против улучшения hiasm? Ведь никто не заставляет лично тебя пользоваться этой функцией. Но она существует в диалоге - кому помешает?
Выводы :
1. Tad - враг народа, т.к. он "против улучшения hiasm". Бред.
2. "кому помешает?" - А кому поможет?
Tad писал(а):
Обоснуй необходимость этой "возможности".

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1925
Рейтинг: 172
#14: 2019-09-08 23:12:47 ЛС | профиль | цитата
Tad писал(а):
А кому поможет?

Хотя бы мне.

оффтоп
Tad, я вообще не понимаю сути этого спора. Новые свойства компонентов всегда добавлялись, что давало доп. функционал. Что здесь ты взъелся - не пойму. Как будто тебе лично это как-то вредит. Ведь от тебя, собственно, ничего не требуется.
карма: 9
0
Ответов: 2059
Рейтинг: 131
#15: 2019-09-09 00:59:55 ЛС | профиль | цитата
Tad писал(а):
я вообще не понимаю сути этого спора.

Солидарен!
поручик Ржевский писал(а):
Люби хоть чёрта, на здоровье!

Бабахай что угодно, на здоровье! Когда понадобится и попросят, думаю ты не откажешь и поделишься.
Или смысл внести в иконостас?
Если старое бельё начнём трясти, то задохнёмся.
Расшифровывать?

Раз уж так всё сложилось, так пусть уж идёт как идёт

https://www.youtube.com/watch?v=fcxTiG2NNAo
И вот тут некоторые стали позволять себе нашивать накладные карманы. и опушивать рукав. Вот этого мы позволять не будем!


Редактировалось 8 раз(а), последний 2019-09-09 01:54:13
карма: 6

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)